作業四: 結構綜合設計 -不規則對稱

size 200 200paper 50 30 80
command square x y s c{pen cline y y x (y+s)line x (y+s) (x+s) (y+s)line (x+s) (y+s) (x+s) yline (x+s) y x y}repeat A 50 -50{repeat B 0 20{square (10+(A+A)*15) (10+(B+B)*15) 50 (20+(A+B)*8)}}repeat A 4 0{repeat B 5 0{square (25+(A+A)*15) (25+(B+B)*15) 25 (10+(A+B)*7)}}

作業三-黑暗能量

load dbngraphics.dbn
paper 20
size 300 300
fast
pen 0 0 100triangle 150 200 108 123 192 123pen 0 100 0triangle 150 250 108 123 192 123pen 100 0 0triangle 150 300 108 123 192 123pen 0 0 100rectangle 25 25 275 275pen 0 100 0rectangle 50 50 250 250pen 0 0 100rectangle 75 75 225 225pen 100 0 0rectangle 100 100 200 200pen 0 60 0rectangle 125 125 175 175



repeat A 0 100{circle 0 10 (A/2+5) 90
}
repeat A 0 100{circle 300 290 (A/2+5) 90
}
repeat A 0 100{circle 300 10 (A/2+5) 90
}
repeat A 0 100{circle 10 300 (A/2+5) 90
}

作業二 : pattern 設計應用 -行人穿越道

size 300 300
fast

Repeat B 0 25

{

Repeat A 100 50

{

Set [(A*2) (B*12)] 75

}

}