2009年11月5日 星期四

期中:數位康丁斯基



load dbngraphics.dbnpaper 0 70 80size 330 250
fast
//半圓壹repeat C 0 3{circle 65 215(C+40) 60}
//半圓貳repeat C 0 3{circle 80 225(C+30) 60}
//三角上set M 80Repeat A 85 225{ pen 60 20 35triangle M 85 M A (M*2) 85}
//三角下set N 25Repeat C 25 75{pen 60 30 20triangle N 75 (N+50) C (N*5) 75}
//圓Repeat A 60 40{circle 260 125 (A/2+20) 90}Repeat A 30 0{circle 260 125 (A/2) 90}
//三角下貳set M 225
Repeat A 25 115{ pen 30 20 20triangle M 25 (M+35) A (M+60) 25}
//三角上貳set N 215Repeat C 125 185{pen 30 10 20triangle N 185 (N+45) C (N+90) 185}
//三三角set M 180
Repeat A 30 55{ pen 100triangle M 30 (M+10) A (M+20) 30}
Repeat A 55 75{ pen 100triangle M 55 (M+10) A (M+20) 55}
Repeat A 75 95{ pen 100triangle M 75 (M+10) A (M+20) 75}
//黃方體Repeat B 0 7{pen 100 100 0 line 270 (225+B) 315 (225+B)}
//白方體Repeat C 0 5{pen 0 line 25 (115+C) 80 (115+C)}
//小黃三repeat A 65 80{pen 255 215 0triangle 80 95 65 110 A 110}
//小紅三repeat A 65 80{pen 100 0 0triangle 80 85 65 95 A 95}
//長方上repeat B 35 80{pen 50 0 0triangle 80 150 35 130 B 150}
//長方下repeat B 35 80{pen 0 50 30triangle 35 130 80 150 B 130}
//菱形repeat B 0 20{pen 80 5 0 line 135 (185+B) 115 (180+B)}
//半圓下repeat D 0 6{circle 75 10(D+40) 60}

沒有留言:

張貼留言