2008-10-21（課堂練習－未完成）

size 200 200
paper 120 40 30
fast
set H 100
set V 100
set R 50
repeat A 10 0
{
repeat B 0 10
{
set [A B] (((A-H)*(A-H)+(B-V)*(B-V))/R)
}
}
repeat A 35 25
{
repeat B 0 25
{
set [A B] (((A-H)*(A-H)+(B-V)*(B-V))/R)
}
}