Stempelmaskine.
Her har jeg vist bare leget :-)
Figure figure = Position [0,0] Size[x,y] Origin[x/2,y*0.7] Unit x/14 Color "#c0c0c0";
/*
Axes axes = Color "black";
Grid grid = Color "blue";
Units units = Color "black";
*/
Timer t1 = From 0 To 2*pi Step pi/36 Tick 30 Infinite;
RadioButton tidknap = Text [ "Start tid"; "Stop tid" ] Action [ start t1; stop t1 ]
Position [20,20] Size [80,25];
Variable h = sqrt( 9 - cos(t1)^2 ) + sin(t1);
Circle c1 = Center[0,0] Radius 1 Size 1 Color "black";
Circle c2 = Center[0,0] Radius length([.52,2]) From angle([-.52,2]) To angle([.52,2]) Size 1 Color "black";
Point p1 = [cos(t1),sin(t1)] Size 2 Color "black";
Point p2 = [0,h] Size 2 Color "black";
Line k1 = Start [-.52,2] Dir [0,3.5] Size 1 Color "black";
Line k2 = Start [ .52,2] Dir [0,3.5] Size 1 Color "black";
Line k3 = Start [-.52,5.5] Dir [1.04,0] Size 1 Color "black";
Net stempel = Points p2+[-.5,0], p2+[.5,0], p2+[.5,1], p2+[-.5,1] Lines [0,1], [1,2], [2,3], [3,0];
Scene scene = stempel Color "black" "black";
Line stang = Start p2 Dir p1-p2 Size 1 Color "black";
Line eger = Start [0,0] Dir p1 Size 1 Color "black";