作業2

作業2








程式碼:
paper 90 40 60
size 300 300
repeat E 0 1
{
pen 0 0 0
line 10 (180+E) 290 (280+E)
line 10 (20+E) 290 (120+E)
line (280+E) 10 (220+E) 290
line (80+E) 10 (20+E) 290
}
repeat D 0 2
{
pen 40 25 70
line 0 (80+D) 300 (80+D)
line 0 (64+D) 300 (64+D)
line 0 (48+D) 300 (48+D)
line 0 (32+D) 300 (32+D)
line 0 (16+D) 300 (16+D)
line 0 (0+D) 300 (0+D)
line 0 (218+D) 300 (218+D)
line 0 (234+D) 300 (234+D)
line 0 (250+D) 300 (250+D)
line 0 (266+D) 300 (266+D)
line 0 (282+D) 300 (282+D)
line (80+D) 0 (80+D) 300
line (64+D) 0 (64+D) 300
line (48+D) 0 (48+D) 300
line (32+D) 0 (32+D) 300
line (16+D) 0 (16+D) 300
line (0+D) 0 (0+D) 300
line (218+D) 0 (218+D) 300
line (234+D) 0 (234+D) 300
line (250+D) 0 (250+D) 300
line (266+D) 0 (266+D) 300
line (282+D) 0 (282+D) 300
}
repeat A 0 10
{
pen 75 5 55
line 96 (146+A) 144 (146+A)
line 96 (196+A) 144 (196+A)
line 156 (196+A) 204 (196+A)
line 146 (96+A) 154 (96+A)
line 146 (146+A) 154 (146+A)
line 146 (196+A) 154 (196+A)
line 144 (96+A) 96 (96+A)
line 156 (146+A) 204 (146+A)
line 156 (96+A) 204 (96+A)
}
repeat A 0 10
{
pen 100 100 100
line 146 (96+A) 154 (96+A) line 146 (146+A) 154 (146+A) line 146 (196+A) 154 (196+A)}