Heart

Help Contents Examples Heart
Hanoi (3d Towers of Hanoi solver) Honey (3d)

Heart

Example:    Heart.eli
Modified:   June 2, 2000
Version:    2.0
Author:     Pavel Boychev
E-mail:     pavel@elica.net

Copyright © 2000 Elica Group

This is an example for defining buttons and responding to button clicks.

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
]

Reference:

Hanoi (3d Towers of Hanoi solver) Honey (3d)