學生我從上禮拜三到日
我請了假 跟家人出國了
所以上禮拜四 11/5日 的早上的課
沒能即時 上傳期中作業
懇請教授讓我補交,謝謝!!

load dbngraphics.dbn
size 350 300
paper 60 60 60
fast
//長方形repeat A 0 10
{ pen 90 70 10
line (20) (260+A) (90) (260+A)
pen 50 30 10
line 225 (145+A) 330 (145+A)}
//圓形
Repeat J 0 40
{ circle 75 150 (50-J) 100
Repeat B 0 20
{ circle 75 150 (25-B) 75 }
}
//圓形上重疊三角型
Repeat C 0 45
{ pen 80 0 0
triangle (30+C) 225 (120-C) 225 75 150
triangle (50+C) 25 (100-C) 25 75 150}
//三個疊在一起的三角型
Repeat D 0 20
{ pen 10 70 25
triangle (120+D) 40 (140-D) 40 130 60
triangle (115+D) 60 (145-D) 60 130 80
triangle (110+D) 80 (150-D) 80 130 110}
//右邊直角三角形
Repeat E 0 60
{ pen 20 40 20
triangle 165 110 (225-E) 110 225 255}
//右邊倒三角
Repeat E 0 65
{pen 80 45 15
triangle (195+E) 85 (310-E) 85 250 30}
//小直角三角形
Repeat F 0 20
{ pen 40 10 10
triangle (235) 125 (245-F) 125 225 105
}
Repeat G 0 25
{ pen 70 80 50
triangle 225 140 (250-G) 140 225 125
pen 90
triangle (270+G) 120 (300-G) 120 285 85}
//三角形變長方形
Repeat H 0 65
{ pen 5 40 20
triangle 225 160 (290-H) 160 225 185
pen 80 0 0
triangle 225 185 (290-H) 185 290 160}
//菱形
Repeat I 0 40
{ pen 80 0 0
triangle (160+I) 225 180 205 180 245}
沒有留言:
張貼留言