影片原始碼
size 100 100 4
paper 100
command rect x y dx dy
{
line (x+dx) (y+dy) (x+dx) (y-dy)
line (x-dx) (y+dy) (x-dx) (y-dy)
line (x-dy) (y+dx) (x+dy) (y+dx)
line (x-dy) (y-dx) (x+dy) (y-dx)
}
repeat a 0 50
{
paper
考試
15 年前
2009年11月11日 星期三
2009年11月5日 星期四
期中考-康丁斯基
截圖 
影片
原始碼
load dbngraphics.dbn
paper 80 245 220
size 400 300
FAST
//左邊矩形
pen 255 194 14
repeat A 290 280
{
line 10 A 70 A
}
//白色矩形
pen 100 100 100
Repeat A 135 140
{
line 300 A 380 A
}
//矩形(組合)
pen 10 30 10
Repeat A 300 350
{
line A 150 300 175
}
pen 80 0 0
Repeat A 300 350
{
line 350 150 A 175
}
//中間矩形
pen 80 0 0
Repeat A 250 225
{
line 225 A 250 A
}
//左邊三角形
PEN 60 0 0
repeat A 40 110
{
line A 25 75 160
}
//左邊倒三角形
PEN 60 0 0
repeat A 20 130
{
line A 240 75 160
}
//三座三角形
pen 0 0 0
repeat A 150 210
{
line A 125 180 175
}
repeat A 155 205
{
line A 75 180 125
}
repeat A 165 195
{
line A 30 180 75
}
//右邊三角形
pen 85 0 0
Repeat A 230 300
{
line A 100 300 270
}
//右邊倒三角形
pen 100 50 0
Repeat A 250 375
{
line A 90 315 45
}
//右邊倒三角形(小)
pen 0 0 0
Repeat A 350 375
{
line A 120 363 90
}
//右邊三角形(小1)
pen 50 0 0
Repeat A 300 325
{
line A 110 300 100
}
//右邊三角形(小2)
pen 255 194 14
Repeat A 300 325
{
line A 130 300 110
}
//圓形(外)
circle 75 160 60 100
circle 75 160 59 100
circle 75 160 58 100
circle 75 160 57 100
circle 75 160 56 100
circle 75 160 55 100
circle 75 160 54 100
//圓形(內)
circle 75 160 20 100
circle 75 160 19 100
circle 75 160 18 100
circle 75 160 17 100
circle 75 160 16 100
circle 75 160 15 100
circle 75 160 14 100
circle 75 160 13 100
circle 75 160 12 100
circle 75 160 11 100
circle 75 160 10 100
circle 75 160 9 100
circle 75 160 8 100
circle 75 160 7 100
circle 75 160 6 100
circle 75 160 5 100
circle 75 160 4 100
circle 75 160 3 100
circle 75 160 2 100
circle 75 160 1 100
影片
原始碼
load dbngraphics.dbn
paper 80 245 220
size 400 300
FAST
//左邊矩形
pen 255 194 14
repeat A 290 280
{
line 10 A 70 A
}
//白色矩形
pen 100 100 100
Repeat A 135 140
{
line 300 A 380 A
}
//矩形(組合)
pen 10 30 10
Repeat A 300 350
{
line A 150 300 175
}
pen 80 0 0
Repeat A 300 350
{
line 350 150 A 175
}
//中間矩形
pen 80 0 0
Repeat A 250 225
{
line 225 A 250 A
}
//左邊三角形
PEN 60 0 0
repeat A 40 110
{
line A 25 75 160
}
//左邊倒三角形
PEN 60 0 0
repeat A 20 130
{
line A 240 75 160
}
//三座三角形
pen 0 0 0
repeat A 150 210
{
line A 125 180 175
}
repeat A 155 205
{
line A 75 180 125
}
repeat A 165 195
{
line A 30 180 75
}
//右邊三角形
pen 85 0 0
Repeat A 230 300
{
line A 100 300 270
}
//右邊倒三角形
pen 100 50 0
Repeat A 250 375
{
line A 90 315 45
}
//右邊倒三角形(小)
pen 0 0 0
Repeat A 350 375
{
line A 120 363 90
}
//右邊三角形(小1)
pen 50 0 0
Repeat A 300 325
{
line A 110 300 100
}
//右邊三角形(小2)
pen 255 194 14
Repeat A 300 325
{
line A 130 300 110
}
//圓形(外)
circle 75 160 60 100
circle 75 160 59 100
circle 75 160 58 100
circle 75 160 57 100
circle 75 160 56 100
circle 75 160 55 100
circle 75 160 54 100
//圓形(內)
circle 75 160 20 100
circle 75 160 19 100
circle 75 160 18 100
circle 75 160 17 100
circle 75 160 16 100
circle 75 160 15 100
circle 75 160 14 100
circle 75 160 13 100
circle 75 160 12 100
circle 75 160 11 100
circle 75 160 10 100
circle 75 160 9 100
circle 75 160 8 100
circle 75 160 7 100
circle 75 160 6 100
circle 75 160 5 100
circle 75 160 4 100
circle 75 160 3 100
circle 75 160 2 100
circle 75 160 1 100
2009年11月2日 星期一
command square 綜合結構設計
主題:volume
說明:如控制音量大小般的意象
影片:
原始碼:
paper 50
command square x y s c
{
pen c
line (s+s)c c c
}
repeat A 1 9
{
repeat B 0 9
{
square (A*10+3) (B*10+5) 2 (A+B*10)
}
}
訂閱：
文章 (Atom)