作業九: 應用 判斷 same? notsame? 結構式 配合其它的指令創作

size 400 400

forever

{

paper 90 50 70

pen 30 80

set B 15

repeat A 20 50

{

same? A B

{

line A 90 A B

line (A*2) 50 (A*2) (B*2)

line (A*3) 0 (A*3) (B*3)

line (A*4) 0 (A*4) (B*4)

line (A*5) 0 (A*5) (B*5)

}

notsame? A B

{

line (A*4) 10 (A*4) (B*4)

line (A*5) 15 (A*5) (B*5)

line (A*6) 20 (A*6) (B*6)

line (A*7) 25 (A*7) (B*7)

line (A*8) 30 (A*8) (B*8)

line (A*9) 35 (A*9) (B*9)

line (A*10) 40 (A*10) (B*10)

line (A*11) 45 (A*11) (B*11)

}

}

}

作業七: 應用 Mouse-1-2-3 配合Time 4 --> 創作

葡萄！

作業八: po 個人心得300字

自畫像跟小丑

自畫像




小丑

期中考-融和

load dbngraphics.dbn
paper 50 90 70
size 400 300

//右中白線
repeat U 0 6
{
pen 0
line 276 (140+U) 360 (140+U)
}

//左上黃線
repeat P 0 8
{
pen 90 80 50
line 25 (275+P) 80 (275+P)
}

//上三角
repeat x 50 150
{
pen 40 0 0
line 100 175 x 250
}

//下三角
repeat x 75 125
{
pen 40 0 0
line 100 175 x 35
}

//上三角綠
repeat x 68 85
{
pen 10 80 0
line 100 175 x 222
}
repeat x 80 90
{
pen 10 80 0
line 100 175 x 225
}
repeat x 90 100
{
pen 10 80 0
line 100 175 x 226
}
repeat x 100 110
{
pen 10 80 0
line 100 175 x 226
}
repeat x 110 120
{
pen 10 80 0
line 100 175 x 225
}
repeat x 115 132
{
pen 10 80 0
line 100 175 x 222
}

//下三角紅
repeat x 90 110
{
pen 80 0 0
line 100 175 x 123
}


//大圓

circle 100 175 52 10
circle 100 175 53 20
circle 100 175 54 65
circle 100 175 55 70
circle 100 175 56 90
circle 100 175 57 100

//小圓

circle 100 175 20 80
circle 100 175 19 80
circle 100 175 18 80
circle 100 175 17 80
circle 100 175 16 80
circle 100 175 15 80
circle 100 175 14 80
circle 100 175 13 80
circle 100 175 12 80
circle 100 175 11 80
circle 100 175 10 80
circle 100 175 9 80
circle 100 175 8 80
circle 100 175 7 80
circle 100 175 6 80
circle 100 175 5 80
circle 100 175 4 80
circle 100 175 3 80
circle 100 175 2 80
circle 100 175 1 80


//中三角下
repeat x 165 185
{
pen 10 0 0
line 175 75 x 40
}

//中三角中
repeat x 155 195
{
pen 10 0 0
line 175 115 x 75
}

//中三角上
repeat x 150 200
{
pen 10 0 0
line 175 165 x 115
}

set Q 50

//大直角

Repeat Z 275 210
{
pen 90 10 20
triangle (Q*4+10) 110 Z (Q*2+10) (Q*4+75) (Q*4+75)
}

//右下大三角
Repeat X 235 365
{
pen 90 50 20
triangle (Q*6) 35 (Q*4+35) (Q*2) X (Q*2)
}

//下小直角
Repeat W 276 295
{
pen 60 20 30
triangle (Q*4+76) 110 W (Q*2+20) (Q*6-10) (Q*2+20)
}

//下小直角黃
Repeat V 276 300
{
pen 200 190 10
triangle (Q*4+76) 120 V (Q*2+35) (Q*6) (Q*2+35)
}

//右小黑三角
repeat x 310 340
{
pen 20 0 0
line 325 100 x 132
}

//右綠直角
Repeat T 276 340
{
pen 5 90 0
triangle (Q*4+76) 185 T (Q*2+53) (Q*6) (Q*2+53)
}

//右紅直角
Repeat T 276 340
{
pen 90 0 20
triangle (Q*6+40) (Q*2+53) T (Q*3+35) (Q*6+40) (Q*3+35)
}

作業5 - 鑽石

size 400 400
paper 0

//紅
repeat x 0 400
{
pen 5 (*20)
line 400 400 x 0
line 0 400 x 0
}

set a 400
//藍
repeat x 0 400
{
pen 5 (*20)
line (a/2) 200 x 400
}

set a 400
//橘
repeat x 400 0
{
pen 100 (*20)
line (a/2) 200 400 x
}

set a 400
//綠
repeat x 400 0
{
pen 0 (*20)
line (a/2) 200 x 0
}


set a 400
//粉紅
repeat x 0 400
{
pen 100 90
line (a/2) 200 0 x
}


set a 400
//鑽石
repeat x 0 400
{
pen 45 (*20)
line (a/2) 0 x 225
line (a/2) 400 x 225

}

作業4 - 階梯

size 300 300

paper 100

command square x y s c

{

pen c

line x (x) (x+x) (y+x)

line x x (x) y

}

repeat A 0 20

{

repeat B -10 0

{

square (A*20) (B*10+10) 10 (A+B*20)

}

}

repeat A 0 30

{

repeat B 20 -50

{

square (A*20) (B*10) 5 (A+B*20)

}

}

作業三: 三原型-菱

由三角形組成的菱形

Load dbngraphics.dbn
size 300 300
paper 0

set M 0

//300到0三角

Repeat A 300 0
{
pen 100 20 35

triangle 0 0 (M) (M) 300 A

}

//250到0三角

Repeat A 250 25
{
pen 90 20 35

triangle 0 0 (M) (M) 250 A

}

//200到0三角

Repeat A 200 50
{
pen 80 20 35

triangle 0 0 (M) (M) 200 A

}

//150到0三角

Repeat A 150 75
{
pen 70 20 35

triangle 0 0 (M) (M) 150 A

}

//100到0三角

Repeat A 100 50
{
pen 60 20 35

triangle 0 0 (M) (M) 100 A

}

//50到0三角

Repeat A 50 25
{
pen 50 20 35

triangle 0 0 (M) (M) 50 A

}

//0到300三角

Repeat A 0 300
{
pen 50 100 50

triangle 300 300 (M) (M+300) 0 A

}

//50到300三角

Repeat A 50 275
{
pen 50 91 50

triangle 300 300 (50) (M+275) 50 A

}

//100到300三角

Repeat A 100 250
{
pen 50 82 50

triangle 300 300 (100) (M+250) 100 A

}

//150到300三角

Repeat A 150 225
{
pen 50 73 50

triangle 300 300 (150) (M+225) 150 A

}

//200到300三角

Repeat A 200 250
{
pen 50 64 50

triangle 300 300 (200) (M+250) 200 A

}

//250到300三角

Repeat A 250 275
{
pen 50 55 50

triangle 300 300 (250) (M+275) 250 A

}

作業二 : pattern - Love Chu

paper 50 90 100
size 300 300
repeat E -20 180
{
pen 100 80 100
line 0 (165+E) 300 (165+E)
line 0 (10+E) 300 (10+E)
}
repeat D 0 8
{
pen 50 80 100
line 0 (280+D) 300 (280+D)
line 0 (260+D) 300 (260+D)
line 0 (240+D) 300 (240+D)
line 0 (220+D) 300 (220+D)
line 0 (200+D) 300 (200+D)
line 0 (180+D) 300 (180+D)
line 0 (160+D) 300 (160+D)
line 0 (140+D) 300 (140+D)
line 0 (120+D) 300 (120+D)
line 0 (100+D) 300 (100+D)
line 0 (80+D) 300 (80+D)
line 0 (60+D) 300 (60+D)
line 0 (40+D) 300 (40+D)
line 0 (20+D) 300 (20+D)
line 0 (0+D) 300 (0+D)
line (280+D) 0 (280+D) 300
line (260+D) 0 (260+D) 300
line (240+D) 0 (240+D) 300
line (220+D) 0 (220+D) 300
line (200+D) 0 (200+D) 300
line (180+D) 0 (180+D) 300
line (160+D) 0 (160+D) 300
line (140+D) 0 (140+D) 300
line (120+D) 0 (120+D) 300
line (100+D) 0 (100+D) 300
line (80+D) 0 (80+D) 300
line (60+D) 0 (60+D) 300
line (40+D) 0 (40+D) 300
line (20+D) 0 (20+D) 300
line (0+D) 0 (0+D) 300
}

repeat C -10 10
{
pen 100 80 100
line (150+C) 25 (180+C) 50
line (180+C) 50 (240+C) 100
line (240+C) 100 (260+C) 140
line (260+C) 140 (260+C) 180
line (260+C) 180 (255+C) 205
line (255+C) 205 (225+C) 225
line (225+C) 225 (210+C) 235
line (210+C) 235 (180+C) 230
line (180+C) 230 (150+C) 170

}

repeat F -10 10
{
pen 100 80 100
line (150+F) 170 (120+F) 230
line (120+F) 230 (90+F) 235
line (90+F) 235 (75+F) 225
line (75+F) 225 (45+F) 205
line (45+F) 205 (40+F) 180
line (40+F) 180 (40+F) 140
line (40+F) 140 (60+F) 100
line (60+F) 100 (120+F) 50
line (120+F) 50 (150+F) 25
}

repeat G -10 10
{
pen 100 80 100
line (-10+G) 290 (0+G) 300
line (-10+G) 265 (25+G) 300
line (-10+G) 240 (50+G) 300
line (-10+G) 215 (75+G) 300
line (-10+G) 190 (100+G) 300
line (-10+G) 165 (125+G) 300
line (-10+G) 140 (150+G) 300
line (-10+G) 115 (175+G) 300
line (-10+G) 90 (200+G) 300
line (-10+G) 65 (225+G) 300
line (-10+G) 40 (250+G) 300
line (-10+G) 15 (275+G) 300
line (0+G) 0 (300+G) 300
line (25+G) 0 (310+G) 285
line (50+G) 0 (310+G) 260
line (75+G) 0 (310+G) 235
line (100+G) 0 (310+G) 210
line (125+G) 0 (310+G) 185
line (150+G) 0 (310+G) 160
line (175+G) 0 (310+G) 135
line (200+G) 0 (310+G) 110
line (225+G) 0 (310+G) 85
line (250+G) 0 (310+G) 60
line (275+G) 0 (310+G) 35
line (300+G) 0 (310+G) 10
}

repeat M 0 8
{
pen 30 80 90
line 225 (75+M) 205 (70+M)
line 205 (70+M) 200 (55+M)
line 200 (55+M) 205 (40+M)
line 205 (40+M) 225 (35+M)
}

repeat N 0 8
{
pen 30 80 90
line 231 (35+N) 231 (70+N)
line 232 (35+N) 232 (70+N)
line 233 (35+N) 233 (70+N)
line 234 (35+N) 234 (70+N)
line 235 (35+N) 235 (70+N)
line 233 (55+N) 251 (55+N)
line 251 (35+N) 251 (70+N)
line 252 (35+N) 252 (70+N)
line 253 (35+N) 253 (70+N)
line 254 (35+N) 254 (70+N)
line 255 (35+N) 255 (70+N)
}

repeat P 0 8
{
pen 30 80 90
line 261 (40+P) 261 (65+P)
line 262 (40+P) 262 (65+P)
line 263 (39+P) 263 (65+P)
line 264 (39+P) 264 (65+P)
line 265 (38+P) 265 (65+P)
line 265 (38+P) 270 (35+P)
line 270 (35+P) 275 (35+P)
line 275 (35+P) 280 (38+P)
line 281 (38+P) 281 (65+P)
line 282 (38+P) 282 (65+P)
line 283 (39+P) 283 (65+P)
line 284 (39+P) 284 (65+P)
line 285 (40+P) 285 (65+P)
}

作業一 ：個人中文名字設計 –鐘子琳

size 500 400

paper 90 40 80

pen 60 20 100
line 25 200 120 325
line 120 325 180 250

line 90 250 150 250
line 80 200 400 200
line 120 250 120 75
line 75 135 120 75
line 50 75 400 75
line 120 75 170 130
line 150 250 450 250
line 215 300 225 250
line 180 250 225 200
line 225 200 270 250
line 200 125 200 175
line 200 175 275 175
line 275 175 275 125
line 200 125 275 125
line 235 175 235 75
line 210 100 265 100
line 200 150 475 150
line 350 300 400 300
line 400 300 375 275
line 375 275 400 250
line 400 250 375 225
line 350 200 350 75
line 400 200 400 75
line 400 150 375 100
line 400 150 425 100
line 450 250 450 75
line 450 150 425 100
line 450 150 475 100

老師的blog

http://311311.blogspot.com/