Lines (simple)

Help Contents Examples Lines (simple)
Integral (simple 3d) Long-dynamic-vars (text)

Lines (simple)

Example:    Lines.eli
Modified:   March 5, 2000
Version:    2.0
Author:     Pavel Boychev
E-mail:     pavel@elica.net

Copyright © 2000 Elica Group

This is a nice little drawing example. The optical illusion of nested figures is made by the trace of a line two points of which are running on a circle.

run "geomland

to rainbow :x
	if x < 1/4 
	[ output rgb_ 4*x 0 2/4-2*x ]
	[
		if x < 2/4 
		[ output rgb_ 1 4*x-1 0 ]
		[
			if x < 3/4 
			[ output rgb_ 3-4*x 1 4*x-2 ]
			[ output rgb_ (4*x-3)/2 4-4*x 1 ]
		]
	]
end

to fancy :obj
	make "obj.color rainbow q
	output obj
end

make [hidden] "k

make "i 0
make "imax 1000

repeat :imax
[
	make "q i/imax
	make "k circle point 0 0 100*q
	make "s fancy line pointon k 5*360*q pointon k 10*360*q [traced]
	make "i i+1
]

Integral (simple 3d) Long-dynamic-vars (text)