10/14 使用command square 結構綜合設計

黑白系!





// enter program

size 200 200
paper 0



command square x y s c
{
pen (c/20)
line x y (x+s) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}
command square2 x y s c
{
pen c
line (x-s) y x y
line x y (x-(s/2)) (y-s)
line (x-(s/2)) (y-s) (x-s) y
}

command square x y s c
{
pen (c/2)
line x y x (y+s)
line x (y+s) (x+s) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}

command square5 x y s c
{
pen (c/4)
line x y x (y+s)
line x (y+s) (x+s) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}
repeat A 0 19
{
repeat B 0 19
{
square5 (A*10+2) (B*10+2) 5 (100-(A*B-50))
}
}

command square3 x y s c
{
pen c
line x y (x+(s/2)) (y+s)
line (x+(s/2)) (y+s) (x+s) y
line (x+s) y (x+(s/2)) (y-s)
line (x+(s/2)) (y-s) x y
}
repeat D 10 17
{
repeat A 0 5
{
repeat B 0 3
{
square3 (15+(A+A)*15) (12+(B+B)*23) D (10+(A+B)*11)
}
}
}
repeat D 10 17
{
repeat A 0 5
{
repeat B 0 3
{
square2 (31+(A+A)*15) (45+(B+B)*23) D (10+(A+B)*11)
}
}
}
repeat D 10 17
{
repeat A 0 4
{
repeat B 0 3
{
square3 (30+(A+A)*15) (28+(B+B)*23) D (10+(A+B)*11)
}
}
}


command square4 x y s c
{
pen (c/2)
line x y x (y+s)
line x (y+s) (x+s) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}
repeat A 0 5
{
repeat B 0 5
{
square4 (10+(A+A)*15) (10+(B+B)*15) 25 (10+(A+B)*8)
}
}
repeat A 4 0
{

}

彩色系!


// enter program
size 200 200
paper 0



command square x y s c
{
pen (c/20) 60 0
line x y (x+s) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}
command square2 x y s c
{
pen c 60 0
line (x-s) y x y
line x y (x-(s/2)) (y-s)
line (x-(s/2)) (y-s) (x-s) y
}

command square x y s c
{
pen 60 (c/2) 0
line x y x (y+s)
line x (y+s) (x+s) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}

command square5 x y s c
{
pen (c/2) 60 70
line x y x (y+s)
line x (y+s) (x+s) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}
repeat A 0 19
{
repeat B 0 19
{
square5 (A*10+2) (B*10+2) 5 (100-(A*B-50))
}
}

command square3 x y s c
{
pen 60 0 (c-20)
line x y (x+(s/2)) (y+s)
line (x+(s/2)) (y+s) (x+s) y
line (x+s) y (x+(s/2)) (y-s)
line (x+(s/2)) (y-s) x y
}
repeat D 10 17
{
repeat A 0 5
{
repeat B 0 3
{
square3 (15+(A+A)*15) (12+(B+B)*23) D (10+(A+B)*11)
}
}
}
repeat D 10 17
{
repeat A 0 5
{
repeat B 0 3
{
square2 (31+(A+A)*15) (45+(B+B)*23) D (10+(A+B)*11)
}
}
}
repeat D 10 17
{
repeat A 0 4
{
repeat B 0 3
{
square3 (30+(A+A)*15) (28+(B+B)*23) D (10+(A+B)*11)
}
}
}


command square4 x y s c
{
pen (c/2)
line x y x (y+s)
line x (y+s) (x+s) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}
repeat A 0 5
{
repeat B 0 5
{
square4 (10+(A+A)*15) (10+(B+B)*15) 25 (10+(A+B)*8)
}
}
repeat A 4 0
{

}

10/08 三原型-設計應用 飛向宇宙浩瀚無敵~!!

飛向宇宙浩瀚無敵~!!




概念:
剛看完PIXAR沒多久
想到玩具總動員巴斯常說的那句名言
於是有此創作

程式碼
// enter program

size 200 200
load dbngraphics.dbn

fast
Repeat A 30 45
{
circle 60 60 (A/2+5) 80
}


Repeat A 25 50
{
pen 80 30 0
rectangle A 25 A 50
}


Repeat A 0 200
{
pen 100
Line 0 (A*6) (A*6) 200
pen 60 20 0
Line 0 (A*6) (A*6) 160
}

Repeat A 0 200
{
pen 60 20 0
Line 160 (A*6) (A*6) 0
}


Repeat A 0 100
{
pen 100
Line 200 (A*6) (A*6) 0
}

Repeat A 35 40
{
pen 90 70 0
rectangle A 2 A 40
}

Repeat A 40 35
{
pen 90 70 0
rectangle 40 A 2 A
}

Repeat A 75 125
{
pen 20 30 60
triangle A 100 100 A 125 125
}

Repeat A 85 115
{
pen 80 30 40
triangle A 90 90 A 115 115
}

10/1 pattern 設計應用 黑白方塊

黑白方塊的組合
// enter program

fast
Repeat B 0 80

{
Repeat A 0 80

{
Set [(A*6) (B*6)] 100
}
}

Repeat B 0 25
{
Repeat A 0 25
{
Set [(A*6) (B*6)] 100
}
}

Repeat B 0 25
{
Repeat A 0 50
{
Set [(A*4) (B*4)] 75
}
}

Repeat C 1 4
{
Repeat B 0 30
{
Repeat A 0 30
{
Set [(A*C) (B*C)] (C*50)
}
}
}

field 0 0 40 40 100

field 60 60 100 100 80
field 20 60 40 80 60
field 5 5 15 15 0