Applet starten |
JSP-Generator 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],'')