期末作業:'紡織

按滑鼠一下可以跑出一個X

連壓住滑鼠拖移可以看到顏色的變化

size 400 400

paper 80

fast
command rects x y w H V

{

repeat w (5*(-w)) (5*(w))

{

pen (/3) (/2)

line x y (x+w) (y+w)line x y (x-w) (y+w)

line x y (x+w) (y-w)line x y (x-w) (y-w)

}

}
forever

{

same? 100

{

rects 10 10 (100-)

}

}

作業十:動態海報

做人要一套

就是保險套

有了這一套

安全一把照



Load dbnletters.dbn



Fast

Size 200 200 1

Paper 100



Number keyCheck

{

Set keyValue 0

Repeat a 1 26

{

 Same?  100

 {

   set keyValue a

 }

}

Value keyValue



}





Set ax 2

Set ay 186



Forever

{

Refresh

Same?  100

{

 Set ax ((/12)*12+2)

 Set ay ((/12)*12+2)



 Field ax ay (ax+11) (ay+11) 100

}



Pen  (ax/2) (ay/2)

Pause 15

Set k 

NotSmaller? k 1

{



 Field ax ay (ax+11) (ay+11) 100



 Letter k ax ay





   Set ax (ax+12)

 NotSmaller? ax 188

 {

    Set ay (ay-12)

   Set ax 2

 }

 Smaller? ay 0

 {

   Set ay 186

 }

}

}

作業九:年年有魚

新年快到了
祝大家年年有魚

size 400 400
load dbngraphics.dbn

{
Paper 100 1 1
Pen 10
repeat A 0 100
{
Same? A 30
{
Line 0 (A*6) (A*6) 300
}

Notsame? A 30
{
Line 0 (A*6) (A*6) 300
}




Same? A 30
{
Line 300 (A*6) (A*6) 0
}

Notsame? A 30
{
Line 300 (A*6) (A*6) 0
}
}
}

Repeat A 30 20

{

circle 50 50 (A/2+10) 0

}