|
|
|
Example: Heart.eli Modified: June 2, 2000 Version: 2.0 Author: Pavel Boychev E-mail: pavel@elica.net Copyright © 2000 Elica Group |
run "geomland run "win make "da 10 make [hidden] "O point 0 1 make [hidden] "R make [hidden] "P make [hidden] "Q make "a 0 repeat 180/:da+1 [ make "r 7*:a/:da make "R ray :O 90+:a make "P pointon :R :r [traced] make "R ray :O 90-:a make "Q pointon :R :r [traced] make "a :a+:da ] to beat make local "i 0 repeat 360/20 [ make "scale 0.01+(cos :i)*0.004 updateview make "i :i+20 ] end make "beat1 button 20 20 150 24 "'Beat once' make "beat1.onclick [ beat ] make "beat2 button 20+150 20 150 24 "'Beat forever' make "beat2.onclick [ make "goonbeating "true while :goonbeating [ beat1.onclick, wait 0.4 ] ] make "beat3 button 20+300 20 150 24 "'Stop' make "beat3.onclick [ make "goonbeating "false ] |
|
|
|