程式碼
size 200 200
//設定背景
paper 100
//利用時間控制線條顏色
repeat x 0 200
{
pen
2009年11月6日 星期五
期中考 康丁斯基
全部跑完要兩分鐘，所以簡短一下
程式碼
// enter program
// enter program
load dbngraphics.dbn
paper 80 245 220
size 400 300
fast
//弧
repeat A 90 100
{
circle 70 250 (A/2) 100
}
pen 80 245 220
repeat A 0 125
{
line 120 210 A 300
}
//弧
repeat A 90 100
{
circle 90 280 (A/2) 130
}
pen 80 245 220
repeat A 0 150
{
line 135 210 A 300
}
pen 80 245 220
repeat A 30 50
{
line A 250 A 275
}
//黃色方形
pen 100 90 0
repeat A 290 280
{
line 320 A 380 A
}
//白色方形
pen 100 100 100
repeat A 150 156
{
line 25 A 100 A
}
//綠紅三角
pen 10 30 10
Repeat A 50 100
{
line A 156 50 180
}
pen 80 0 0
Repeat A 50 100
{
line 100 156 A 180
}
//紅色方形
pen 80 0 0
Repeat A 162 180
{
line A 230 180 246
}
pen 80 0 0
Repeat A 162 180
{
line 180 214 A 230
}
pen 80 0 0
Repeat A 180 198
{
line A 230 180 246
}
pen 80 0 0
Repeat A 180 198
{
line 180 214 A 230
}
//連綠紅的大三角
pen 60 0 0
repeat A 100 225
{
line 100 275 A 110
}
//小黃色三角形
pen 100 90 0
repeat A 75 100
{
line 100 125 A 145
}
//紅色小三角
pen 60 0 0
repeat A 80 100
{
line 100 110 A 120
}
//黑色三角
pen 0 0 0
repeat A 32 50
{
line 50 110 A 145
}
pen 0 0 0
repeat A 50 68
{
line 50 110 A 145
}
//橘色大三角
pen 100 60 0
repeat A 20 180
{
line 100 20 A 100
}
//黑色大三角
pen 0 0 0
repeat A 270 315
{
line 315 180 A 250
}
pen 0 0 0
repeat A 315 360
{
line 315 180 A 250
}
//下面的三角
pen 40 0 0
repeat A 300 315
{
line A 100 315 180
}
pen 40 0 0
repeat A 315 330
{
line A 100 315 180
}
//下半身
pen (A/30) 0 0
repeat A 300 330
{
line A 20 A 100
}
pen (A/30) 0 0
repeat A 290 330
{
line A 20 300 100
}
pen (A/30) 0 0
repeat A 330 340
{
line A 20 330 100
}
//三座三角形
pen 0 0 0
repeat A 230 280
{
line A 115 255 165
}
pen 0 0 0
repeat A 240 270
{
line A 65 255 115
}
pen 0 0 0
repeat A 245 265
{
line A 30 255 65
}
//圓圈圈內
repeat A 0 30
{
circle 315 180 (A/2) 100
}
//圈圈外
repeat A 80 100
{
circle 315 180 (A/2) 100
}
//弧
repeat A 120 130
{
circle 100 0 (A/2) 100
}
訂閱：
文章 (Atom)