2009年12月8日 星期二

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





size 400 400
paper 0
fast
forever
{
set [ ]
}







size 300 500
paper 0
fast

forever
{
set [ ( +1) ( +1) ]
}


2009年11月12日 星期四

作業五 : Time-1234 , forever, refresh 的應用





繽紛交叉沙漏

size 300 100
paper 0
forever
{

Set S (S*2)

repeat a 100 0
{
pen (2*(a)) (a) (3*a)
line 300 (a*3) (s-30) 0



pen ((a)) (2*a) (3*a)

line 0 (s-30) (a*8) 100
}
}

2009年11月5日 星期四

期中考試 : 數位康丁斯基






Load dbngraphics.dbn
size 500 400
paper 46 139 87
fast
set M 50

//-------三角形------

//01
Repeat E 150 200
{
pen 100
triangle (M*4) E (M*4+25) (M*3) (M*3+25) (M*3)
}

//02
Repeat E 100 150
{
pen 100

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

//03
Repeat B 50 100
{
pen 100
triangle (M*4) B (M*3+25) M (M*4+25) M
}

//04
Repeat G 150 375
{
pen 139 35 35
triangle (M*7+25) G 250 (M*3) (M*7) (M*4)
}
//05
Repeat C 50 125
{
pen 139 69 19
triangle (M*8) C 300 (M*2+25) (M*9+25) (M*2+25)
}

//------------圓--------------
circle 400 0 100 100
circle 400 0 99 100
circle 400 0 98 100
circle 400 0 97 100
circle 400 0 96 100
circle 400 0 95 100
circle 400 0 94 100

//-------三角形------

//06
Repeat E 175 200
{
pen 255 255 0
triangle (M*7+25) E (M*8+25) (M*4) (M*7+25) (M*4)
}
//07
Repeat E 150 175
{
pen 255 10 48
triangle (M*7+25) E (M*8) (M*3+25) (M*7+25) (M*3)
}

//08
Repeat C 125 175
{
pen 100
triangle (M*9) C (M*8+25) (M*3+25) (M*9+25) (M*3+25)
}

//09
Repeat E 225 275
{
pen 47 79 79
triangle (M*7+25) E (M*9) (M*4+25) (M*7+25) (M*5)
}

//10
Repeat E 225 275
{
pen 139 20 10
triangle (M*9) E (M*9) (M*4+25) (M*7+25) (M*5+25)
}

//11
Repeat E 300 350
{
pen 139 37 0
triangle (M*6) E (M*5+25) (M*6+25) (M*6+25) (M*6+25)
}

//12
Repeat Y 50 200
{
pen 100
triangle (M*2) Y (M+25) M (M*2+25) M
}

//----------長框---------------------
Repeat A 375 450
{
pen 0
line A 208 A 216
}
//--------------------------------------
Repeat A 25 100
{
pen 255 255 0
line A 364 A 375
}

//-----------圓----------------
repeat A 0 50
{
pen 80 80 80
Circle 100 200 A A
}

circle 100 200 0 100
circle 100 200 1 100
circle 100 200 2 100
circle 100 200 3 100
circle 100 200 4 100
circle 100 200 5 100
circle 100 200 7 100
circle 100 200 9 100
circle 100 200 10 100
circle 100 200 11 100
circle 100 200 13 100
circle 100 200 15 100
circle 100 200 17 100

//----三角形13------------
Repeat F 200 300
{
pen 100
triangle (M*2) F (M*3) (M*6) (M*1) (M*6)
}

//-----------圓----------------
circle 100 200 59 100
circle 100 200 58 100
circle 100 200 57 100
circle 100 200 56 100
circle 100 200 55 100
circle 100 200 54 100
circle 100 200 53 100

2009年10月28日 星期三

作業四: 使用command square 結構綜合設計



特調 - 雪山 蜜桃氣泡飲
要甜蜜喔




size 300 100
paper 0


command square x y z c
{
pen (3*(c)) (c) (2*c)
line (0+(z)) (x+y-(z)) (5+(z)) (x+y-z)

line (x) (x+y-(y)) (300-(z)) (x+y-z)
}

repeat c 0 10
{
repeat a 0 6
{
repeat b 0 22
{

square a (b*13) (c*11) (b*6)

}

2009年10月21日 星期三

作業三: 使用三原型綜合設計創作

機械紋理



運用正方形、圓形和線條搭配金屬感的背景 組合而成的 機械紋理




Load dbngraphics.dbn
size 300 300
paper 100
fast
{
repeat A 0 300
{
pen (A*5-10) (A-10) (A*5-5)
line 300 (A*5) 0 (A*5)
}
repeat A 5 0
{
pen 0
line (25+A) 0 (25+A) 300
line (250+A) 0 (250+A) 300
line 0 (25+A) 300 (25+A)
line 0 (250+A) 300 (250+A)
}
}
repeat B 5 0
{
pen 100
line 25 (250+B) 30 (250+B)
line 25 (25+B) 30 (25+B)
line 250 (250+B) 255 (250+B)
line 250 (25+B) 255 (25+B)
}

pen 125 38 205
repeat a 0 100
{
line (150+a) 30 (150+a) 100
}
pen 93 71 139
repeat a 0 50
{
line (175+a) 30 (175+a) 75
}
pen 255 127 36
repeat a 0 20
{
line (190+a) 30 (190+a) 75
}
pen 255 255 0
rectangle 50 225 75 200
rectangle 100 225 125 200
rectangle 150 225 175 200
rectangle 200 225 225 200
rectangle 50 175 75 150
rectangle 50 125 75 100
rectangle 50 75 75 50
rectangle 62 210 240 40
rectangle 75 200 225 50
rectangle 74 199 224 49
rectangle 73 198 223 48
rectangle 100 175 200 75
rectangle 99 174 199 74
rectangle 98 173 198 73
rectangle 125 150 175 100
rectangle 124 149 174 99
rectangle 123 148 173 98
rectangle 122 147 172 97
circle 150 0 145 0
circle 150 0 125 0
circle 150 0 110 0
circle 150 0 90 0
circle 150 0 80 0
circle 150 0 77 0
circle 150 0 76 0
circle 150 0 75 0
circle 150 0 60 0
circle 150 0 50 0
circle 150 0 45 0
circle 150 0 40 0
circle 150 0 25 0
circle 150 0 24 0
circle 150 0 23 0
circle 150 0 22 0
circle 150 0 10 0
circle 150 0 5 0
circle 150 300 145 0
circle 150 300 125 0
circle 150 300 100 0
circle 150 300 75 0
circle 150 300 50 0
circle 150 300 25 0

2009年10月14日 星期三

作業二 : pattern 設計應用

pattern - 含羞花苞



運用線條的交錯,使外層的花瓣,層層包住花芯。




size 300 300
paper 0
fast

Repeat A 0 100
{
pen 255 20 147
line 0 (A*3) 5 (A*3)

pen 25
line 27 (A*3) 50 (A*3)

pen 255 20 147
line 27 (A*3) 32 (A*3)

pen 35
line 77 (A*3) 100 (A*3)
pen 255 20 147
line 77 (A*3) 82 (A*3)

pen 45
line 127 (A*3) 150 (A*3)
pen 255 20 147
line 127 (A*3) 132 (A*3)

pen 55
line 177 (A*3) 200 (A*3)
pen 255 20 147
line 177 (A*3) 182 (A*3)

pen 65
line 227 (A*3) 250 (A*3)
pen 255 20 147
line 227 (A*3) 232 (A*3)

pen 75
line 277 (A*3) 300 (A*3)
pen 255 20 147
line 277 (A*3) 282 (A*3)
}

Repeat A 0 300
{
pen 0 50 0
Line 200 (A*6) (A*6) 0


pen 139 0 0
Line 250 (A*6) (A*6) 0

pen 139 26 26
Line 300 (A*6) (A*6) 0

pen 139 0 139
Line 0 (A*6) (A*6) 200


pen 139 0 0
Line 0 (A*6) (A*6) 250

pen 0 50 0
Line 0 (A*6) (A*6) 300
}

2009年9月30日 星期三

作業一 :個人中文名字設計 –劉函霓


size 400 500
paper 95 30 50
pen 100 100 100
line 0 500 20 470
line 20 470 110 470
line 20 470 20 440
line 20 440 65 470
line 65 470 110 440
line 110 440 110 470
line 65 470 20 400
line 65 470 110 350
line 20 400 90 400
line 36 425 81 425
line 58 425 58 375
line 20 375 100 375
line 20 400 58 375
line 58 375 90 400
line 110 350 200 350
line 155 350 155 225
line 110 470 110 350
line 110 350 110 275
line 110 325 200 275
line 200 325 110 275
line 200 325 200 210
line 110 275 250 275
line 155 250 250 250
line 250 250 250 225
line 155 250 250 225
line 250 250 155 225
line 155 225 155 150
line 155 200 200 210
line 250 200 225 200
line 155 175 250 175
line 250 175 250 225
line 200 175 200 150
line 200 150 250 150
line 250 150 250 120
line 250 120 300 120
line 300 120 300 75
line 300 75 360 75
line 360 75 360 25
line 360 25 400 0
line 155 150 200 175