作業十: 應用 Key 整合判斷結構式 配合其它的指令--> 創作具有主題性的動態海報設計

踩地雷


//載入字母函式庫
load dbnletters.dbn

size 200 200
fast
paper 100

//設計一個檢查按下哪一個按鍵的功能
number keycheck
{
set keyvalue 0
repeat a 1 26
{
same? 100
{
set keyvalue a
}
}
value (keyvalue)
}

set k 0
forever
{

//設定字母顏色
pen (/2) (/2)

//依據所按的字母來畫圖
set k

letter k ((/12)*12+2) ((/12)*12+2)

notsmaller? k 26
{
set k 0
}
}

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

迷幻





程式碼
size 300 300
forever
{
paper 100
pen 80 40
set B 10
repeat A 0 100
{
same? A B
{
line A 0 A B
line (B*2) 0 (B*2) (A*2)
line (B*3) 0 (B*3) (A*3)
line (B*4) 0 (B*4) (A*4)
line (B*5) 0 (B*5) (A*5)
line (B*6) 0 (B*6) (A*6)

}
notsame? A B
{
line (A*1) 45 (B*1) (A*1)
line (A*2) 40 (B*2) (A*2)
line (A*3) 35 (B*3) (A*3)

line (A*6) 20 (B*6) (A*6)
line (A*7) 15 (B*7) (A*7)
line (A*8) 10 (B*8) (A*8)
line (A*9) 5 (B*9) (A*9)
line (A*9) 0 (B*10) (A*10)

}
}
}

作業八: 個人心得300字

程式藝術高手
馬里烏斯瓦茲（Marius Watz）

馬里烏斯瓦茲深受藝術運動的啟發，例如歐普藝術（Op Art；以 Victor Vasalery 為代表人物）
、絕對主義（Suprematism；Kasimir Malevich 於 1915 年提出）和其他幾何形式的抽象藝術。
此時，我受到的影響是普羅文化－音樂、時尚和設計。

每件作品的開始，都有一個很簡單的想法－－或許是幾何構圖的系統、或者可能產生有趣圖形的某種運作。我不畫在紙上，只是坐到電腦前，直接照我所想的撰寫編碼。最後的結果經常和原本所想的非常不一樣。很喜愛這樣的意外驚喜，很開心獲得超乎意外的成果，比我的原本計畫更棒！

他是一位能讓手繪技術的創作呈現在電腦繪畫設計上的一位偉大的設計師，看得出他真的是天才
，看到他們自我介紹，真的下了許多的功夫，才有到現在程式藝術高手這個稱號，像我們都對程式這方面沒有很大的興趣，但是也要懂一些些，才大概看得懂再寫些什麼，雖然現在的職場上，只要你會程式，就會略勝一籌，所以我們還是ˋ要多多的學習一些新的軟體與程式方面的應用等。

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

河流






size 400 400
paper 100
fast
command rect x y w h c
{
pen 60 70
line (x-w/3) (y-h/3) (x+w/3) (y-h/3)
line (x+w/2) (y-h/2) (x+w/2) (y+h/2)
line (x+w/2) (y+h/2) (x-w/2) (y+h/2)
line (x-w/2) (y+h/2) (x-w/2) (y-h/2)
}
forever
{

same? 100

{
rect 50 20
}
}

作業六: 應用 Mouse-paint-->「自畫像」&「自由創作」 各一幅

作業五 : 蝴蝶紙雕燈罩

size 200 200
paper 100

forever
{
//righrup
repeat x 200 0
{
pen 75 (*20)
line 150 150 100 x
line 150 150 100 x
line 150 150 x 100
line 150 150 x 100
}

//leftdown
repeat x 200 0
{
pen 20 (*20)
line 50 50 100 x
line 50 50 100 x
line 50 50 x 100
line 50 50 x 100
}
//rightdown
repeat x 200 0
{
pen 50 (*20)
line 150 50 100 x
line 150 50 100 x
line 150 50 x 100
line 150 50 x 100
}

repeat x 200 0
{
pen 100 (*20)
line 50 150 100 x
line 50 150 100 x
line 50 150 x 100
line 50 150 x 100
}
}

期中考試 : 數位康丁斯基

load dbngraphics.dbn
paper 88 138 98
size 400 300
fast

//直角三角形
set M 50
Repeat C 100 250
{
pen 70 15 25
triangle (M*5+25) C (M*4) (M*2) (M*5) (M*2)
}

//左綠直角
set A 125
//green
Repeat N 135 160
{
pen 20 40 30
triangle 280 135 (A+151) N (A+220) 135
}


//右下大倒三角
Repeat A 235 375
{
pen 100 65 0
line A 95 305 25
}
pen 100
triangle 160 110 180 154 200 110


set M 36
Repeat B 36 75
{
pen 100
triangle (M*5) B (M*4+20) M (M*5+15)M
}

pen 80 70 26
//右下長方形
line 276 127 370 127
line 276 128 370 128
line 276 129 370 129
line 276 130 370 130
line 276 131 370 131
line 276 132 370 132
line 276 133 370 133

set M 50
//第三行
Repeat C 75 110
{
pen 100
triangle (M*3+29) C (M+110) (M+25) (M*4) (M+25)
}


pen 80 70 20
//左上長方形
line 30 260 90 260
line 30 261 90 261
line 30 262 90 262
line 30 263 90 263
line 30 264 90 264
line 30 265 90 265
line 30 266 90 266
line 30 267 90 267


//重複畫直線組成一個三角形，同時重複畫筆的顏色。
Repeat A 250 200
{
pen 30 50 10
line A 200 200 A
}

Repeat A 250 200
{
pen 100 20 0
line 250 A A 250
}

//圓心

Repeat A 0 48
{
circle 100 150 (A/2+2) 90
}


//左上倒三角
Repeat C 40 165
{
pen 30 0 0

triangle C (M*4+25) (M*2) (M*3) (M*2) (M*4)
}

//外圓
Repeat A 50 60
{
circle 100 150 (A/2+35) 100
}

//右下小倒三角
Repeat A 330 360
{
pen 35 25 0
line A 125 346 95
}


set M 18
Repeat B 18 150
{
pen 49 3 3
triangle (M*5+10) B (M*6+30) M (M*3+15) M
}

command square 結構綜合設計

主題：蕨類

參考圖片↓

完成↓

程式碼↓ load dbngraphics.dbnsize 200 200paper 100 command square3 x y s c{ pen c 80 12 line y s x (x+c) line x (y+c) (y+s) (x+s) line x (x+c) (x+s) (c+s) line (y+s) (c+s) (y+s) c line (y+c) s c y}repeat A 0 10{ repeat B 0 5 { square3 (2+(A+B)*15) (10+(A+A)*15) 55 ((A+B)*4) }} command square4 x y s c{ pen c 54 27 line y s x (x+c) line x (y+c) (y+s) (x+s) line x (c+c) (x+s) (c+s) line (x+s) (c+s) (y+s) c line (y+c) x c y}repeat A 0 10{ repeat B 0 5 { square4 (2+(A+B)*15) (10+(A+A)*15) 55 ((A+B)*4) }}

作業三: CPU

Load dbngraphics.dbn
size 300 300
paper 0 40 60
pen 0


rectangle 20 20 280 280
rectangle 25 25 275 275
rectangle 30 30 270 270
rectangle 35 35 265 265
rectangle 40 40 260 260
rectangle 45 45 255 255
rectangle 50 50 250 250
rectangle 55 55 245 245
rectangle 60 60 240 240
rectangle 65 65 235 235
rectangle 70 70 230 230
rectangle 75 75 225 225

field 75 75 225 225 100

//第一列-小方形

rectangle 80 110 110 80
rectangle 80 115 110 145
rectangle 80 150 110 180
rectangle 80 185 110 215

//第二列-小方形
rectangle 115 110 145 80
rectangle 115 115 145 145
rectangle 115 150 145 180
rectangle 115 185 145 215

//第三列-小方形
rectangle 155 110 185 80
rectangle 155 115 185 145
rectangle 155 150 185 180
rectangle 155 185 185 215

//第四列-小方形
rectangle 190 110 220 80
rectangle 190 115 220 145
rectangle 190 150 220 180
rectangle 190 185 220 215

pattern - 日出

load dbngraphics.dbn
size 350 350
paper 0 0 20

repeat A 0 350
{
pen 30 24 A
line 0 A 350 A
}

Repeat A 350 0
{
pen 255 255 0 Line (5+A/10) 0 (0+A*60) 350
}
Repeat A 350 0
{
pen 255 69 0 Line (0+A/10) 0 (0+A*20) 325
}
Repeat A 350 0
{
pen 100 0 0 Line (1+A/5) 0 (0+A*10) 280
}

個人中文名字設計 –楊子瑩

size 500 500
paper 100 50 80

pen 0
line 75 450 75 25
line 25 400 470 400
line 75 175 130 255
line 75 175 25 255
line 75 150 275 150
line 225 175 275 250
line 225 175 175 250
line 275 150 275 25
line 225 250 225 150
line 470 400 385 290
line 385 290 385 25
line 385 25 330 100
line 100 125 250 125
line 100 85 250 85
line 100 45 250 45
line 175 45 175 125
line 235 45 215 65
line 200 430 275 430
line 200 455 275 455
line 200 455 200 400
line 275 400 275 455
line 300 200 470 200
line 275 400 175 300
line 375 400 285 295