作業四-command square-大樓

size 250 250
paper 90
command square x y s c
{
pen x 50 45
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}fast

//四外圍repeat A 0 250
{
pen 50
line 0 A 20 A
}
repeat A 250 0
{
pen 50
line 250 A 230 A
}
repeat A 0 250
{pen 70
line A 230 A 250
}
repeat A 250 0
{pen 70
line A 20 A 0
}

//正方
repeat D 13 25
{
repeat A 0 7
{
repeat B 0 5
{
square (6+(A+A)*15) (12+(B+B)*20) D ((A+B)*8)
}
}
}
//協正芳
repeat A 37 0
{
repeat B 0 0{square (20+A*5) (20+A*5) 25 (A+B)
}
}
repeat A 16 0{repeat B 0 0{square (125+A*5) (20+A*5) 25 (A-B)
}
}
repeat A 17 0{repeat B 0 0{square (20+A*5) (120+A*5) 25 (A+B)
}
}

作業三-三元型綜合設計應用-洋

Load dbngraphics.dbnsize 300 400paper 25 60 150fast
pen 0//第一列-方rectangle 15 20 75 60rectangle 15 140 75 75rectangle 15 260 75 185rectangle 15 400 75 275
//第二列-方rectangle 85 20 145 60rectangle 85 140 145 75rectangle 85 260 145 185rectangle 85 400 145 275
//第三列-方rectangle 155 20 215 60rectangle 155 140 215 75rectangle 155 260 215 185rectangle 155 400 215 275
//第四列-方rectangle 225 20 285 60rectangle 225 140 285 75rectangle 225 260 285 185rectangle 225 400 285 275
set M 50
Repeat A 0 50{ pen 10 20 35triangle 0 0 (M/2) A M 0triangle M 0 (M+25) A (M*2) 0triangle (M*2) 0 (M*2+25) A (M*3) 0triangle (M*3) 0 (M*3+25) A (M*4) 0triangle (M*4) 0 (M*4+25) A (M*5) 0triangle (M*5) 0 (M*5+25) A (M*6) 0
triangle 0 400 (M/2) A M 400 triangle M 400 (M+25) A (M*2) 400triangle (M*2) 400 (M*2+25) A (M*3) 400triangle (M*3) 400 (M*3+25) A (M*4) 400triangle (M*4) 400 (M*4+25) A (M*5) 400triangle (M*5) 400 (M*5+25) A (M*6) 400}
pen 0 60 35//中間圓Circle 0 163 30 0Circle 75 163 20 0Circle 150 163 30 0Circle 225 163 20 0Circle 300 163 30 0
Circle 75 225 30 0Circle 225 225 30 0Circle 75 120 10 0Circle 225 120 10 0
//左下圓
circle 0 0 25 0circle 0 0 45 0circle 0 0 55 0circle 0 0 65 0circle 0 0 75 0circle 0 0 95 0
//右下圓circle 300 0 15 0circle 300 0 25 0circle 300 0 35 0circle 300 0 45 0circle 300 0 55 0circle 300 0 65 0circle 300 0 75 0circle 300 0 95 0
//左上圓circle 0 400 15 0circle 0 400 25 0circle 0 400 45 0circle 0 400 65 0circle 0 400 85 0circle 0 400 105 0circle 0 400 125 0circle 0 400 145 0
//右上圓circle 300 400 15 0circle 300 400 25 0circle 300 400 45 0circle 300 400 65 0circle 300 400 85 0circle 300 400 105 0circle 300 400 125 0circle 300 400 145 0

Patten-展

repeat-應用

size 300 300

paper 150 200 30
Repeat B 0 200

{

pen (B/2-70) (B-50)(B-80)
line 0 (B*50) 300 (B*5)

line 0 (B*50) 300 (B*6)

line 0 (B*50) 300 (B*7)

line 0 (B*50) 300 (B*8)

line 0 (B*50) 300 (B*9)

line 0 (B*50) 300 (B*10)

}
Repeat A 0 20

{

Repeat B 10 20

{

pen (A+60) 50 20

line (A*5) (B*50) (A*20) B

line (A*10) (B*50) (A*20) B
}

}