＊作業二：pattern設計應用

size 200 200
Repeat A 0 200{ pen 10 50 100line A A A 0
pen 20 60 90line A A A 10
pen 30 70 80line A A A 20
pen 40 80 70line A A A 30
pen 50 90 60line A A A 40
pen 60 100 50line A A A 50
pen 70 110 40line A A A 60
pen 80 120 30line A A A 70
pen 90 130 20line A A A 80
pen 100 140 10line A A A 90
pen 110 150 0line A A A 100
pen 10 50 100line 0 A A A
pen 20 60 90line 10 A A A
pen 30 70 80line 20 A A A
pen 40 80 70line 30 A A A
pen 50 90 60line 40 A A A
pen 60 100 50line 50 A A A
pen 70 110 40line 60 A A A
pen 80 120 30line 70 A A A
pen 90 130 20line 80 A A A
pen 100 140 10line 90 A A A
pen 110 150 0line 100 A A A}

repeat C 0 8
{
pen 100 50 0
line (96+C) 0 (96+C) 200
line (146+C) 0 (146+C) 200
line (196+C) 0 (196+C) 200
line 0 (196+C) 200 (196+C)
line 0 (146+C) 2000 (146+C)
line 0 (96+C) 200 (96+C)
}
repeat D 0 2
{
pen 100 0 80
line 0 (80+D) 200 (80+D)
line 0 (64+D) 200 (64+D)
line 0 (118+D) 200 (118+D)
line 0 (134+D) 200 (134+D)
line (80+D) 0 (80+D) 200
line (64+D) 0 (64+D) 200
line (118+D) 0 (118+D) 200
line (134+D) 0 (134+D) 200
}
repeat E 0 1
{
pen 40 0 10
line 0 (180+E) 200 (180+E)
line 0 (10+E) 200 (10+E)
line (180+E) 0 (180+E) 200
line (10+E) 0 (10+E) 200
}