作業九

主題:極光
說明:用神秘的極光來作為靈感來源

截圖:

影片:


程式碼:

size 300 150 2
paper 100
fast


set rseed
set bb (3000+)
set mm (3000 +)
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)
}

}

}
}