作業九-三層琴鍵

size 400 200

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)

}
}
}

}