DM-4C-95452170-鄭毛毛: 1月 2010

2010年1月17日星期日

作業九-罪惡‧殺戮

size 400 400
paper 100

//??????????
set rseed
set bb (198621+)
set mm (98621 +)
number random n
{
set bl (rseed*bb+1)
set rseed (bl%mm)
value (rseed%n)
}

forever
{
fast
notsame? 0
{
repeat s 1 10
{
set
set
pause 1
}
repeat r 0 9
{
set h
repeat g 0 h
{
pen (100-(10*r))
line (+g) (+g) ( +(5*r))

}

}

set j
same? (j%3) 1
{

repeat k 0 400
{
pen 100
line k j k (j*9/8)
}

}

}
}

作業七-妖氣‧惡靈

妖氣‧惡靈

size 400 400
paper 100

fast
command rect x y c w h

{
pen 50 20
line (x-w/10) (y-h/10) (x+w/2) (y-h/2)
line (x+w/10) (y-h/10) (x+w/2) (y+h/2)
line (x+w/10) (y+h/10) (x-w/2) (y+h/2)
line (x-w/10) (y+h/10) (x-w/2) (y-h/2)
}

forever
{
rect
}

作業十：缺

load dbnletters.dbn

size 200 200 2
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
}
}