TriCircles (simple)

Help Contents Examples TriCircles (simple)
Strophoid (simple) triFrac (3d)

TriCircles (simple)

constructs a triangle object and draws its biggest inner and smallest outer circle.

run "geomland

to simline :t1 :t2
	local "s "p
	make "s segment :t1 :t2
	make "p pointon :s (length :s) / 2
	output line :p 90 + (heading :s)
end
    
to bisec :a :b :c
	(output line :b ( (heading (ray :b :a))+(heading (ray :b :c)) )/2)
end
    
to triangle :a :b :c

	local "ab "bc "ca

	make "ab segment :a :b
	make "bc segment :b :c
	make "ca segment :c :a

	to ondrawimage 
	end

	to onclearimage 
	end
end
    
make "a point neg 80 neg 60 [labeled]
make "b point 100 neg 60 [labeled]
make "c point 70 80 [labeled]
make "tr triangle :a :b :c
make "o1 isec simline :a :b simline :a :c
make "k1 circle :o1 :a [labeled]
make "o2 isec bisec :a :b :c bisec :b :c :a
make "p isec segment :a :b line :o2 90 + (heading segment :a :b)
make "k2 circle :o2 :p [labeled]

Strophoid (simple) triFrac (3d)