作業五

size 400 400

paper 0

forever


{

Repeat s 0 400

{

pen 80

line 0 (0+s/2) 400 (70-s/1)

pen 70

line 0 (80+s/2) 400 (10-s/3)


pen 60

line 0 (20+s/2) 400 (90-s/1)


pen 50

line 0 (100+s/2) 400 (30-s/3)

pen 40

line 0 (40+s/2) 400 (110-s/1)




pen 30

line 0 (120+s/2) 400 (50-s/3)

pen 20

line 0 (60+s/2) 400 (130-s/1)

pen 10

line 0 (140+s/2) 400 (70-s/3)

pen 0

line 0 (80+s/2) 400 (150-s/1)

pen 10

line 0 (160+s/2) 400 (90-s/3)
pen 20

line 0 (100+s/2) 400 (170-s/1)
pen 30

line 0 (180+s/2) 400 (110-s/3)






pen 20 10 0

line 0 (70-s/2) 400 (150+s/1)

pen 30 10 0

line 0 (80-s/1) 400 (160+s/4)

pen 40 10 0

line 0 (90-s/2) 400 (170+s/1)

pen 50 10 0

line 0 (100-s/1) 400 (180+s/4)

pen 60 10 0

line 0 (110-s/2) 400 (190+s/1)

pen 70 10 0

line 0 (120-s/1) 400 (200+s/4)
pen 80 10 0

line 0 (130-s/2) 400 (210+s/1)
pen 90 10 0

line 0 (140-s/1) 400 (220+s/4)
pen 100 10 0

line 0 (150-s/2) 400 (230+s/1)
pen 110 10 0

line 0 (160-s/1) 400 (240+s/4)
}

}