Construction


Created by JSPgenerator.

JSPgenerator Source

//three mile zone
slider1=FixedPoint(10,10,'label(P)')
slider2=Point(200,10,'hidden')
sliderline=Line(slider1,slider2,'hidden')
slider=Point_on_object(sliderline,0.9,'label(Q(drag to alter radius)),blue')
radius=Segment(slider1,slider,'')
a=Point(100,100,'')
b=Point(150,200,'')
c=Point(250,60,'')
d=Point(150,125,'')
poly=Polygon(a,b,c,d,'')
p=Point_on_object(poly,0.2,'green')
e=Circle_by_radius(p,radius,'traced')
AnimateButton(10,30,'Animate',[p,poly],[2],[1],[1],'')