作業10

city

size 200 200
paper 100
fast
pen 0
line 80 0 80 200
line 80 100 140 100
line 140 100 140 0
line 140 155 200 155
line 140 155 140 0
line 110 185 110 100
line 110 185 150 185
line 150 185 150 155

command rects x y w h r g b
{
pen r g b
repeat w1 (-w) (w)
{
pen r g b
line (x+(w1/4)) (y-h/4) (x+(w1/4)) (y+h/4)
}
}
forever
{
rects 20 30
}

作業9

條碼

size 200 100
forever
{
Paper 0
Pen 100
set B 40
repeat A 0 100
{ Same? A B
{
line (A*4) 0 (A*4) (B*4)
line (A*5) (A*5) 0 (B*5)
}
Notsame? A B
{
line (A*5) 0 (A*5) (B*5)
line (A*4) 0 (A*4) (B*4)
}
}
}

期末考

size 400 400
paper 100
fast

command rects x y w h r g b
{
pen r g b
repeat w1 0 50
{
pen r g b
line (x+(w1*4)) (y-h) (x+(w1*4)) (y+h)
}
}

forever
{
same? 100
{
rects 10 14
paper (/4)
}
same? 0
{
rects 5 5
}
}

size 400 400
paper 100
fast

command rects x y w h r g b
{
pen r g b
repeat w1 0 50
{
pen r g b
line (x+(w1/4)) (y-h*2) (x+(w1/4)) (y+h)
}
}

forever
{
same? 100
{
rects 10 14
paper (/4)
}
same? 0
{
rects 5 5
}
}

這是抽象的北極光!!影片上傳在e化=)!!

mouse1-2-3 配合time

像是水草，在水裡自在悠游size 300 300

paper 30 60 80

fast

command rect x y w h c

{

pen 100 60

line (x-w/10) (y+h) (x-w) (y+h/10)

}

forever

{

rect 50 40

}

像是小時候在樹林裡奔跑陽光透過樹之間灑下，帶著速度感~哈

size 300 300
paper 0
fast
command rect x y w h c
{
pen 100 50
pen 45 60
line (x-w/10) (y+h) (x-w) (y+h/10)
line (x-w) (y-h) (x-w) (y-h)
line (x+w) (y+h/3) (x+w) (y+h/3)

}
forever
{
rect 50 40

作業六

不知道為什麼之前PO的作業六不見了，

所以重新補上影片!!

作業五-forever

size 200 200
forever
{
repeat A 0 200
{
pen 60 (A-35) 70
line A 0 A 200
line 200 A 0 A
}
repeat A 0 200
{
pen 35 (A-35) 10
line (A-20/2) 0 (A-20/2) 200
line 200 (A-20/2) 0 (A-20/2)
}
}

size 200 200
load dbngraphics.dbn
forever
{
repeat A 0 200
{
pen 60 (A-35) 70
line A 0 A 200
line 200 A 0 A
}
repeat A 0 200
{
pen 80 (A-35) 15
line (A*3-10) 0 (A*3-10) 200
line 200 (A*3-10) 0 (A*3-10)
}
repeat A 0 200
{
pen 180 (A-35) 10
line 200 (A*2-10) 0 (A*2-10)
line 0 (A*2-10) 200 (A*2-10)
}
circle 100 200 110 0
circle 100 200 90 0
circle 100 0 110 0
circle 100 0 90 0
circle 0 100 110 0
circle 0 100 90 0
circle 200 100 110 0
circle 200 100 90 0
}

期中：數位康丁斯基

load dbngraphics.dbn
paper 40 65 65
size 400 300
fast

Repeat A 78 73
{
circle 95 300 A (100-A+30)
}
Repeat A 70 65
{
circle 95 270 A (100-A+10)
}
//BG
pen 40 65 65
Repeat A 150 300
{
line 75 A 220 A
}
//BG
pen 40 65 65
Repeat A 250 300
{
line 0 A 40 A
}
//red
pen 90 10 0
Repeat A 75 160
{
line A 125 75 280
}
//red
pen 80 10 10
Repeat A 175 200
{
line 25 A 75 175
}

//Green
pen 15 30 0
Repeat A 175 200
{
line 25 200 74 A
}
//white
pen 100 100 100
repeat A 164 170
{
line 10 A 74 A
}
//yellow
pen 80 70 15
Repeat A 155 135
{
line 50 155 74 A}
//red
pen 80 10 10
repeat A 125 135
{
line 60 135 74 A
}
//black
pen 0 0 0
Repeat A 25 50
{
line A 147 37 120}
//orange
pen 80 50 10
repeat A 10 120
{
line A 120 64 50
}
//red 4
pen 80 5 10
Repeat A 130 180
{
line A 230 155 255
line A 230 155 205
}
//3 black
Pen 0 0 0
Repeat A 210 235
{
line A 55 222 95
}

pen 0 0 0
repeat A 195 250
{
line A 95 222 135
}
pen 0 0 0
repeat A 185 260
{
line A 135 222 185
}
//red
pen 35 0 0
Repeat A 285 355
{
line A 45 320 185
}
//black
pen 0 0 0
repeat A 265 375
{
line A 250 320 185
}
//
Repeat A 0 40
{
circle 320 185 (A/2) 90
}
//

circle 320 185 61 100
circle 320 185 60 100
circle 320 185 59 100
circle 320 185 58 100
circle 320 185 57 100
circle 320 185 56 100
circle 320 185 55 100
circle 320 185 54 100
circle 320 185 53 100

//yellow 4
pen 90 75 10
repeat A 270 275
{
line 330 A 375 A
}
//
Repeat A 70 60
{
circle 64 1 A (135-A+50)
}