|
|
|
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] |
|
|
|