作業九-罪惡‧殺戮

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)
}

}

}
}