Engine

#engine parts made with stampmaker

graphsize 720,300

rod={2,1,2,-1,1,-2,-13,-2,-14,-1,-14,1,-13,2,1,2,2,1}

piston={-1,1,-1,-1,0,-2,5,-2,6,-3,13,-3,13,3,6,3,5,2,0,2,-1,1}

cylinder={-3,3,10,3,10,-3,-3,-3,-3,-4,11,-4,13,0,11,4,-3,4,-3,3}

cross={-1,4,1,4,1,1,4,1,4,-1,1,-1,1,-4,-1,-4,-1,-1,-4,-1,-4,1,-1,1,-1,4}

fastgraphics

for x = 0 to 10000 step .1

clg

color rgb(80,80,80)

stamp 480+35*cos(x),150,10,sin(x)/4,rod

color rgb(20,20,20)

circle 360,150,50

color rgb(120,120,120)

stamp 360,150,10,-x,cross

color rgb(80,80,80)

stamp 240+35*(-cos(x)),150,10,-sin(-x)/4+pi,rod

color rgb(20,20,20)

stamp 480+35*cos(x),150,10,piston

stamp 240+35*(-cos(x)),150,10,pi,piston

stamp 560,150,10,cylinder

stamp 160,150,10,pi,cylinder

color rgb(120*(sin(x))+125,127,120*(sin(x+pi))+125)

rect 61,121,35*(-cos(x))+49,59

rect 611-35*(-cos(x)),121,35*(-cos(x))+52,59

refresh

rem pause .01

next x