作業二 延伸

程式碼
size 300 300
paper 0
fast

Repeat A 0 100
{
pen 255 20 147
line 0 (A*3) 5 (A*3)

pen 25
line 27 (A*3) 50 (A*3)

pen 2 2 200
line 27 (A*3) 32 (A*3)

pen 35
line 0 (A*3) 300 (A*3)
pen 2 2 200
line 50 (A*3) 250 (A*3)

pen 45
line 0 (A*6) 300 (A*6)
pen 2 2 2
line 0 (A*6) 300 (A*6)
}

Repeat A 0 300
{
pen 0 50 0
Line 300 (A*6) (A*6) 0

pen 60 5 5
Line 150 (A*6) (A*6) 0

pen 60 5 5
Line 0 (A*6) (A*6) 300

pen 0 50 0
Line 0 (A*6) (A*6) 150
}