Home » Archimedes archive » Acorn User » AU 1993-08.adf » !StarInfo_StarInfo » Engine/Engine
Engine/Engine
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1993-08.adf » !StarInfo_StarInfo |
| Filename: | Engine/Engine |
| Read OK: | ✔ |
| File size: | 372C bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Engine 20REM By JE Tarrant 30REM For 32-bit machines 40REM (c) BAU August 1993 50: 60REM Starts on inlet stroke with piston at T.D.C and crank angle zero. 70REM Uses PROCblock4A which is slightly quicker than PROCblock3 80 90REM Draws piston & engine casing as sprites. 100REM Also only plots valve lift when not in dwell phase. 110 120REM Load BASIC into RMA to increase speed. Use *RMFASTER BASIC 130REM Done via !RUN file when run from !Engine application. 140 150MODE12 160*FX112,1 170*FX113,1 180ON ERROR PROCerror 190 200REM SYS"OS_UpdateMEMC",64,64 NOTE DOES NOT WORK WITH RISC OS3 210VOICE 1,"Percussion-Medium" 220 230REM Set colours including various shades of grey for engine components. 240PROCsetColours 250 260REM Set background colour on normal and shadow screens. 270COLOUR black%+128:CLS 280*FX112,2 290COLOUR black%+128:CLS 300PROCdimensions 310PROCcasing 320cam_step%=20 330start%=0 340step%=cam_step%*2 350fin%=start%+720-step% 360excam_start%=300 370incam_start%=210 380screen%=2 390 400REM Start main loop. 410REPEAT 420excam_angle%=excam_start% 430incam_angle%=incam_start% 440REM time=0:TS=TIME 450FOR cr_ang%=start% TO fin% STEP step% 460SYS"OS_Byte",112,screen% 470*SChoose casing 480ORIGIN 0,0:PLOT &ED,ox_cr%-flywheel_dia%*1.25,oy_cr%-flywheel_dia%*1.25 490 500REM Calc big end,little end positions etc. 510h_throw%=crank_throw%*SINRAD(cr_ang%) 520v_throw%=crank_throw%*COSRAD(cr_ang%) 530con_ang=-DEG(ASN(h_throw%/conrod_cts%)) 540v_cts%=ABS(conrod_cts%*COSRAD(con_ang)) 550ox_be%=ox_cr%+h_throw% 560oy_be%=oy_cr%+v_throw% 570ox_le%=ox_cr% 580oy_le%=oy_be%+v_cts% 590 600REM Draw crankshaft. 610PROCcrankshaft(crank_throw%,crankshaft_dia%,flywheel_dia%,crankarm_top%,crankarm_base%,cr_ang%,ox_cr%,oy_cr%) 620 630REM Draw con rod. 640PROCconrod(conrod_cts%,bigend_dia%,bigend_journal_dia%,conrod_base%,conrod_top%,con_ang,ox_be%,oy_be%) 650 660REM Draw piston. 670*SChoose piston 680ORIGIN ox_le%,oy_le%:PLOT &ED,-bore% DIV 2,-piston_height%*0.55 690 700REM Draw cams. 710PROCcam(cam_lift%,dwell_rad%,excam_angle%,ox_excam%,oy_cam%) 720PROCcam(cam_lift%,dwell_rad%,incam_angle%,ox_incam%,oy_cam%) 730 740REM Calc. valve positions and draw valves. 750IF excam_angle%>=excam_op_start% AND excam_angle%<=excam_op_fin% THEN 760PROCvalvePos(ox_excam%,oy_cam%,exvalve_angle%,h_exvalve%,v_valve%,dwell_rad%,cam_lift%,med_grey,ox_exvalve%,oy_exvalve%) 770ox_exvalve%=ox_exvalve%+ox_excam%:oy_exvalve%=oy_cam%-oy_exvalve% 780ELSE ox_exvalve%=ox_exvalve_shut%:oy_exvalve%=oy_exvalve_shut% 790ENDIF 800 810PROCvalve(valve_dia%,upper_dia%,head_thickness%,valve_length%,stem_dia%,exvalve_angle%-90,ox_exvalve%,oy_exvalve%) 820 830IF incam_angle%>=incam_op_start% AND incam_angle%<=incam_op_fin% THEN 840PROCvalvePos(ox_incam%,oy_cam%,invalve_angle%,h_invalve%,v_valve%,dwell_rad%,cam_lift%,med_grey,ox_invalve%,oy_invalve%) 850ox_invalve%=ox_incam%+ox_invalve%:oy_invalve%=oy_cam%-oy_invalve% 860ELSE ox_invalve%=ox_invalve_shut%:oy_invalve%=oy_invalve_shut% 870ENDIF 880 890PROCvalve(valve_dia%,upper_dia%,head_thickness%,valve_length%,stem_dia%,invalve_angle%-90,ox_invalve%,oy_invalve%) 900 910REM Display shadow screen. 920WAIT:SYS"OS_Byte",113,screen% 930IF cr_ang%>30 AND cr_ang%<350 THEN COLOUR bore_colour%,224,224,0:COLOUR inport_colour%,224,224,0:COLOUR export_colour%,0,0,0:REM Yellowish for inlet stroke. 940IF cr_ang%>180 THEN COLOUR inport_colour%,0,0,0 950IF cr_ang%>350 THEN COLOUR bore_colour%,224,192,0:REM Orangey for power stroke. 960IF cr_ang%>350 AND cr_ang%<350+step% THEN SOUND 1,-15,69,50 970IF cr_ang%>560 THEN COLOUR export_colour%,224,192,0:REM Orangey for exhaust stroke. 980 990REM Toggle screen ready for next frame. 1000screen%=screen% EOR %11 1010excam_angle%=(excam_angle%+cam_step%) MOD 360:incam_angle%=(incam_angle%+cam_step%) MOD 360 1020NEXT 1030 1040UNTIL FALSE 1050 1060END 1070 1080REM************************************ 1090 1100DEF PROCcrankshaft(throw%,shaft_dia%,flywheel_dia%,arm_top%,arm_base%,angle%,x%,y%) 1110 1120LOCAL blank_width%,base_rad%,shaft_rad%,st%,fin%,step%,a% 1130 1140blank_width%=flywheel_dia%*1.1 1150base_rad%=arm_base% DIV 2 1160shaft_rad%=shaft_dia% DIV 2 1170st%=angle%+20 1180fin%=st%+240 1190step%=120 1200ORIGIN x%,y% 1210 1220REM Draw flywheel disc and blank out half. 1230GCOL med_light_grey 1240CIRCLEFILL 0,0,flywheel_dia% DIV 2 1250PROCblock(flywheel_dia%*0.6,blank_width%*1.05,blank_width%*0.55,angle%,black%) 1260 1270REM Draw crank arm. 1280PROCblock(throw%,arm_base%,arm_top%,angle%,med_light_grey) 1290 1300REM Draw crankshaft journal. 1310CIRCLEFILL 0,0,base_rad%:REM Ensure no join lines show. 1320GCOL red% 1330CIRCLEFILL 0,0,shaft_rad% 1340 1350REM Draw 3 highlights to create impression of rotation. 1360FOR a%=st% TO fin% STEP step% 1370PROCblock(shaft_rad%,0,15,a%,light_grey) 1380NEXT 1390 1400ENDPROC 1410 1420REM******************************* 1430 1440DEF PROCconrod(centres%,bigend_dia%,journal_dia%,base%,top%,angle,x%,y%) 1450 1460LOCAL bigend_rad%,factor1,factor2 1470 1480ORIGIN x%,y% 1490bigend_rad%=bigend_dia% DIV 2 1500factor1=0.65 1510factor2=0.75 1520 1530REM Draw main section and main inner section. 1540PROCblock(centres%,base%,top%,angle,med_grey) 1550PROCblock(centres%,base%*factor1,top%*factor1,angle,med_light_grey) 1560 1570REM Draw big end, big end inner ring and big end journal. 1580GCOL med_grey:CIRCLEFILL 0,0,bigend_rad% 1590GCOL med_light_grey:CIRCLEFILL 0,0,bigend_rad%*factor2 1600GCOL red%:CIRCLEFILL 0,0,journal_dia% DIV 2 1610GCOL black%:CIRCLE 0,0,journal_dia% DIV 2 1620 1630ENDPROC 1640 1650REM********************************** 1660 1670DEF PROCpiston(dia%,height%,pin_dia%,x%,y%) 1680 1690LOCAL rad%,pin_height%,pin_rad%,pin_rad_inner%,ring_gap%,ring_width% 1700LOCAL ring_no%,st%,fin%,s%,pass%,pos%,h% 1710 1720rad%=dia% DIV 2 1730pin_height%=height%*0.55 1740pin_rad%=pin_dia% DIV 2 1750pin_rad_inner%=pin_rad% *0.75 1760ring_gap%=(height%-pin_height%) DIV 5 1770ring_width%=ring_gap%*0.15 1780 1790ORIGIN x%,y% 1800GCOL light_grey 1810 1820REM Draw piston body. 1830RECTANGLEFILL -rad%,-pin_height%,dia%,height% 1840 1850REM Draw rings. 1860GCOL med_light_grey 1870 1880FOR ring_no%=1 TO 3 1890RECTANGLEFILL -rad%,(height%-pin_height%)-ring_gap%*ring_no%,dia%,ring_width% 1900NEXT 1910 1920REM Draw vertical shading. 1930GCOL med_light_grey 1940st%=5 1950fin%=65 1960s%=10 1970 1980FOR pass%= 1 TO 2 1990FOR pos%=st% TO fin% STEP s% 2000h%=rad%*COSRAD(pos%) 2010LINE -h%,-pin_height%,-h%,height%-pin_height% 2020NEXT 2030 2040st%=115 2050fin%=175 2060NEXT 2070 2080REM Draw gudgeon pin. 2090GCOL red% 2100CIRCLEFILL 0,0,pin_rad% 2110GCOL black% 2120CIRCLEFILL 0,0,pin_rad_inner% 2130 2140ENDPROC 2150 2160REM***************************** 2170 2180DEF PROCvalve(dia%,inner_dia%,thickness%,length%,stem_dia%,angle%,x%,y%) 2190 2200ORIGIN x%,y% 2210PROCblock(thickness%,dia%,inner_dia%,angle%,med_light_grey) 2220PROCblock(length%,stem_dia%,stem_dia%,angle%,med_light_grey) 2230 2240ENDPROC 2250 2260REM************************** 2270 2280DEF PROCcam_centres(RETURN x1%,RETURN x2%,RETURN y%,RETURN angle%,RETURN r%,cyl_bore%,valve_dia%,comb_chamber_height%,valve_len%,cam_dwell_rad%,crank_x%,crank_y%,crank_throw%,conrodcts%,piston_height%) 2290 2300LOCAL hv%,valve_chambertop%,vv%,a%,ch%,cv% 2310 2320REM Establish position of valve head. 2330hv%=cyl_bore%-2.5*valve_dia% 2340r%=(cyl_bore%^2+(4*comb_chamber_height%^2))/(8*comb_chamber_height%) 2350valve_chambertop%=r%-0.5*SQR(4*r%^2-(hv%*2)^2) 2360vv%=comb_chamber_height%-valve_chambertop% 2370 2380REM Establish valve angle. 2390a%=DEG(ASN(hv%/r%)) 2400angle%=90-a% 2410 2420REM Establish cam centres relative to valve head. 2430ch%=(valve_len%+dwell_rad%)*COSRAD(angle%) 2440cv%=(valve_len%+dwell_rad%)*SINRAD(angle%) 2450 2460REM Establish main cam centre coordinates. 2470x1%=crank_x%-ch%-hv% 2480x2%=crank_x%+ch%+hv% 2490y%=crank_y%+crank_throw%+conrodcts%+piston_height%*0.45+vv%+cv% 2500 2510ENDPROC 2520 2530REM******************************* 2540 2550DEF PROCcam(lift%,base_rad%,angle%,x%,y%) 2560 2570LOCAL blank_base% 2580 2590blank_base%=base_rad%*2+10 2600ORIGIN x%,y% 2610GCOL med_grey 2620ELLIPSEFILL 0,0,lift%,base_rad%,-RAD(angle%) 2630PROCblock(lift%+4,blank_base%,blank_base%,angle%+90,black%) 2640GCOL med_grey 2650CIRCLEFILL 0,0,base_rad% 2660GCOL red% 2670CIRCLEFILL 0,0,base_rad%*0.5 2680 2690ENDPROC 2700 2710REM********************** 2720 2730DEF PROCvalvePos(x%,y%,angle%,h_valve%,v_valve%,dwellRad%,lift%,colour%,RETURN h%,RETURN v%) 2740 2750LOCAL sin,cos,start%,fin%,pos%,check% 2760 2770ORIGIN x%,y% 2780sin=SINRAD(angle%) 2790cos=COSRAD(angle%) 2800start%=dwellRad%-5 2810fin%=lift%+5 2820 2830REPEAT 2840pos%=(fin%-start%)DIV 2+start% 2850h%=pos%*cos 2860v%=pos%*sin 2870check%=POINT(h%,-v%) 2880IF check%=colour% THEN start%=pos% ELSE fin%=pos% 2890UNTIL fin%-start%<2 2900 2910h%+=h_valve% 2920v%+=v_valve% 2930 2940ENDPROC 2950 2960REM*********************** 2970 2980DEF PROCerror 2990 3000ON ERROR OFF 3010MODE 12 3020IF ERR=17 THEN 3030PRINT"Escape pressed" 3040REM SYS"Wimp_CommandWindow",-1 3050ELSE REPORT 3060PRINT" at line ";ERL 3070ENDIF 3080END 3090ENDPROC 3100 3110REM******************************* 3120 3130DEF PROCplug(thd_dia%,nut_dia%,body_base%,body_top%,x%,y%) 3140 3150ORIGIN x%,y% 3160 3170PROCblock(thd_dia%,thd_dia%,thd_dia%,0,med_grey) 3180ORIGIN x%,y%+thd_dia% 3190PROCblock(100,nut_dia%*1.1,nut_dia%*1.35,0,black%) 3200PROCblock(nut_dia%*0.4,nut_dia%,nut_dia%,0,med_grey) 3210ORIGIN x%,y%+thd_dia%+(nut_dia%*0.4) 3220PROCblock(body_base%*2,body_base%,body_top%,0,med_light_grey) 3230 3240ENDPROC 3250 3260REM******************** 3270 3280DEF PROCsetColours 3290 3300REM Set border to black. 3310VDU19,1,24,0,0,0 3320 3330black%=0 3340dark_grey=1:COLOUR dark_grey,64,64,64 3350med_dark_grey=2:COLOURmed_dark_grey,112,112,112 3360med_grey=3:COLOUR med_grey,192,192,192 3370med_light_grey=4:COLOUR med_light_grey,208,208,208 3380light_grey=5:COLOUR light_grey,224,224,224 3390red%=6:COLOUR red%,255,0,0 3400white%=7 3410bore_colour%=8:COLOUR 8,0,0,0:REM Set to black for bore colour. 3420export_colour%=9:COLOUR 9,0,0,0:REM Set to black for export colour. 3430inport_colour%=10:COLOUR 10,0,0,0:REM Set to black for inport colour. 3440 3450ENDPROC 3460 3470REM*********************** 3480 3490DEF PROCdimensions 3500 3510REM Crankshaft centres. 3520ox_cr%=640 3530oy_cr%=255 3540 3550REM Engine dimensions. 3560bore%=185 3570stroke%=190 3580combustion_chamber_height%=bore%*0.19 3590 3600REM Piston dimensions. 3610piston_height%=bore%*1.1 3620gudgeon_pin_dia%=bore%*0.25 3630 3640REM Crankshaft dimensions. 3650crank_throw%=stroke% DIV 2 3660flywheel_dia%=bore%*1.6 3670crankshaft_dia%=flywheel_dia% DIV 3 3680crankarm_top%=flywheel_dia% DIV 5 3690crankarm_base%=flywheel_dia% DIV 2 3700 3710REM Con rod dimensions. 3720conrod_cts%=crank_throw%+flywheel_dia% DIV 2+flywheel_dia% DIV 50+piston_height% *0.6 3730bigend_journal_dia%=crankshaft_dia%*0.6 3740bigend_dia%=crankshaft_dia%*1.5 3750conrod_base%=bigend_dia%*0.9 3760conrod_top%=bigend_dia%*0.5 3770 3780REM Valve dimensions. 3790valve_dia%=bore%*0.3 3800head_thickness%=valve_dia%*0.15 3810upper_dia%=valve_dia%-2*head_thickness% 3820valve_length%=valve_dia%*1.9 3830stem_dia%=valve_dia%*0.2 3840valve_angle1%=80:REM Temp value. Final figure to be calculated. 3850valve_angle2%=110:REM Temp value. Final figure to be calculated. 3860 3870REM_Cam dimensions. 3880cam_lift%=bore%*0.17 3890dwell_rad%=cam_lift% DIV 2 3900 3910REM Establish camshaft positions. 3920PROCcam_centres(ox_excam%,ox_incam%,oy_cam%,valve_angle%,chamber_rad%,bore%,valve_dia%,combustion_chamber_height%,valve_length%,dwell_rad%,ox_cr%,oy_cr%,crank_throw%,conrod_cts%,piston_height%) 3930exvalve_angle%=valve_angle% 3940invalve_angle%=180-valve_angle% 3950excam_op_start%=exvalve_angle%+90 3960excam_op_fin%=excam_op_start%+180 3970incam_op_start%=invalve_angle%+90 3980incam_op_fin%=incam_op_start%+180 3990 4000REM Port dimensions. 4010port_dia%=valve_dia%*0.7 4020port_len%=valve_length%*0.4 4030 4040REM Establish top corner position of port. hp & vp 4050h1=port_len%*COSRAD(valve_angle%) 4060v1=port_len%*SINRAD(valve_angle%) 4070h2=(port_dia% DIV 2)*SINRAD(valve_angle%) 4080v2=(port_dia% DIV 2)*COSRAD(valve_angle%) 4090hp%=h1-h2 4100vp%=v1+v2 4110 4120REM Establish position of valve head in closed position. 4130h_exvalve%=valve_length%*COSRAD(exvalve_angle%) 4140h_invalve%=valve_length%*COSRAD(invalve_angle%) 4150v_valve%=valve_length%*SINRAD(valve_angle%) 4160h_cam%=dwell_rad%*COSRAD(exvalve_angle%) 4170v_cam%=dwell_rad%*SINRAD(exvalve_angle%) 4180ox_exvalve_shut%=ox_excam%+h_cam%+h_exvalve% 4190oy_exvalve_shut%=oy_cam%-v_cam%-v_valve% 4200ox_invalve_shut%=ox_incam%-h_cam%+h_invalve% 4210oy_invalve_shut%=oy_exvalve_shut% 4220 4230REM Engine casing dimensions. 4240cyl_dia%=bore%*1.6 4250block_height%=crank_throw%+conrod_cts%+0.45*piston_height% 4260head_height%=oy_cam%-(block_height%+oy_cr%) 4270crankcase_od%=flywheel_dia%*1.75 4280crankcase_id%=flywheel_dia%*1.35 4290 4300ENDPROC 4310 4320REM********************* 4330 4340DEF PROCcasing 4350 4360REM Draw piston and engine case on shadow screen and save as sprites. 4370PROCpiston(bore%,piston_height%,gudgeon_pin_dia%,bore% DIV 2,piston_height%*0.55) 4380ORIGIN 0,0:MOVE0,0:MOVE bore%,piston_height% 4390*SGet piston 4400 4410REM Draw cylinder head. 4420ORIGIN ox_cr%,oy_cr%:GCOL red% 4430RECTANGLEFILL -(cyl_dia% DIV 2),block_height%,cyl_dia%,head_height% 4440 4450REM Draw cam boxes. 4460ORIGIN 0,0 4470CIRCLEFILL ox_excam%,oy_cam%,cam_lift%*2 4480CIRCLEFILL ox_incam%,oy_cam%,cam_lift%*2 4490GCOL black% 4500CIRCLEFILL ox_excam%,oy_cam%,cam_lift%*1.5 4510CIRCLEFILL ox_incam%,oy_cam%,cam_lift%*1.5 4520 4530REM Draw combustion chamber. 4540GCOL bore_colour% 4550CIRCLEFILL ox_cr%,(oy_cr%+block_height%+combustion_chamber_height%)-chamber_rad%,chamber_rad%*1.05 4560PROCplug(20,25,18,10,ox_cr%,block_height%+combustion_chamber_height%+oy_cr%) 4570REM Draw ports. 4580ORIGIN ox_exvalve_shut%,oy_exvalve_shut% 4590PROCblock(port_len%,port_dia%,port_dia%,exvalve_angle%-90,export_colour%) 4600RECTANGLEFILL -((cyl_dia% DIV 2)-(ox_cr%-ox_exvalve_shut%)),vp%-port_dia%,((cyl_dia% DIV 2)-(ox_cr%-ox_exvalve_shut%)-hp%),port_dia% 4610ORIGIN ox_cr%-(cyl_dia% DIV 2),(oy_exvalve_shut%+vp%)-port_dia% DIV 2 4620ORIGIN ox_invalve_shut%,oy_invalve_shut% 4630PROCblock(valve_length%*0.4,valve_dia%*0.8,valve_dia%*0.6,invalve_angle%-90,inport_colour%) 4640RECTANGLEFILL ((cyl_dia% DIV 2)-(ox_cr%-ox_exvalve_shut%)),vp%-port_dia%,-((cyl_dia% DIV 2)-(ox_cr%-ox_exvalve_shut%)-hp%),port_dia% 4650 4660REM Draw cylinder. 4670ORIGIN 0,0 4680GCOL red%:RECTANGLEFILL ox_cr%-(cyl_dia% DIV 2),oy_cr%,cyl_dia%,block_height%*1.01 4690 4700REM Draw crankcase. 4710GCOL red%:CIRCLEFILL ox_cr%,oy_cr%,crankcase_od% DIV 2 4720GCOL black%:CIRCLEFILL ox_cr%,oy_cr%,crankcase_id% DIV 2 4730ORIGIN ox_cr%,oy_cr% 4740PROCblock(block_height%*1.01,bore%,bore%,0,bore_colour%) 4750PROCblock(-crank_throw%+conrod_cts%+piston_height%*0.42,bore%,bore%,0,black%) 4760PROCblock(crankcase_id%*0.75,flywheel_dia%*1.15,cyl_dia% DIV 2,0,black%) 4770ORIGIN 0,0:MOVE ox_cr%-flywheel_dia%*1.25,oy_cr%-flywheel_dia%*1.25:MOVE ox_cr%+flywheel_dia%*1.25,oy_cr%+block_height%+head_height%+cam_lift%*2 4780*SGET casing 4790CLS 4800ENDPROC 4810 4820REM********************* 4830 4840DEF PROCblock(height%,base%,top%,angle,colour%) 4850 4860LOCAL db%,dt%,v%,h%,hb%,vb%,ht%,vt% 4870 4880GCOL colour% 4890sin=SINRAD(angle) 4900cos=COSRAD(angle) 4910temp%=base% DIV 2 4920v%=height%*cos 4930h%=height%*sin 4940hb%=temp%*cos 4950vb%=temp%*sin 4960temp%=top% DIV 2 4970ht%=temp%*cos 4980vt%=temp%*sin 4990MOVE -hb%,vb% 5000MOVE hb%,-vb% 5010PLOT 85,h%-ht%,v%+vt% 5020PLOT 85,h%+ht%,v%-vt% 5030 5040ENDPROC 5050 5060REM*************************** 5070
� >Engine
� By JE Tarrant
� For 32-bit machines
(� (c) BAU August 1993
2:
<G� Starts on inlet stroke with piston at T.D.C and crank angle zero.
F@� Uses PROCblock4A which is slightly quicker than PROCblock3
P
Z.� Draws piston & engine casing as sprites.
d9� Also only plots valve lift when not in dwell phase.
n
x@� Load BASIC into RMA to increase speed. Use *RMFASTER BASIC
�;� Done via !RUN file when run from !Engine application.
�
��12
� *FX112,1
� *FX113,1
�� � �error
�
�A� SYS"OS_UpdateMEMC",64,64 NOTE DOES NOT WORK WITH RISC OS3
� ȡ 1,"Percussion-Medium"
�
�J� Set colours including various shades of grey for engine components.
��setColours
�
9� Set background colour on normal and shadow screens.
� black%+128:�
*FX112,2
"� black%+128:�
,�dimensions
6 �casing
@cam_step%=20
J start%=0
Tstep%=cam_step%*2
^fin%=start%+720-step%
hexcam_start%=300
rincam_start%=210
|
screen%=2
�
�� Start main loop.
��
� excam_angle%=excam_start%
� incam_angle%=incam_start%
�� time=0:TS=TIME
�#� cr_ang%=start% � fin% � step%
�ș"OS_Byte",112,screen%
�*SChoose casing
�Dȑ 0,0:� &ED,ox_cr%-flywheel_dia%*1.25,oy_cr%-flywheel_dia%*1.25
�
�-� Calc big end,little end positions etc.
�%h_throw%=crank_throw%*��(cr_ang%)
%v_throw%=crank_throw%*��(cr_ang%)
'con_ang=-�(�(h_throw%/conrod_cts%))
%v_cts%=�(conrod_cts%*��(con_ang))
&ox_be%=ox_cr%+h_throw%
0oy_be%=oy_cr%+v_throw%
:ox_le%=ox_cr%
Doy_le%=oy_be%+v_cts%
N
X� Draw crankshaft.
bn�crankshaft(crank_throw%,crankshaft_dia%,flywheel_dia%,crankarm_top%,crankarm_base%,cr_ang%,ox_cr%,oy_cr%)
l
v� Draw con rod.
�g�conrod(conrod_cts%,bigend_dia%,bigend_journal_dia%,conrod_base%,conrod_top%,con_ang,ox_be%,oy_be%)
�
�� Draw piston.
�*SChoose piston
�:ȑ ox_le%,oy_le%:� &ED,-bore% � 2,-piston_height%*0.55
�
�� Draw cams.
�=�cam(cam_lift%,dwell_rad%,excam_angle%,ox_excam%,oy_cam%)
�=�cam(cam_lift%,dwell_rad%,incam_angle%,ox_incam%,oy_cam%)
�
�,� Calc. valve positions and draw valves.
�C� excam_angle%>=excam_op_start% � excam_angle%<=excam_op_fin% �
�y�valvePos(ox_excam%,oy_cam%,exvalve_angle%,h_exvalve%,v_valve%,dwell_rad%,cam_lift%,med_grey,ox_exvalve%,oy_exvalve%)
Eox_exvalve%=ox_exvalve%+ox_excam%:oy_exvalve%=oy_cam%-oy_exvalve%
?� ox_exvalve%=ox_exvalve_shut%:oy_exvalve%=oy_exvalve_shut%
�
*s�valve(valve_dia%,upper_dia%,head_thickness%,valve_length%,stem_dia%,exvalve_angle%-90,ox_exvalve%,oy_exvalve%)
4
>C� incam_angle%>=incam_op_start% � incam_angle%<=incam_op_fin% �
Hy�valvePos(ox_incam%,oy_cam%,invalve_angle%,h_invalve%,v_valve%,dwell_rad%,cam_lift%,med_grey,ox_invalve%,oy_invalve%)
REox_invalve%=ox_incam%+ox_invalve%:oy_invalve%=oy_cam%-oy_invalve%
\?� ox_invalve%=ox_invalve_shut%:oy_invalve%=oy_invalve_shut%
f�
p
zs�valve(valve_dia%,upper_dia%,head_thickness%,valve_length%,stem_dia%,invalve_angle%-90,ox_invalve%,oy_invalve%)
�
� � Display shadow screen.
� Ȗ:ș"OS_Byte",113,screen%
��� cr_ang%>30 � cr_ang%<350 � � bore_colour%,224,224,0:� inport_colour%,224,224,0:� export_colour%,0,0,0:� Yellowish for inlet stroke.
�*� cr_ang%>180 � � inport_colour%,0,0,0
�H� cr_ang%>350 � � bore_colour%,224,192,0:� Orangey for power stroke.
�5� cr_ang%>350 � cr_ang%<350+step% � � 1,-15,69,50
�L� cr_ang%>560 � � export_colour%,224,192,0:� Orangey for exhaust stroke.
�
�*� Toggle screen ready for next frame.
�screen%=screen% � %11
�[excam_angle%=(excam_angle%+cam_step%) � 360:incam_angle%=(incam_angle%+cam_step%) � 360
��
� �
$�
.
8)�************************************
B
LR� �crankshaft(throw%,shaft_dia%,flywheel_dia%,arm_top%,arm_base%,angle%,x%,y%)
V
`9� blank_width%,base_rad%,shaft_rad%,st%,fin%,step%,a%
j
t"blank_width%=flywheel_dia%*1.1
~base_rad%=arm_base% � 2
� shaft_rad%=shaft_dia% � 2
�st%=angle%+20
�fin%=st%+240
�
step%=120
� ȑ x%,y%
�
�,� Draw flywheel disc and blank out half.
�� med_light_grey
� ȏȐ 0,0,flywheel_dia% � 2
�O�block(flywheel_dia%*0.6,blank_width%*1.05,blank_width%*0.55,angle%,black%)
�
�� Draw crank arm.
;�block(throw%,arm_base%,arm_top%,angle%,med_light_grey)
� Draw crankshaft journal.
3ȏȐ 0,0,base_rad%:� Ensure no join lines show.
(
� red%
2ȏȐ 0,0,shaft_rad%
<
F9� Draw 3 highlights to create impression of rotation.
P� a%=st% � fin% � step%
Z)�block(shaft_rad%,0,15,a%,light_grey)
d�
n
x�
�
�$�*******************************
�
�G� �conrod(centres%,bigend_dia%,journal_dia%,base%,top%,angle,x%,y%)
�
�!� bigend_rad%,factor1,factor2
�
� ȑ x%,y%
� bigend_rad%=bigend_dia% � 2
�factor1=0.65
�factor2=0.75
�
�/� Draw main section and main inner section.
.�block(centres%,base%,top%,angle,med_grey)
D�block(centres%,base%*factor1,top%*factor1,angle,med_light_grey)
";� Draw big end, big end inner ring and big end journal.
,#� med_grey:ȏȐ 0,0,bigend_rad%
61� med_light_grey:ȏȐ 0,0,bigend_rad%*factor2
@$� red%:ȏȐ 0,0,journal_dia% � 2
J$� black%:ȏ 0,0,journal_dia% � 2
T
^�
h
r'�**********************************
|
�*� �piston(dia%,height%,pin_dia%,x%,y%)
�
�D� rad%,pin_height%,pin_rad%,pin_rad_inner%,ring_gap%,ring_width%
�(� ring_no%,st%,fin%,s%,pass%,pos%,h%
�
�rad%=dia% � 2
� pin_height%=height%*0.55
�pin_rad%=pin_dia% � 2
�!pin_rad_inner%=pin_rad% *0.75
�'ring_gap%=(height%-pin_height%) � 5
� ring_width%=ring_gap%*0.15
�
� ȑ x%,y%
� light_grey
� Draw piston body.
&(ȓȐ -rad%,-pin_height%,dia%,height%
0
:� Draw rings.
D� med_light_grey
N
X� ring_no%=1 � 3
bHȓȐ -rad%,(height%-pin_height%)-ring_gap%*ring_no%,dia%,ring_width%
l�
v
� � Draw vertical shading.
�� med_light_grey
� st%=5
� fin%=65
� s%=10
�
�� pass%= 1 � 2
�� pos%=st% � fin% � s%
�h%=rad%*��(pos%)
�.� -h%,-pin_height%,-h%,height%-pin_height%
��
�
� st%=115
fin%=175
�
� Draw gudgeon pin.
*
� red%
4ȏȐ 0,0,pin_rad%
> � black%
HȏȐ 0,0,pin_rad_inner%
R
\�
f
p"�*****************************
z
�G� �valve(dia%,inner_dia%,thickness%,length%,stem_dia%,angle%,x%,y%)
�
� ȑ x%,y%
�<�block(thickness%,dia%,inner_dia%,angle%,med_light_grey)
�=�block(length%,stem_dia%,stem_dia%,angle%,med_light_grey)
�
��
�
� �**************************
�
�� �cam_centres(� x1%,� x2%,� y%,� angle%,� r%,cyl_bore%,valve_dia%,comb_chamber_height%,valve_len%,cam_dwell_rad%,crank_x%,crank_y%,crank_throw%,conrodcts%,piston_height%)
�
�*� hv%,valve_chambertop%,vv%,a%,ch%,cv%
'� Establish position of valve head.
hv%=cyl_bore%-2.5*valve_dia%
$Hr%=(cyl_bore%^2+(4*comb_chamber_height%^2))/(8*comb_chamber_height%)
.0valve_chambertop%=r%-0.5*�(4*r%^2-(hv%*2)^2)
8.vv%=comb_chamber_height%-valve_chambertop%
B
L � Establish valve angle.
Va%=�(�(hv%/r%))
`angle%=90-a%
j
t3� Establish cam centres relative to valve head.
~*ch%=(valve_len%+dwell_rad%)*��(angle%)
�*cv%=(valve_len%+dwell_rad%)*��(angle%)
�
�,� Establish main cam centre coordinates.
�x1%=crank_x%-ch%-hv%
�x2%=crank_x%+ch%+hv%
�Cy%=crank_y%+crank_throw%+conrodcts%+piston_height%*0.45+vv%+cv%
�
��
�
�$�*******************************
�
�(� �cam(lift%,base_rad%,angle%,x%,y%)
� blank_base%
blank_base%=base_rad%*2+10
( ȑ x%,y%
2� med_grey
<'ȝȐ 0,0,lift%,base_rad%,-�(angle%)
F<�block(lift%+4,blank_base%,blank_base%,angle%+90,black%)
P� med_grey
ZȏȐ 0,0,base_rad%
d
� red%
nȏȐ 0,0,base_rad%*0.5
x
��
�
��**********************
�
�Q� �valvePos(x%,y%,angle%,h_valve%,v_valve%,dwellRad%,lift%,colour%,� h%,� v%)
�
�%� sin,cos,start%,fin%,pos%,check%
�
� ȑ x%,y%
�sin=��(angle%)
�cos=��(angle%)
�start%=dwellRad%-5
�fin%=lift%+5
�
pos%=(fin%-start%)� 2+start%
"h%=pos%*cos
,v%=pos%*sin
6check%=�h%,-v%)
@.� check%=colour% � start%=pos% � fin%=pos%
J� fin%-start%<2
T
^h%+=h_valve%
hv%+=v_valve%
r
|�
�
� �***********************
�
� � �error
�
� � � �
�� 12
� � �=17 �
��"Escape pressed"
� � SYS"Wimp_CommandWindow",-1
�� �
��" at line ";�
��
�
�
&$�*******************************
0
:9� �plug(thd_dia%,nut_dia%,body_base%,body_top%,x%,y%)
D
N ȑ x%,y%
X
b1�block(thd_dia%,thd_dia%,thd_dia%,0,med_grey)
lȑ x%,y%+thd_dia%
v3�block(100,nut_dia%*1.1,nut_dia%*1.35,0,black%)
�5�block(nut_dia%*0.4,nut_dia%,nut_dia%,0,med_grey)
�$ȑ x%,y%+thd_dia%+(nut_dia%*0.4)
�>�block(body_base%*2,body_base%,body_top%,0,med_light_grey)
�
��
�
��********************
�
�� �setColours
�
�� Set border to black.
��19,1,24,0,0,0
�
black%=0
$dark_grey=1:� dark_grey,64,64,64
.med_dark_grey=2:�med_dark_grey,112,112,112
%med_grey=3:� med_grey,192,192,192
*1med_light_grey=4:� med_light_grey,208,208,208
4)light_grey=5:� light_grey,224,224,224
>red%=6:� red%,255,0,0
H white%=7
R<bore_colour%=8:� 8,0,0,0:� Set to black for bore colour.
\@export_colour%=9:� 9,0,0,0:� Set to black for export colour.
fBinport_colour%=10:� 10,0,0,0:� Set to black for inport colour.
p
z�
�
� �***********************
�
�� �dimensions
�
�� Crankshaft centres.
�ox_cr%=640
�oy_cr%=255
�
�� Engine dimensions.
�
bore%=185
�stroke%=190
�)combustion_chamber_height%=bore%*0.19
� Piston dimensions.
piston_height%=bore%*1.1
$ gudgeon_pin_dia%=bore%*0.25
.
8 � Crankshaft dimensions.
B crank_throw%=stroke% � 2
Lflywheel_dia%=bore%*1.6
V%crankshaft_dia%=flywheel_dia% � 3
`#crankarm_top%=flywheel_dia% � 5
j$crankarm_base%=flywheel_dia% � 2
t
~� Con rod dimensions.
�Uconrod_cts%=crank_throw%+flywheel_dia% � 2+flywheel_dia% � 50+piston_height% *0.6
�+bigend_journal_dia%=crankshaft_dia%*0.6
�#bigend_dia%=crankshaft_dia%*1.5
� conrod_base%=bigend_dia%*0.9
� conrod_top%=bigend_dia%*0.5
�
�� Valve dimensions.
�valve_dia%=bore%*0.3
�#head_thickness%=valve_dia%*0.15
�+upper_dia%=valve_dia%-2*head_thickness%
� valve_length%=valve_dia%*1.9
� stem_dia%=valve_dia%*0.2
Avalve_angle1%=80:� Temp value. Final figure to be calculated.
Bvalve_angle2%=110:� Temp value. Final figure to be calculated.
�_Cam dimensions.
(cam_lift%=bore%*0.17
2 dwell_rad%=cam_lift% � 2
<
F#� Establish camshaft positions.
P��cam_centres(ox_excam%,ox_incam%,oy_cam%,valve_angle%,chamber_rad%,bore%,valve_dia%,combustion_chamber_height%,valve_length%,dwell_rad%,ox_cr%,oy_cr%,crank_throw%,conrod_cts%,piston_height%)
Z exvalve_angle%=valve_angle%
d#invalve_angle%=180-valve_angle%
n%excam_op_start%=exvalve_angle%+90
x%excam_op_fin%=excam_op_start%+180
�%incam_op_start%=invalve_angle%+90
�%incam_op_fin%=incam_op_start%+180
�
�� Port dimensions.
� port_dia%=valve_dia%*0.7
� port_len%=valve_length%*0.4
�
�4� Establish top corner position of port. hp & vp
�!h1=port_len%*��(valve_angle%)
�!v1=port_len%*��(valve_angle%)
�'h2=(port_dia% � 2)*��(valve_angle%)
�'v2=(port_dia% � 2)*��(valve_angle%)
�
hp%=h1-h2
vp%=v1+v2
:� Establish position of valve head in closed position.
"/h_exvalve%=valve_length%*��(exvalve_angle%)
,/h_invalve%=valve_length%*��(invalve_angle%)
6+v_valve%=valve_length%*��(valve_angle%)
@(h_cam%=dwell_rad%*��(exvalve_angle%)
J(v_cam%=dwell_rad%*��(exvalve_angle%)
T0ox_exvalve_shut%=ox_excam%+h_cam%+h_exvalve%
^,oy_exvalve_shut%=oy_cam%-v_cam%-v_valve%
h0ox_invalve_shut%=ox_incam%-h_cam%+h_invalve%
r%oy_invalve_shut%=oy_exvalve_shut%
|
� � Engine casing dimensions.
�cyl_dia%=bore%*1.6
�>block_height%=crank_throw%+conrod_cts%+0.45*piston_height%
�/head_height%=oy_cam%-(block_height%+oy_cr%)
�$crankcase_od%=flywheel_dia%*1.75
�$crankcase_id%=flywheel_dia%*1.35
�
��
�
��*********************
�
�
� �casing
�
G� Draw piston and engine case on shadow screen and save as sprites.
P�piston(bore%,piston_height%,gudgeon_pin_dia%,bore% � 2,piston_height%*0.55)
&ȑ 0,0:�0,0:� bore%,piston_height%
&*SGet piston
0
:� Draw cylinder head.
Dȑ ox_cr%,oy_cr%:� red%
N<ȓȐ -(cyl_dia% � 2),block_height%,cyl_dia%,head_height%
X
b� Draw cam boxes.
l
ȑ 0,0
v&ȏȐ ox_excam%,oy_cam%,cam_lift%*2
�&ȏȐ ox_incam%,oy_cam%,cam_lift%*2
� � black%
�(ȏȐ ox_excam%,oy_cam%,cam_lift%*1.5
�(ȏȐ ox_incam%,oy_cam%,cam_lift%*1.5
�
� � Draw combustion chamber.
�� bore_colour%
�`ȏȐ ox_cr%,(oy_cr%+block_height%+combustion_chamber_height%)-chamber_rad%,chamber_rad%*1.05
�M�plug(20,25,18,10,ox_cr%,block_height%+combustion_chamber_height%+oy_cr%)
�� Draw ports.
�(ȑ ox_exvalve_shut%,oy_exvalve_shut%
�J�block(port_len%,port_dia%,port_dia%,exvalve_angle%-90,export_colour%)
�{ȓȐ -((cyl_dia% � 2)-(ox_cr%-ox_exvalve_shut%)),vp%-port_dia%,((cyl_dia% � 2)-(ox_cr%-ox_exvalve_shut%)-hp%),port_dia%
Aȑ ox_cr%-(cyl_dia% � 2),(oy_exvalve_shut%+vp%)-port_dia% � 2
(ȑ ox_invalve_shut%,oy_invalve_shut%
\�block(valve_length%*0.4,valve_dia%*0.8,valve_dia%*0.6,invalve_angle%-90,inport_colour%)
{ȓȐ ((cyl_dia% � 2)-(ox_cr%-ox_exvalve_shut%)),vp%-port_dia%,-((cyl_dia% � 2)-(ox_cr%-ox_exvalve_shut%)-hp%),port_dia%
*
4� Draw cylinder.
>
ȑ 0,0
HH� red%:ȓȐ ox_cr%-(cyl_dia% � 2),oy_cr%,cyl_dia%,block_height%*1.01
R
\� Draw crankcase.
f/� red%:ȏȐ ox_cr%,oy_cr%,crankcase_od% � 2
p1� black%:ȏȐ ox_cr%,oy_cr%,crankcase_id% � 2
zȑ ox_cr%,oy_cr%
�9�block(block_height%*1.01,bore%,bore%,0,bore_colour%)
�N�block(-crank_throw%+conrod_cts%+piston_height%*0.42,bore%,bore%,0,black%)
�G�block(crankcase_id%*0.75,flywheel_dia%*1.15,cyl_dia% � 2,0,black%)
��ȑ 0,0:� ox_cr%-flywheel_dia%*1.25,oy_cr%-flywheel_dia%*1.25:� ox_cr%+flywheel_dia%*1.25,oy_cr%+block_height%+head_height%+cam_lift%*2
�*SGET casing
��
��
�
��*********************
�
�.� �block(height%,base%,top%,angle,colour%)
�
�#� db%,dt%,v%,h%,hb%,vb%,ht%,vt%
� colour%
sin=��(angle)
$cos=��(angle)
.temp%=base% � 2
8v%=height%*cos
Bh%=height%*sin
Lhb%=temp%*cos
Vvb%=temp%*sin
`temp%=top% � 2
jht%=temp%*cos
tvt%=temp%*sin
~� -hb%,vb%
�� hb%,-vb%
�� 85,h%-ht%,v%+vt%
�� 85,h%+ht%,v%-vt%
�
��
�
� �***************************
�
� 00000000 0d 00 0a 11 f4 20 20 20 20 20 3e 45 6e 67 69 6e |..... >Engin|
00000010 65 0d 00 14 14 f4 20 42 79 20 20 4a 45 20 54 61 |e..... By JE Ta|
00000020 72 72 61 6e 74 0d 00 1e 19 f4 20 46 6f 72 20 33 |rrant..... For 3|
00000030 32 2d 62 69 74 20 6d 61 63 68 69 6e 65 73 0d 00 |2-bit machines..|
00000040 28 19 f4 20 28 63 29 20 42 41 55 20 41 75 67 75 |(.. (c) BAU Augu|
00000050 73 74 20 31 39 39 33 0d 00 32 05 3a 0d 00 3c 47 |st 1993..2.:..<G|
00000060 f4 20 53 74 61 72 74 73 20 6f 6e 20 69 6e 6c 65 |. Starts on inle|
00000070 74 20 73 74 72 6f 6b 65 20 77 69 74 68 20 70 69 |t stroke with pi|
00000080 73 74 6f 6e 20 61 74 20 54 2e 44 2e 43 20 61 6e |ston at T.D.C an|
00000090 64 20 63 72 61 6e 6b 20 61 6e 67 6c 65 20 7a 65 |d crank angle ze|
000000a0 72 6f 2e 0d 00 46 40 f4 20 55 73 65 73 20 50 52 |ro...F@. Uses PR|
000000b0 4f 43 62 6c 6f 63 6b 34 41 20 77 68 69 63 68 20 |OCblock4A which |
000000c0 69 73 20 73 6c 69 67 68 74 6c 79 20 71 75 69 63 |is slightly quic|
000000d0 6b 65 72 20 74 68 61 6e 20 50 52 4f 43 62 6c 6f |ker than PROCblo|
000000e0 63 6b 33 0d 00 50 04 0d 00 5a 2e f4 20 44 72 61 |ck3..P...Z.. Dra|
000000f0 77 73 20 70 69 73 74 6f 6e 20 26 20 65 6e 67 69 |ws piston & engi|
00000100 6e 65 20 63 61 73 69 6e 67 20 61 73 20 73 70 72 |ne casing as spr|
00000110 69 74 65 73 2e 0d 00 64 39 f4 20 41 6c 73 6f 20 |ites...d9. Also |
00000120 6f 6e 6c 79 20 70 6c 6f 74 73 20 76 61 6c 76 65 |only plots valve|
00000130 20 6c 69 66 74 20 77 68 65 6e 20 6e 6f 74 20 69 | lift when not i|
00000140 6e 20 64 77 65 6c 6c 20 70 68 61 73 65 2e 0d 00 |n dwell phase...|
00000150 6e 04 0d 00 78 40 f4 20 4c 6f 61 64 20 42 41 53 |n...x@. Load BAS|
00000160 49 43 20 69 6e 74 6f 20 52 4d 41 20 74 6f 20 69 |IC into RMA to i|
00000170 6e 63 72 65 61 73 65 20 73 70 65 65 64 2e 20 55 |ncrease speed. U|
00000180 73 65 20 2a 52 4d 46 41 53 54 45 52 20 42 41 53 |se *RMFASTER BAS|
00000190 49 43 0d 00 82 3b f4 20 44 6f 6e 65 20 76 69 61 |IC...;. Done via|
000001a0 20 21 52 55 4e 20 66 69 6c 65 20 77 68 65 6e 20 | !RUN file when |
000001b0 72 75 6e 20 66 72 6f 6d 20 21 45 6e 67 69 6e 65 |run from !Engine|
000001c0 20 61 70 70 6c 69 63 61 74 69 6f 6e 2e 0d 00 8c | application....|
000001d0 04 0d 00 96 07 eb 31 32 0d 00 a0 0c 2a 46 58 31 |......12....*FX1|
000001e0 31 32 2c 31 0d 00 aa 0c 2a 46 58 31 31 33 2c 31 |12,1....*FX113,1|
000001f0 0d 00 b4 0e ee 20 85 20 f2 65 72 72 6f 72 0d 00 |..... . .error..|
00000200 be 04 0d 00 c8 41 f4 20 20 53 59 53 22 4f 53 5f |.....A. SYS"OS_|
00000210 55 70 64 61 74 65 4d 45 4d 43 22 2c 36 34 2c 36 |UpdateMEMC",64,6|
00000220 34 20 20 4e 4f 54 45 20 44 4f 45 53 20 4e 4f 54 |4 NOTE DOES NOT|
00000230 20 57 4f 52 4b 20 57 49 54 48 20 52 49 53 43 20 | WORK WITH RISC |
00000240 4f 53 33 0d 00 d2 1c c8 a1 20 31 2c 22 50 65 72 |OS3...... 1,"Per|
00000250 63 75 73 73 69 6f 6e 2d 4d 65 64 69 75 6d 22 0d |cussion-Medium".|
00000260 00 dc 04 0d 00 e6 4a f4 20 53 65 74 20 20 63 6f |......J. Set co|
00000270 6c 6f 75 72 73 20 69 6e 63 6c 75 64 69 6e 67 20 |lours including |
00000280 76 61 72 69 6f 75 73 20 73 68 61 64 65 73 20 6f |various shades o|
00000290 66 20 67 72 65 79 20 66 6f 72 20 65 6e 67 69 6e |f grey for engin|
000002a0 65 20 63 6f 6d 70 6f 6e 65 6e 74 73 2e 0d 00 f0 |e components....|
000002b0 0f f2 73 65 74 43 6f 6c 6f 75 72 73 0d 00 fa 04 |..setColours....|
000002c0 0d 01 04 39 f4 20 53 65 74 20 62 61 63 6b 67 72 |...9. Set backgr|
000002d0 6f 75 6e 64 20 63 6f 6c 6f 75 72 20 6f 6e 20 6e |ound colour on n|
000002e0 6f 72 6d 61 6c 20 61 6e 64 20 73 68 61 64 6f 77 |ormal and shadow|
000002f0 20 73 63 72 65 65 6e 73 2e 0d 01 0e 12 fb 20 62 | screens...... b|
00000300 6c 61 63 6b 25 2b 31 32 38 3a db 0d 01 18 0c 2a |lack%+128:.....*|
00000310 46 58 31 31 32 2c 32 0d 01 22 12 fb 20 62 6c 61 |FX112,2..".. bla|
00000320 63 6b 25 2b 31 32 38 3a db 0d 01 2c 0f f2 64 69 |ck%+128:...,..di|
00000330 6d 65 6e 73 69 6f 6e 73 0d 01 36 0b f2 63 61 73 |mensions..6..cas|
00000340 69 6e 67 0d 01 40 10 63 61 6d 5f 73 74 65 70 25 |ing..@.cam_step%|
00000350 3d 32 30 0d 01 4a 0c 73 74 61 72 74 25 3d 30 0d |=20..J.start%=0.|
00000360 01 54 15 73 74 65 70 25 3d 63 61 6d 5f 73 74 65 |.T.step%=cam_ste|
00000370 70 25 2a 32 0d 01 5e 19 66 69 6e 25 3d 73 74 61 |p%*2..^.fin%=sta|
00000380 72 74 25 2b 37 32 30 2d 73 74 65 70 25 0d 01 68 |rt%+720-step%..h|
00000390 14 65 78 63 61 6d 5f 73 74 61 72 74 25 3d 33 30 |.excam_start%=30|
000003a0 30 0d 01 72 14 69 6e 63 61 6d 5f 73 74 61 72 74 |0..r.incam_start|
000003b0 25 3d 32 31 30 0d 01 7c 0d 73 63 72 65 65 6e 25 |%=210..|.screen%|
000003c0 3d 32 0d 01 86 04 0d 01 90 16 f4 20 53 74 61 72 |=2......... Star|
000003d0 74 20 6d 61 69 6e 20 6c 6f 6f 70 2e 0d 01 9a 05 |t main loop.....|
000003e0 f5 0d 01 a4 1d 65 78 63 61 6d 5f 61 6e 67 6c 65 |.....excam_angle|
000003f0 25 3d 65 78 63 61 6d 5f 73 74 61 72 74 25 0d 01 |%=excam_start%..|
00000400 ae 1d 69 6e 63 61 6d 5f 61 6e 67 6c 65 25 3d 69 |..incam_angle%=i|
00000410 6e 63 61 6d 5f 73 74 61 72 74 25 0d 01 b8 14 f4 |ncam_start%.....|
00000420 20 74 69 6d 65 3d 30 3a 54 53 3d 54 49 4d 45 0d | time=0:TS=TIME.|
00000430 01 c2 23 e3 20 63 72 5f 61 6e 67 25 3d 73 74 61 |..#. cr_ang%=sta|
00000440 72 74 25 20 b8 20 66 69 6e 25 20 88 20 73 74 65 |rt% . fin% . ste|
00000450 70 25 0d 01 cc 1b c8 99 22 4f 53 5f 42 79 74 65 |p%......"OS_Byte|
00000460 22 2c 31 31 32 2c 73 63 72 65 65 6e 25 0d 01 d6 |",112,screen%...|
00000470 13 2a 53 43 68 6f 6f 73 65 20 63 61 73 69 6e 67 |.*SChoose casing|
00000480 0d 01 e0 44 c8 91 20 30 2c 30 3a f0 20 26 45 44 |...D.. 0,0:. &ED|
00000490 2c 6f 78 5f 63 72 25 2d 66 6c 79 77 68 65 65 6c |,ox_cr%-flywheel|
000004a0 5f 64 69 61 25 2a 31 2e 32 35 2c 6f 79 5f 63 72 |_dia%*1.25,oy_cr|
000004b0 25 2d 66 6c 79 77 68 65 65 6c 5f 64 69 61 25 2a |%-flywheel_dia%*|
000004c0 31 2e 32 35 0d 01 ea 04 0d 01 f4 2d f4 20 20 43 |1.25.......-. C|
000004d0 61 6c 63 20 62 69 67 20 65 6e 64 2c 6c 69 74 74 |alc big end,litt|
000004e0 6c 65 20 65 6e 64 20 70 6f 73 69 74 69 6f 6e 73 |le end positions|
000004f0 20 65 74 63 2e 0d 01 fe 25 68 5f 74 68 72 6f 77 | etc....%h_throw|
00000500 25 3d 63 72 61 6e 6b 5f 74 68 72 6f 77 25 2a b5 |%=crank_throw%*.|
00000510 b2 28 63 72 5f 61 6e 67 25 29 0d 02 08 25 76 5f |.(cr_ang%)...%v_|
00000520 74 68 72 6f 77 25 3d 63 72 61 6e 6b 5f 74 68 72 |throw%=crank_thr|
00000530 6f 77 25 2a 9b b2 28 63 72 5f 61 6e 67 25 29 0d |ow%*..(cr_ang%).|
00000540 02 12 27 63 6f 6e 5f 61 6e 67 3d 2d 9d 28 98 28 |..'con_ang=-.(.(|
00000550 68 5f 74 68 72 6f 77 25 2f 63 6f 6e 72 6f 64 5f |h_throw%/conrod_|
00000560 63 74 73 25 29 29 0d 02 1c 25 76 5f 63 74 73 25 |cts%))...%v_cts%|
00000570 3d 94 28 63 6f 6e 72 6f 64 5f 63 74 73 25 2a 9b |=.(conrod_cts%*.|
00000580 b2 28 63 6f 6e 5f 61 6e 67 29 29 0d 02 26 1a 6f |.(con_ang))..&.o|
00000590 78 5f 62 65 25 3d 6f 78 5f 63 72 25 2b 68 5f 74 |x_be%=ox_cr%+h_t|
000005a0 68 72 6f 77 25 0d 02 30 1a 6f 79 5f 62 65 25 3d |hrow%..0.oy_be%=|
000005b0 6f 79 5f 63 72 25 2b 76 5f 74 68 72 6f 77 25 0d |oy_cr%+v_throw%.|
000005c0 02 3a 11 6f 78 5f 6c 65 25 3d 6f 78 5f 63 72 25 |.:.ox_le%=ox_cr%|
000005d0 0d 02 44 18 6f 79 5f 6c 65 25 3d 6f 79 5f 62 65 |..D.oy_le%=oy_be|
000005e0 25 2b 76 5f 63 74 73 25 0d 02 4e 04 0d 02 58 17 |%+v_cts%..N...X.|
000005f0 f4 20 20 44 72 61 77 20 63 72 61 6e 6b 73 68 61 |. Draw cranksha|
00000600 66 74 2e 0d 02 62 6e f2 63 72 61 6e 6b 73 68 61 |ft...bn.cranksha|
00000610 66 74 28 63 72 61 6e 6b 5f 74 68 72 6f 77 25 2c |ft(crank_throw%,|
00000620 63 72 61 6e 6b 73 68 61 66 74 5f 64 69 61 25 2c |crankshaft_dia%,|
00000630 66 6c 79 77 68 65 65 6c 5f 64 69 61 25 2c 63 72 |flywheel_dia%,cr|
00000640 61 6e 6b 61 72 6d 5f 74 6f 70 25 2c 63 72 61 6e |ankarm_top%,cran|
00000650 6b 61 72 6d 5f 62 61 73 65 25 2c 63 72 5f 61 6e |karm_base%,cr_an|
00000660 67 25 2c 6f 78 5f 63 72 25 2c 6f 79 5f 63 72 25 |g%,ox_cr%,oy_cr%|
00000670 29 0d 02 6c 04 0d 02 76 13 f4 20 44 72 61 77 20 |)..l...v.. Draw |
00000680 63 6f 6e 20 72 6f 64 2e 0d 02 80 67 f2 63 6f 6e |con rod....g.con|
00000690 72 6f 64 28 63 6f 6e 72 6f 64 5f 63 74 73 25 2c |rod(conrod_cts%,|
000006a0 62 69 67 65 6e 64 5f 64 69 61 25 2c 62 69 67 65 |bigend_dia%,bige|
000006b0 6e 64 5f 6a 6f 75 72 6e 61 6c 5f 64 69 61 25 2c |nd_journal_dia%,|
000006c0 63 6f 6e 72 6f 64 5f 62 61 73 65 25 2c 63 6f 6e |conrod_base%,con|
000006d0 72 6f 64 5f 74 6f 70 25 2c 63 6f 6e 5f 61 6e 67 |rod_top%,con_ang|
000006e0 2c 6f 78 5f 62 65 25 2c 6f 79 5f 62 65 25 29 0d |,ox_be%,oy_be%).|
000006f0 02 8a 04 0d 02 94 12 f4 20 44 72 61 77 20 70 69 |........ Draw pi|
00000700 73 74 6f 6e 2e 0d 02 9e 13 2a 53 43 68 6f 6f 73 |ston.....*SChoos|
00000710 65 20 70 69 73 74 6f 6e 0d 02 a8 3a c8 91 20 6f |e piston...:.. o|
00000720 78 5f 6c 65 25 2c 6f 79 5f 6c 65 25 3a f0 20 26 |x_le%,oy_le%:. &|
00000730 45 44 2c 2d 62 6f 72 65 25 20 81 20 32 2c 2d 70 |ED,-bore% . 2,-p|
00000740 69 73 74 6f 6e 5f 68 65 69 67 68 74 25 2a 30 2e |iston_height%*0.|
00000750 35 35 0d 02 b2 04 0d 02 bc 10 f4 20 44 72 61 77 |55......... Draw|
00000760 20 63 61 6d 73 2e 0d 02 c6 3d f2 63 61 6d 28 63 | cams....=.cam(c|
00000770 61 6d 5f 6c 69 66 74 25 2c 64 77 65 6c 6c 5f 72 |am_lift%,dwell_r|
00000780 61 64 25 2c 65 78 63 61 6d 5f 61 6e 67 6c 65 25 |ad%,excam_angle%|
00000790 2c 6f 78 5f 65 78 63 61 6d 25 2c 6f 79 5f 63 61 |,ox_excam%,oy_ca|
000007a0 6d 25 29 0d 02 d0 3d f2 63 61 6d 28 63 61 6d 5f |m%)...=.cam(cam_|
000007b0 6c 69 66 74 25 2c 64 77 65 6c 6c 5f 72 61 64 25 |lift%,dwell_rad%|
000007c0 2c 69 6e 63 61 6d 5f 61 6e 67 6c 65 25 2c 6f 78 |,incam_angle%,ox|
000007d0 5f 69 6e 63 61 6d 25 2c 6f 79 5f 63 61 6d 25 29 |_incam%,oy_cam%)|
000007e0 0d 02 da 04 0d 02 e4 2c f4 20 43 61 6c 63 2e 20 |.......,. Calc. |
000007f0 76 61 6c 76 65 20 70 6f 73 69 74 69 6f 6e 73 20 |valve positions |
00000800 61 6e 64 20 64 72 61 77 20 76 61 6c 76 65 73 2e |and draw valves.|
00000810 0d 02 ee 43 e7 20 65 78 63 61 6d 5f 61 6e 67 6c |...C. excam_angl|
00000820 65 25 3e 3d 65 78 63 61 6d 5f 6f 70 5f 73 74 61 |e%>=excam_op_sta|
00000830 72 74 25 20 80 20 65 78 63 61 6d 5f 61 6e 67 6c |rt% . excam_angl|
00000840 65 25 3c 3d 65 78 63 61 6d 5f 6f 70 5f 66 69 6e |e%<=excam_op_fin|
00000850 25 20 8c 0d 02 f8 79 f2 76 61 6c 76 65 50 6f 73 |% ....y.valvePos|
00000860 28 6f 78 5f 65 78 63 61 6d 25 2c 6f 79 5f 63 61 |(ox_excam%,oy_ca|
00000870 6d 25 2c 65 78 76 61 6c 76 65 5f 61 6e 67 6c 65 |m%,exvalve_angle|
00000880 25 2c 68 5f 65 78 76 61 6c 76 65 25 2c 76 5f 76 |%,h_exvalve%,v_v|
00000890 61 6c 76 65 25 2c 64 77 65 6c 6c 5f 72 61 64 25 |alve%,dwell_rad%|
000008a0 2c 63 61 6d 5f 6c 69 66 74 25 2c 6d 65 64 5f 67 |,cam_lift%,med_g|
000008b0 72 65 79 2c 6f 78 5f 65 78 76 61 6c 76 65 25 2c |rey,ox_exvalve%,|
000008c0 6f 79 5f 65 78 76 61 6c 76 65 25 29 0d 03 02 45 |oy_exvalve%)...E|
000008d0 6f 78 5f 65 78 76 61 6c 76 65 25 3d 6f 78 5f 65 |ox_exvalve%=ox_e|
000008e0 78 76 61 6c 76 65 25 2b 6f 78 5f 65 78 63 61 6d |xvalve%+ox_excam|
000008f0 25 3a 6f 79 5f 65 78 76 61 6c 76 65 25 3d 6f 79 |%:oy_exvalve%=oy|
00000900 5f 63 61 6d 25 2d 6f 79 5f 65 78 76 61 6c 76 65 |_cam%-oy_exvalve|
00000910 25 0d 03 0c 3f cc 20 6f 78 5f 65 78 76 61 6c 76 |%...?. ox_exvalv|
00000920 65 25 3d 6f 78 5f 65 78 76 61 6c 76 65 5f 73 68 |e%=ox_exvalve_sh|
00000930 75 74 25 3a 6f 79 5f 65 78 76 61 6c 76 65 25 3d |ut%:oy_exvalve%=|
00000940 6f 79 5f 65 78 76 61 6c 76 65 5f 73 68 75 74 25 |oy_exvalve_shut%|
00000950 0d 03 16 05 cd 0d 03 20 04 0d 03 2a 73 f2 76 61 |....... ...*s.va|
00000960 6c 76 65 28 76 61 6c 76 65 5f 64 69 61 25 2c 75 |lve(valve_dia%,u|
00000970 70 70 65 72 5f 64 69 61 25 2c 68 65 61 64 5f 74 |pper_dia%,head_t|
00000980 68 69 63 6b 6e 65 73 73 25 2c 76 61 6c 76 65 5f |hickness%,valve_|
00000990 6c 65 6e 67 74 68 25 2c 73 74 65 6d 5f 64 69 61 |length%,stem_dia|
000009a0 25 2c 65 78 76 61 6c 76 65 5f 61 6e 67 6c 65 25 |%,exvalve_angle%|
000009b0 2d 39 30 2c 6f 78 5f 65 78 76 61 6c 76 65 25 2c |-90,ox_exvalve%,|
000009c0 6f 79 5f 65 78 76 61 6c 76 65 25 29 0d 03 34 04 |oy_exvalve%)..4.|
000009d0 0d 03 3e 43 e7 20 69 6e 63 61 6d 5f 61 6e 67 6c |..>C. incam_angl|
000009e0 65 25 3e 3d 69 6e 63 61 6d 5f 6f 70 5f 73 74 61 |e%>=incam_op_sta|
000009f0 72 74 25 20 80 20 69 6e 63 61 6d 5f 61 6e 67 6c |rt% . incam_angl|
00000a00 65 25 3c 3d 69 6e 63 61 6d 5f 6f 70 5f 66 69 6e |e%<=incam_op_fin|
00000a10 25 20 8c 0d 03 48 79 f2 76 61 6c 76 65 50 6f 73 |% ...Hy.valvePos|
00000a20 28 6f 78 5f 69 6e 63 61 6d 25 2c 6f 79 5f 63 61 |(ox_incam%,oy_ca|
00000a30 6d 25 2c 69 6e 76 61 6c 76 65 5f 61 6e 67 6c 65 |m%,invalve_angle|
00000a40 25 2c 68 5f 69 6e 76 61 6c 76 65 25 2c 76 5f 76 |%,h_invalve%,v_v|
00000a50 61 6c 76 65 25 2c 64 77 65 6c 6c 5f 72 61 64 25 |alve%,dwell_rad%|
00000a60 2c 63 61 6d 5f 6c 69 66 74 25 2c 6d 65 64 5f 67 |,cam_lift%,med_g|
00000a70 72 65 79 2c 6f 78 5f 69 6e 76 61 6c 76 65 25 2c |rey,ox_invalve%,|
00000a80 6f 79 5f 69 6e 76 61 6c 76 65 25 29 0d 03 52 45 |oy_invalve%)..RE|
00000a90 6f 78 5f 69 6e 76 61 6c 76 65 25 3d 6f 78 5f 69 |ox_invalve%=ox_i|
00000aa0 6e 63 61 6d 25 2b 6f 78 5f 69 6e 76 61 6c 76 65 |ncam%+ox_invalve|
00000ab0 25 3a 6f 79 5f 69 6e 76 61 6c 76 65 25 3d 6f 79 |%:oy_invalve%=oy|
00000ac0 5f 63 61 6d 25 2d 6f 79 5f 69 6e 76 61 6c 76 65 |_cam%-oy_invalve|
00000ad0 25 0d 03 5c 3f cc 20 6f 78 5f 69 6e 76 61 6c 76 |%..\?. ox_invalv|
00000ae0 65 25 3d 6f 78 5f 69 6e 76 61 6c 76 65 5f 73 68 |e%=ox_invalve_sh|
00000af0 75 74 25 3a 6f 79 5f 69 6e 76 61 6c 76 65 25 3d |ut%:oy_invalve%=|
00000b00 6f 79 5f 69 6e 76 61 6c 76 65 5f 73 68 75 74 25 |oy_invalve_shut%|
00000b10 0d 03 66 05 cd 0d 03 70 04 0d 03 7a 73 f2 76 61 |..f....p...zs.va|
00000b20 6c 76 65 28 76 61 6c 76 65 5f 64 69 61 25 2c 75 |lve(valve_dia%,u|
00000b30 70 70 65 72 5f 64 69 61 25 2c 68 65 61 64 5f 74 |pper_dia%,head_t|
00000b40 68 69 63 6b 6e 65 73 73 25 2c 76 61 6c 76 65 5f |hickness%,valve_|
00000b50 6c 65 6e 67 74 68 25 2c 73 74 65 6d 5f 64 69 61 |length%,stem_dia|
00000b60 25 2c 69 6e 76 61 6c 76 65 5f 61 6e 67 6c 65 25 |%,invalve_angle%|
00000b70 2d 39 30 2c 6f 78 5f 69 6e 76 61 6c 76 65 25 2c |-90,ox_invalve%,|
00000b80 6f 79 5f 69 6e 76 61 6c 76 65 25 29 0d 03 84 04 |oy_invalve%)....|
00000b90 0d 03 8e 1d f4 20 20 44 69 73 70 6c 61 79 20 73 |..... Display s|
00000ba0 68 61 64 6f 77 20 73 63 72 65 65 6e 2e 0d 03 98 |hadow screen....|
00000bb0 1e c8 96 3a c8 99 22 4f 53 5f 42 79 74 65 22 2c |...:.."OS_Byte",|
00000bc0 31 31 33 2c 73 63 72 65 65 6e 25 0d 03 a2 89 e7 |113,screen%.....|
00000bd0 20 63 72 5f 61 6e 67 25 3e 33 30 20 80 20 63 72 | cr_ang%>30 . cr|
00000be0 5f 61 6e 67 25 3c 33 35 30 20 8c 20 fb 20 62 6f |_ang%<350 . . bo|
00000bf0 72 65 5f 63 6f 6c 6f 75 72 25 2c 32 32 34 2c 32 |re_colour%,224,2|
00000c00 32 34 2c 30 3a fb 20 69 6e 70 6f 72 74 5f 63 6f |24,0:. inport_co|
00000c10 6c 6f 75 72 25 2c 32 32 34 2c 32 32 34 2c 30 3a |lour%,224,224,0:|
00000c20 fb 20 65 78 70 6f 72 74 5f 63 6f 6c 6f 75 72 25 |. export_colour%|
00000c30 2c 30 2c 30 2c 30 3a f4 20 59 65 6c 6c 6f 77 69 |,0,0,0:. Yellowi|
00000c40 73 68 20 66 6f 72 20 69 6e 6c 65 74 20 73 74 72 |sh for inlet str|
00000c50 6f 6b 65 2e 0d 03 ac 2a e7 20 63 72 5f 61 6e 67 |oke....*. cr_ang|
00000c60 25 3e 31 38 30 20 8c 20 fb 20 69 6e 70 6f 72 74 |%>180 . . inport|
00000c70 5f 63 6f 6c 6f 75 72 25 2c 30 2c 30 2c 30 0d 03 |_colour%,0,0,0..|
00000c80 b6 48 e7 20 63 72 5f 61 6e 67 25 3e 33 35 30 20 |.H. cr_ang%>350 |
00000c90 8c 20 fb 20 62 6f 72 65 5f 63 6f 6c 6f 75 72 25 |. . bore_colour%|
00000ca0 2c 32 32 34 2c 31 39 32 2c 30 3a f4 20 4f 72 61 |,224,192,0:. Ora|
00000cb0 6e 67 65 79 20 66 6f 72 20 70 6f 77 65 72 20 73 |ngey for power s|
00000cc0 74 72 6f 6b 65 2e 0d 03 c0 35 e7 20 63 72 5f 61 |troke....5. cr_a|
00000cd0 6e 67 25 3e 33 35 30 20 80 20 63 72 5f 61 6e 67 |ng%>350 . cr_ang|
00000ce0 25 3c 33 35 30 2b 73 74 65 70 25 20 8c 20 d4 20 |%<350+step% . . |
00000cf0 31 2c 2d 31 35 2c 36 39 2c 35 30 0d 03 ca 4c e7 |1,-15,69,50...L.|
00000d00 20 63 72 5f 61 6e 67 25 3e 35 36 30 20 8c 20 fb | cr_ang%>560 . .|
00000d10 20 65 78 70 6f 72 74 5f 63 6f 6c 6f 75 72 25 2c | export_colour%,|
00000d20 32 32 34 2c 31 39 32 2c 30 3a f4 20 4f 72 61 6e |224,192,0:. Oran|
00000d30 67 65 79 20 66 6f 72 20 65 78 68 61 75 73 74 20 |gey for exhaust |
00000d40 73 74 72 6f 6b 65 2e 0d 03 d4 04 0d 03 de 2a f4 |stroke........*.|
00000d50 20 20 54 6f 67 67 6c 65 20 73 63 72 65 65 6e 20 | Toggle screen |
00000d60 72 65 61 64 79 20 66 6f 72 20 6e 65 78 74 20 66 |ready for next f|
00000d70 72 61 6d 65 2e 0d 03 e8 19 73 63 72 65 65 6e 25 |rame.....screen%|
00000d80 3d 73 63 72 65 65 6e 25 20 82 20 25 31 31 0d 03 |=screen% . %11..|
00000d90 f2 5b 65 78 63 61 6d 5f 61 6e 67 6c 65 25 3d 28 |.[excam_angle%=(|
00000da0 65 78 63 61 6d 5f 61 6e 67 6c 65 25 2b 63 61 6d |excam_angle%+cam|
00000db0 5f 73 74 65 70 25 29 20 83 20 33 36 30 3a 69 6e |_step%) . 360:in|
00000dc0 63 61 6d 5f 61 6e 67 6c 65 25 3d 28 69 6e 63 61 |cam_angle%=(inca|
00000dd0 6d 5f 61 6e 67 6c 65 25 2b 63 61 6d 5f 73 74 65 |m_angle%+cam_ste|
00000de0 70 25 29 20 83 20 33 36 30 0d 03 fc 05 ed 0d 04 |p%) . 360.......|
00000df0 06 04 0d 04 10 07 fd 20 a3 0d 04 1a 04 0d 04 24 |....... .......$|
00000e00 05 e0 0d 04 2e 04 0d 04 38 29 f4 2a 2a 2a 2a 2a |........8).*****|
00000e10 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00000e20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d |***************.|
00000e30 04 42 04 0d 04 4c 52 dd 20 f2 63 72 61 6e 6b 73 |.B...LR. .cranks|
00000e40 68 61 66 74 28 74 68 72 6f 77 25 2c 73 68 61 66 |haft(throw%,shaf|
00000e50 74 5f 64 69 61 25 2c 66 6c 79 77 68 65 65 6c 5f |t_dia%,flywheel_|
00000e60 64 69 61 25 2c 61 72 6d 5f 74 6f 70 25 2c 61 72 |dia%,arm_top%,ar|
00000e70 6d 5f 62 61 73 65 25 2c 61 6e 67 6c 65 25 2c 78 |m_base%,angle%,x|
00000e80 25 2c 79 25 29 0d 04 56 04 0d 04 60 39 ea 20 62 |%,y%)..V...`9. b|
00000e90 6c 61 6e 6b 5f 77 69 64 74 68 25 2c 62 61 73 65 |lank_width%,base|
00000ea0 5f 72 61 64 25 2c 73 68 61 66 74 5f 72 61 64 25 |_rad%,shaft_rad%|
00000eb0 2c 73 74 25 2c 66 69 6e 25 2c 73 74 65 70 25 2c |,st%,fin%,step%,|
00000ec0 61 25 0d 04 6a 04 0d 04 74 22 62 6c 61 6e 6b 5f |a%..j...t"blank_|
00000ed0 77 69 64 74 68 25 3d 66 6c 79 77 68 65 65 6c 5f |width%=flywheel_|
00000ee0 64 69 61 25 2a 31 2e 31 0d 04 7e 1b 62 61 73 65 |dia%*1.1..~.base|
00000ef0 5f 72 61 64 25 3d 61 72 6d 5f 62 61 73 65 25 20 |_rad%=arm_base% |
00000f00 81 20 32 0d 04 88 1d 73 68 61 66 74 5f 72 61 64 |. 2....shaft_rad|
00000f10 25 3d 73 68 61 66 74 5f 64 69 61 25 20 81 20 32 |%=shaft_dia% . 2|
00000f20 0d 04 92 11 73 74 25 3d 61 6e 67 6c 65 25 2b 32 |....st%=angle%+2|
00000f30 30 0d 04 9c 10 66 69 6e 25 3d 73 74 25 2b 32 34 |0....fin%=st%+24|
00000f40 30 0d 04 a6 0d 73 74 65 70 25 3d 31 32 30 0d 04 |0....step%=120..|
00000f50 b0 0c c8 91 20 78 25 2c 79 25 0d 04 ba 04 0d 04 |.... x%,y%......|
00000f60 c4 2c f4 20 44 72 61 77 20 66 6c 79 77 68 65 65 |.,. Draw flywhee|
00000f70 6c 20 64 69 73 63 20 61 6e 64 20 62 6c 61 6e 6b |l disc and blank|
00000f80 20 6f 75 74 20 68 61 6c 66 2e 0d 04 ce 14 e6 20 | out half...... |
00000f90 6d 65 64 5f 6c 69 67 68 74 5f 67 72 65 79 0d 04 |med_light_grey..|
00000fa0 d8 1e c8 8f c8 90 20 30 2c 30 2c 66 6c 79 77 68 |...... 0,0,flywh|
00000fb0 65 65 6c 5f 64 69 61 25 20 81 20 32 0d 04 e2 4f |eel_dia% . 2...O|
00000fc0 f2 62 6c 6f 63 6b 28 66 6c 79 77 68 65 65 6c 5f |.block(flywheel_|
00000fd0 64 69 61 25 2a 30 2e 36 2c 62 6c 61 6e 6b 5f 77 |dia%*0.6,blank_w|
00000fe0 69 64 74 68 25 2a 31 2e 30 35 2c 62 6c 61 6e 6b |idth%*1.05,blank|
00000ff0 5f 77 69 64 74 68 25 2a 30 2e 35 35 2c 61 6e 67 |_width%*0.55,ang|
00001000 6c 65 25 2c 62 6c 61 63 6b 25 29 0d 04 ec 04 0d |le%,black%).....|
00001010 04 f6 15 f4 20 44 72 61 77 20 63 72 61 6e 6b 20 |.... Draw crank |
00001020 61 72 6d 2e 0d 05 00 3b f2 62 6c 6f 63 6b 28 74 |arm....;.block(t|
00001030 68 72 6f 77 25 2c 61 72 6d 5f 62 61 73 65 25 2c |hrow%,arm_base%,|
00001040 61 72 6d 5f 74 6f 70 25 2c 61 6e 67 6c 65 25 2c |arm_top%,angle%,|
00001050 6d 65 64 5f 6c 69 67 68 74 5f 67 72 65 79 29 0d |med_light_grey).|
00001060 05 0a 04 0d 05 14 1e f4 20 44 72 61 77 20 63 72 |........ Draw cr|
00001070 61 6e 6b 73 68 61 66 74 20 6a 6f 75 72 6e 61 6c |ankshaft journal|
00001080 2e 0d 05 1e 33 c8 8f c8 90 20 30 2c 30 2c 62 61 |....3.... 0,0,ba|
00001090 73 65 5f 72 61 64 25 3a f4 20 45 6e 73 75 72 65 |se_rad%:. Ensure|
000010a0 20 6e 6f 20 6a 6f 69 6e 20 6c 69 6e 65 73 20 73 | no join lines s|
000010b0 68 6f 77 2e 0d 05 28 0a e6 20 72 65 64 25 0d 05 |how...(.. red%..|
000010c0 32 17 c8 8f c8 90 20 30 2c 30 2c 73 68 61 66 74 |2..... 0,0,shaft|
000010d0 5f 72 61 64 25 0d 05 3c 04 0d 05 46 39 f4 20 44 |_rad%..<...F9. D|
000010e0 72 61 77 20 33 20 68 69 67 68 6c 69 67 68 74 73 |raw 3 highlights|
000010f0 20 74 6f 20 63 72 65 61 74 65 20 69 6d 70 72 65 | to create impre|
00001100 73 73 69 6f 6e 20 6f 66 20 72 6f 74 61 74 69 6f |ssion of rotatio|
00001110 6e 2e 0d 05 50 1b e3 20 61 25 3d 73 74 25 20 b8 |n...P.. a%=st% .|
00001120 20 66 69 6e 25 20 88 20 73 74 65 70 25 0d 05 5a | fin% . step%..Z|
00001130 29 f2 62 6c 6f 63 6b 28 73 68 61 66 74 5f 72 61 |).block(shaft_ra|
00001140 64 25 2c 30 2c 31 35 2c 61 25 2c 6c 69 67 68 74 |d%,0,15,a%,light|
00001150 5f 67 72 65 79 29 0d 05 64 05 ed 0d 05 6e 04 0d |_grey)..d....n..|
00001160 05 78 05 e1 0d 05 82 04 0d 05 8c 24 f4 2a 2a 2a |.x.........$.***|
00001170 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00001180 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 05 96 04 |************....|
00001190 0d 05 a0 47 dd 20 f2 63 6f 6e 72 6f 64 28 63 65 |...G. .conrod(ce|
000011a0 6e 74 72 65 73 25 2c 62 69 67 65 6e 64 5f 64 69 |ntres%,bigend_di|
000011b0 61 25 2c 6a 6f 75 72 6e 61 6c 5f 64 69 61 25 2c |a%,journal_dia%,|
000011c0 62 61 73 65 25 2c 74 6f 70 25 2c 61 6e 67 6c 65 |base%,top%,angle|
000011d0 2c 78 25 2c 79 25 29 0d 05 aa 04 0d 05 b4 21 ea |,x%,y%).......!.|
000011e0 20 62 69 67 65 6e 64 5f 72 61 64 25 2c 66 61 63 | bigend_rad%,fac|
000011f0 74 6f 72 31 2c 66 61 63 74 6f 72 32 0d 05 be 04 |tor1,factor2....|
00001200 0d 05 c8 0c c8 91 20 78 25 2c 79 25 0d 05 d2 1f |...... x%,y%....|
00001210 62 69 67 65 6e 64 5f 72 61 64 25 3d 62 69 67 65 |bigend_rad%=bige|
00001220 6e 64 5f 64 69 61 25 20 81 20 32 0d 05 dc 10 66 |nd_dia% . 2....f|
00001230 61 63 74 6f 72 31 3d 30 2e 36 35 0d 05 e6 10 66 |actor1=0.65....f|
00001240 61 63 74 6f 72 32 3d 30 2e 37 35 0d 05 f0 04 0d |actor2=0.75.....|
00001250 05 fa 2f f4 20 44 72 61 77 20 6d 61 69 6e 20 73 |../. Draw main s|
00001260 65 63 74 69 6f 6e 20 61 6e 64 20 6d 61 69 6e 20 |ection and main |
00001270 69 6e 6e 65 72 20 73 65 63 74 69 6f 6e 2e 0d 06 |inner section...|
00001280 04 2e f2 62 6c 6f 63 6b 28 63 65 6e 74 72 65 73 |...block(centres|
00001290 25 2c 62 61 73 65 25 2c 74 6f 70 25 2c 61 6e 67 |%,base%,top%,ang|
000012a0 6c 65 2c 6d 65 64 5f 67 72 65 79 29 0d 06 0e 44 |le,med_grey)...D|
000012b0 f2 62 6c 6f 63 6b 28 63 65 6e 74 72 65 73 25 2c |.block(centres%,|
000012c0 62 61 73 65 25 2a 66 61 63 74 6f 72 31 2c 74 6f |base%*factor1,to|
000012d0 70 25 2a 66 61 63 74 6f 72 31 2c 61 6e 67 6c 65 |p%*factor1,angle|
000012e0 2c 6d 65 64 5f 6c 69 67 68 74 5f 67 72 65 79 29 |,med_light_grey)|
000012f0 0d 06 18 04 0d 06 22 3b f4 20 44 72 61 77 20 62 |......";. Draw b|
00001300 69 67 20 65 6e 64 2c 20 62 69 67 20 65 6e 64 20 |ig end, big end |
00001310 69 6e 6e 65 72 20 72 69 6e 67 20 61 6e 64 20 62 |inner ring and b|
00001320 69 67 20 65 6e 64 20 6a 6f 75 72 6e 61 6c 2e 0d |ig end journal..|
00001330 06 2c 23 e6 20 6d 65 64 5f 67 72 65 79 3a c8 8f |.,#. med_grey:..|
00001340 c8 90 20 30 2c 30 2c 62 69 67 65 6e 64 5f 72 61 |.. 0,0,bigend_ra|
00001350 64 25 0d 06 36 31 e6 20 6d 65 64 5f 6c 69 67 68 |d%..61. med_ligh|
00001360 74 5f 67 72 65 79 3a c8 8f c8 90 20 30 2c 30 2c |t_grey:.... 0,0,|
00001370 62 69 67 65 6e 64 5f 72 61 64 25 2a 66 61 63 74 |bigend_rad%*fact|
00001380 6f 72 32 0d 06 40 24 e6 20 72 65 64 25 3a c8 8f |or2..@$. red%:..|
00001390 c8 90 20 30 2c 30 2c 6a 6f 75 72 6e 61 6c 5f 64 |.. 0,0,journal_d|
000013a0 69 61 25 20 81 20 32 0d 06 4a 24 e6 20 62 6c 61 |ia% . 2..J$. bla|
000013b0 63 6b 25 3a c8 8f 20 30 2c 30 2c 6a 6f 75 72 6e |ck%:.. 0,0,journ|
000013c0 61 6c 5f 64 69 61 25 20 81 20 32 0d 06 54 04 0d |al_dia% . 2..T..|
000013d0 06 5e 05 e1 0d 06 68 04 0d 06 72 27 f4 2a 2a 2a |.^....h...r'.***|
000013e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
000013f0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d |***************.|
00001400 06 7c 04 0d 06 86 2a dd 20 f2 70 69 73 74 6f 6e |.|....*. .piston|
00001410 28 64 69 61 25 2c 68 65 69 67 68 74 25 2c 70 69 |(dia%,height%,pi|
00001420 6e 5f 64 69 61 25 2c 78 25 2c 79 25 29 0d 06 90 |n_dia%,x%,y%)...|
00001430 04 0d 06 9a 44 ea 20 72 61 64 25 2c 70 69 6e 5f |....D. rad%,pin_|
00001440 68 65 69 67 68 74 25 2c 70 69 6e 5f 72 61 64 25 |height%,pin_rad%|
00001450 2c 70 69 6e 5f 72 61 64 5f 69 6e 6e 65 72 25 2c |,pin_rad_inner%,|
00001460 72 69 6e 67 5f 67 61 70 25 2c 72 69 6e 67 5f 77 |ring_gap%,ring_w|
00001470 69 64 74 68 25 0d 06 a4 28 ea 20 72 69 6e 67 5f |idth%...(. ring_|
00001480 6e 6f 25 2c 73 74 25 2c 66 69 6e 25 2c 73 25 2c |no%,st%,fin%,s%,|
00001490 70 61 73 73 25 2c 70 6f 73 25 2c 68 25 0d 06 ae |pass%,pos%,h%...|
000014a0 04 0d 06 b8 11 72 61 64 25 3d 64 69 61 25 20 81 |.....rad%=dia% .|
000014b0 20 32 0d 06 c2 1c 70 69 6e 5f 68 65 69 67 68 74 | 2....pin_height|
000014c0 25 3d 68 65 69 67 68 74 25 2a 30 2e 35 35 0d 06 |%=height%*0.55..|
000014d0 cc 19 70 69 6e 5f 72 61 64 25 3d 70 69 6e 5f 64 |..pin_rad%=pin_d|
000014e0 69 61 25 20 81 20 32 0d 06 d6 21 70 69 6e 5f 72 |ia% . 2...!pin_r|
000014f0 61 64 5f 69 6e 6e 65 72 25 3d 70 69 6e 5f 72 61 |ad_inner%=pin_ra|
00001500 64 25 20 2a 30 2e 37 35 0d 06 e0 27 72 69 6e 67 |d% *0.75...'ring|
00001510 5f 67 61 70 25 3d 28 68 65 69 67 68 74 25 2d 70 |_gap%=(height%-p|
00001520 69 6e 5f 68 65 69 67 68 74 25 29 20 81 20 35 0d |in_height%) . 5.|
00001530 06 ea 1e 72 69 6e 67 5f 77 69 64 74 68 25 3d 72 |...ring_width%=r|
00001540 69 6e 67 5f 67 61 70 25 2a 30 2e 31 35 0d 06 f4 |ing_gap%*0.15...|
00001550 04 0d 06 fe 0c c8 91 20 78 25 2c 79 25 0d 07 08 |....... x%,y%...|
00001560 10 e6 20 6c 69 67 68 74 5f 67 72 65 79 0d 07 12 |.. light_grey...|
00001570 04 0d 07 1c 17 f4 20 44 72 61 77 20 70 69 73 74 |...... Draw pist|
00001580 6f 6e 20 62 6f 64 79 2e 0d 07 26 28 c8 93 c8 90 |on body...&(....|
00001590 20 2d 72 61 64 25 2c 2d 70 69 6e 5f 68 65 69 67 | -rad%,-pin_heig|
000015a0 68 74 25 2c 64 69 61 25 2c 68 65 69 67 68 74 25 |ht%,dia%,height%|
000015b0 0d 07 30 04 0d 07 3a 11 f4 20 44 72 61 77 20 72 |..0...:.. Draw r|
000015c0 69 6e 67 73 2e 0d 07 44 14 e6 20 6d 65 64 5f 6c |ings...D.. med_l|
000015d0 69 67 68 74 5f 67 72 65 79 0d 07 4e 04 0d 07 58 |ight_grey..N...X|
000015e0 14 e3 20 72 69 6e 67 5f 6e 6f 25 3d 31 20 b8 20 |.. ring_no%=1 . |
000015f0 33 0d 07 62 48 c8 93 c8 90 20 2d 72 61 64 25 2c |3..bH.... -rad%,|
00001600 28 68 65 69 67 68 74 25 2d 70 69 6e 5f 68 65 69 |(height%-pin_hei|
00001610 67 68 74 25 29 2d 72 69 6e 67 5f 67 61 70 25 2a |ght%)-ring_gap%*|
00001620 72 69 6e 67 5f 6e 6f 25 2c 64 69 61 25 2c 72 69 |ring_no%,dia%,ri|
00001630 6e 67 5f 77 69 64 74 68 25 0d 07 6c 05 ed 0d 07 |ng_width%..l....|
00001640 76 04 0d 07 80 1c f4 20 44 72 61 77 20 76 65 72 |v...... Draw ver|
00001650 74 69 63 61 6c 20 73 68 61 64 69 6e 67 2e 0d 07 |tical shading...|
00001660 8a 14 e6 20 6d 65 64 5f 6c 69 67 68 74 5f 67 72 |... med_light_gr|
00001670 65 79 0d 07 94 09 73 74 25 3d 35 0d 07 9e 0b 66 |ey....st%=5....f|
00001680 69 6e 25 3d 36 35 0d 07 a8 09 73 25 3d 31 30 0d |in%=65....s%=10.|
00001690 07 b2 04 0d 07 bc 12 e3 20 70 61 73 73 25 3d 20 |........ pass%= |
000016a0 31 20 b8 20 32 0d 07 c6 1a e3 20 70 6f 73 25 3d |1 . 2..... pos%=|
000016b0 73 74 25 20 b8 20 66 69 6e 25 20 88 20 73 25 0d |st% . fin% . s%.|
000016c0 07 d0 14 68 25 3d 72 61 64 25 2a 9b b2 28 70 6f |...h%=rad%*..(po|
000016d0 73 25 29 0d 07 da 2e 86 20 2d 68 25 2c 2d 70 69 |s%)..... -h%,-pi|
000016e0 6e 5f 68 65 69 67 68 74 25 2c 2d 68 25 2c 68 65 |n_height%,-h%,he|
000016f0 69 67 68 74 25 2d 70 69 6e 5f 68 65 69 67 68 74 |ight%-pin_height|
00001700 25 0d 07 e4 05 ed 0d 07 ee 04 0d 07 f8 0b 73 74 |%.............st|
00001710 25 3d 31 31 35 0d 08 02 0c 66 69 6e 25 3d 31 37 |%=115....fin%=17|
00001720 35 0d 08 0c 05 ed 0d 08 16 04 0d 08 20 17 f4 20 |5........... .. |
00001730 44 72 61 77 20 67 75 64 67 65 6f 6e 20 70 69 6e |Draw gudgeon pin|
00001740 2e 0d 08 2a 0a e6 20 72 65 64 25 0d 08 34 15 c8 |...*.. red%..4..|
00001750 8f c8 90 20 30 2c 30 2c 70 69 6e 5f 72 61 64 25 |... 0,0,pin_rad%|
00001760 0d 08 3e 0c e6 20 62 6c 61 63 6b 25 0d 08 48 1b |..>.. black%..H.|
00001770 c8 8f c8 90 20 30 2c 30 2c 70 69 6e 5f 72 61 64 |.... 0,0,pin_rad|
00001780 5f 69 6e 6e 65 72 25 0d 08 52 04 0d 08 5c 05 e1 |_inner%..R...\..|
00001790 0d 08 66 04 0d 08 70 22 f4 2a 2a 2a 2a 2a 2a 2a |..f...p".*******|
000017a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
000017b0 2a 2a 2a 2a 2a 2a 0d 08 7a 04 0d 08 84 47 dd 20 |******..z....G. |
000017c0 f2 76 61 6c 76 65 28 64 69 61 25 2c 69 6e 6e 65 |.valve(dia%,inne|
000017d0 72 5f 64 69 61 25 2c 74 68 69 63 6b 6e 65 73 73 |r_dia%,thickness|
000017e0 25 2c 6c 65 6e 67 74 68 25 2c 73 74 65 6d 5f 64 |%,length%,stem_d|
000017f0 69 61 25 2c 61 6e 67 6c 65 25 2c 78 25 2c 79 25 |ia%,angle%,x%,y%|
00001800 29 0d 08 8e 04 0d 08 98 0c c8 91 20 78 25 2c 79 |).......... x%,y|
00001810 25 0d 08 a2 3c f2 62 6c 6f 63 6b 28 74 68 69 63 |%...<.block(thic|
00001820 6b 6e 65 73 73 25 2c 64 69 61 25 2c 69 6e 6e 65 |kness%,dia%,inne|
00001830 72 5f 64 69 61 25 2c 61 6e 67 6c 65 25 2c 6d 65 |r_dia%,angle%,me|
00001840 64 5f 6c 69 67 68 74 5f 67 72 65 79 29 0d 08 ac |d_light_grey)...|
00001850 3d f2 62 6c 6f 63 6b 28 6c 65 6e 67 74 68 25 2c |=.block(length%,|
00001860 73 74 65 6d 5f 64 69 61 25 2c 73 74 65 6d 5f 64 |stem_dia%,stem_d|
00001870 69 61 25 2c 61 6e 67 6c 65 25 2c 6d 65 64 5f 6c |ia%,angle%,med_l|
00001880 69 67 68 74 5f 67 72 65 79 29 0d 08 b6 04 0d 08 |ight_grey)......|
00001890 c0 05 e1 0d 08 ca 04 0d 08 d4 1f f4 2a 2a 2a 2a |............****|
000018a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
000018b0 2a 2a 2a 2a 2a 2a 0d 08 de 04 0d 08 e8 af dd 20 |******......... |
000018c0 f2 63 61 6d 5f 63 65 6e 74 72 65 73 28 f8 20 78 |.cam_centres(. x|
000018d0 31 25 2c f8 20 78 32 25 2c f8 20 79 25 2c f8 20 |1%,. x2%,. y%,. |
000018e0 61 6e 67 6c 65 25 2c f8 20 72 25 2c 63 79 6c 5f |angle%,. r%,cyl_|
000018f0 62 6f 72 65 25 2c 76 61 6c 76 65 5f 64 69 61 25 |bore%,valve_dia%|
00001900 2c 63 6f 6d 62 5f 63 68 61 6d 62 65 72 5f 68 65 |,comb_chamber_he|
00001910 69 67 68 74 25 2c 76 61 6c 76 65 5f 6c 65 6e 25 |ight%,valve_len%|
00001920 2c 63 61 6d 5f 64 77 65 6c 6c 5f 72 61 64 25 2c |,cam_dwell_rad%,|
00001930 63 72 61 6e 6b 5f 78 25 2c 63 72 61 6e 6b 5f 79 |crank_x%,crank_y|
00001940 25 2c 63 72 61 6e 6b 5f 74 68 72 6f 77 25 2c 63 |%,crank_throw%,c|
00001950 6f 6e 72 6f 64 63 74 73 25 2c 70 69 73 74 6f 6e |onrodcts%,piston|
00001960 5f 68 65 69 67 68 74 25 29 0d 08 f2 04 0d 08 fc |_height%).......|
00001970 2a ea 20 68 76 25 2c 76 61 6c 76 65 5f 63 68 61 |*. hv%,valve_cha|
00001980 6d 62 65 72 74 6f 70 25 2c 76 76 25 2c 61 25 2c |mbertop%,vv%,a%,|
00001990 63 68 25 2c 63 76 25 0d 09 06 04 0d 09 10 27 f4 |ch%,cv%.......'.|
000019a0 20 45 73 74 61 62 6c 69 73 68 20 70 6f 73 69 74 | Establish posit|
000019b0 69 6f 6e 20 6f 66 20 76 61 6c 76 65 20 68 65 61 |ion of valve hea|
000019c0 64 2e 0d 09 1a 20 68 76 25 3d 63 79 6c 5f 62 6f |d.... hv%=cyl_bo|
000019d0 72 65 25 2d 32 2e 35 2a 76 61 6c 76 65 5f 64 69 |re%-2.5*valve_di|
000019e0 61 25 0d 09 24 48 72 25 3d 28 63 79 6c 5f 62 6f |a%..$Hr%=(cyl_bo|
000019f0 72 65 25 5e 32 2b 28 34 2a 63 6f 6d 62 5f 63 68 |re%^2+(4*comb_ch|
00001a00 61 6d 62 65 72 5f 68 65 69 67 68 74 25 5e 32 29 |amber_height%^2)|
00001a10 29 2f 28 38 2a 63 6f 6d 62 5f 63 68 61 6d 62 65 |)/(8*comb_chambe|
00001a20 72 5f 68 65 69 67 68 74 25 29 0d 09 2e 30 76 61 |r_height%)...0va|
00001a30 6c 76 65 5f 63 68 61 6d 62 65 72 74 6f 70 25 3d |lve_chambertop%=|
00001a40 72 25 2d 30 2e 35 2a b6 28 34 2a 72 25 5e 32 2d |r%-0.5*.(4*r%^2-|
00001a50 28 68 76 25 2a 32 29 5e 32 29 0d 09 38 2e 76 76 |(hv%*2)^2)..8.vv|
00001a60 25 3d 63 6f 6d 62 5f 63 68 61 6d 62 65 72 5f 68 |%=comb_chamber_h|
00001a70 65 69 67 68 74 25 2d 76 61 6c 76 65 5f 63 68 61 |eight%-valve_cha|
00001a80 6d 62 65 72 74 6f 70 25 0d 09 42 04 0d 09 4c 1c |mbertop%..B...L.|
00001a90 f4 20 45 73 74 61 62 6c 69 73 68 20 76 61 6c 76 |. Establish valv|
00001aa0 65 20 61 6e 67 6c 65 2e 0d 09 56 13 61 25 3d 9d |e angle...V.a%=.|
00001ab0 28 98 28 68 76 25 2f 72 25 29 29 0d 09 60 10 61 |(.(hv%/r%))..`.a|
00001ac0 6e 67 6c 65 25 3d 39 30 2d 61 25 0d 09 6a 04 0d |ngle%=90-a%..j..|
00001ad0 09 74 33 f4 20 45 73 74 61 62 6c 69 73 68 20 63 |.t3. Establish c|
00001ae0 61 6d 20 63 65 6e 74 72 65 73 20 72 65 6c 61 74 |am centres relat|
00001af0 69 76 65 20 74 6f 20 76 61 6c 76 65 20 68 65 61 |ive to valve hea|
00001b00 64 2e 0d 09 7e 2a 63 68 25 3d 28 76 61 6c 76 65 |d...~*ch%=(valve|
00001b10 5f 6c 65 6e 25 2b 64 77 65 6c 6c 5f 72 61 64 25 |_len%+dwell_rad%|
00001b20 29 2a 9b b2 28 61 6e 67 6c 65 25 29 0d 09 88 2a |)*..(angle%)...*|
00001b30 63 76 25 3d 28 76 61 6c 76 65 5f 6c 65 6e 25 2b |cv%=(valve_len%+|
00001b40 64 77 65 6c 6c 5f 72 61 64 25 29 2a b5 b2 28 61 |dwell_rad%)*..(a|
00001b50 6e 67 6c 65 25 29 0d 09 92 04 0d 09 9c 2c f4 20 |ngle%).......,. |
00001b60 45 73 74 61 62 6c 69 73 68 20 6d 61 69 6e 20 63 |Establish main c|
00001b70 61 6d 20 63 65 6e 74 72 65 20 63 6f 6f 72 64 69 |am centre coordi|
00001b80 6e 61 74 65 73 2e 0d 09 a6 18 78 31 25 3d 63 72 |nates.....x1%=cr|
00001b90 61 6e 6b 5f 78 25 2d 63 68 25 2d 68 76 25 0d 09 |ank_x%-ch%-hv%..|
00001ba0 b0 18 78 32 25 3d 63 72 61 6e 6b 5f 78 25 2b 63 |..x2%=crank_x%+c|
00001bb0 68 25 2b 68 76 25 0d 09 ba 43 79 25 3d 63 72 61 |h%+hv%...Cy%=cra|
00001bc0 6e 6b 5f 79 25 2b 63 72 61 6e 6b 5f 74 68 72 6f |nk_y%+crank_thro|
00001bd0 77 25 2b 63 6f 6e 72 6f 64 63 74 73 25 2b 70 69 |w%+conrodcts%+pi|
00001be0 73 74 6f 6e 5f 68 65 69 67 68 74 25 2a 30 2e 34 |ston_height%*0.4|
00001bf0 35 2b 76 76 25 2b 63 76 25 0d 09 c4 04 0d 09 ce |5+vv%+cv%.......|
00001c00 05 e1 0d 09 d8 04 0d 09 e2 24 f4 2a 2a 2a 2a 2a |.........$.*****|
00001c10 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00001c20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 09 ec 04 0d 09 |**********......|
00001c30 f6 28 dd 20 f2 63 61 6d 28 6c 69 66 74 25 2c 62 |.(. .cam(lift%,b|
00001c40 61 73 65 5f 72 61 64 25 2c 61 6e 67 6c 65 25 2c |ase_rad%,angle%,|
00001c50 78 25 2c 79 25 29 0d 0a 00 04 0d 0a 0a 11 ea 20 |x%,y%)......... |
00001c60 62 6c 61 6e 6b 5f 62 61 73 65 25 0d 0a 14 04 0d |blank_base%.....|
00001c70 0a 1e 1e 62 6c 61 6e 6b 5f 62 61 73 65 25 3d 62 |...blank_base%=b|
00001c80 61 73 65 5f 72 61 64 25 2a 32 2b 31 30 0d 0a 28 |ase_rad%*2+10..(|
00001c90 0c c8 91 20 78 25 2c 79 25 0d 0a 32 0e e6 20 6d |... x%,y%..2.. m|
00001ca0 65 64 5f 67 72 65 79 0d 0a 3c 27 c8 9d c8 90 20 |ed_grey..<'.... |
00001cb0 30 2c 30 2c 6c 69 66 74 25 2c 62 61 73 65 5f 72 |0,0,lift%,base_r|
00001cc0 61 64 25 2c 2d b2 28 61 6e 67 6c 65 25 29 0d 0a |ad%,-.(angle%)..|
00001cd0 46 3c f2 62 6c 6f 63 6b 28 6c 69 66 74 25 2b 34 |F<.block(lift%+4|
00001ce0 2c 62 6c 61 6e 6b 5f 62 61 73 65 25 2c 62 6c 61 |,blank_base%,bla|
00001cf0 6e 6b 5f 62 61 73 65 25 2c 61 6e 67 6c 65 25 2b |nk_base%,angle%+|
00001d00 39 30 2c 62 6c 61 63 6b 25 29 0d 0a 50 0e e6 20 |90,black%)..P.. |
00001d10 6d 65 64 5f 67 72 65 79 0d 0a 5a 16 c8 8f c8 90 |med_grey..Z.....|
00001d20 20 30 2c 30 2c 62 61 73 65 5f 72 61 64 25 0d 0a | 0,0,base_rad%..|
00001d30 64 0a e6 20 72 65 64 25 0d 0a 6e 1a c8 8f c8 90 |d.. red%..n.....|
00001d40 20 30 2c 30 2c 62 61 73 65 5f 72 61 64 25 2a 30 | 0,0,base_rad%*0|
00001d50 2e 35 0d 0a 78 04 0d 0a 82 05 e1 0d 0a 8c 04 0d |.5..x...........|
00001d60 0a 96 1b f4 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |....************|
00001d70 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a a0 04 0d 0a |**********......|
00001d80 aa 51 dd 20 f2 76 61 6c 76 65 50 6f 73 28 78 25 |.Q. .valvePos(x%|
00001d90 2c 79 25 2c 61 6e 67 6c 65 25 2c 68 5f 76 61 6c |,y%,angle%,h_val|
00001da0 76 65 25 2c 76 5f 76 61 6c 76 65 25 2c 64 77 65 |ve%,v_valve%,dwe|
00001db0 6c 6c 52 61 64 25 2c 6c 69 66 74 25 2c 63 6f 6c |llRad%,lift%,col|
00001dc0 6f 75 72 25 2c f8 20 68 25 2c f8 20 76 25 29 0d |our%,. h%,. v%).|
00001dd0 0a b4 04 0d 0a be 25 ea 20 73 69 6e 2c 63 6f 73 |......%. sin,cos|
00001de0 2c 73 74 61 72 74 25 2c 66 69 6e 25 2c 70 6f 73 |,start%,fin%,pos|
00001df0 25 2c 63 68 65 63 6b 25 0d 0a c8 04 0d 0a d2 0c |%,check%........|
00001e00 c8 91 20 78 25 2c 79 25 0d 0a dc 12 73 69 6e 3d |.. x%,y%....sin=|
00001e10 b5 b2 28 61 6e 67 6c 65 25 29 0d 0a e6 12 63 6f |..(angle%)....co|
00001e20 73 3d 9b b2 28 61 6e 67 6c 65 25 29 0d 0a f0 16 |s=..(angle%)....|
00001e30 73 74 61 72 74 25 3d 64 77 65 6c 6c 52 61 64 25 |start%=dwellRad%|
00001e40 2d 35 0d 0a fa 10 66 69 6e 25 3d 6c 69 66 74 25 |-5....fin%=lift%|
00001e50 2b 35 0d 0b 04 04 0d 0b 0e 05 f5 0d 0b 18 20 70 |+5............ p|
00001e60 6f 73 25 3d 28 66 69 6e 25 2d 73 74 61 72 74 25 |os%=(fin%-start%|
00001e70 29 81 20 32 2b 73 74 61 72 74 25 0d 0b 22 0f 68 |). 2+start%..".h|
00001e80 25 3d 70 6f 73 25 2a 63 6f 73 0d 0b 2c 0f 76 25 |%=pos%*cos..,.v%|
00001e90 3d 70 6f 73 25 2a 73 69 6e 0d 0b 36 13 63 68 65 |=pos%*sin..6.che|
00001ea0 63 6b 25 3d b0 68 25 2c 2d 76 25 29 0d 0b 40 2e |ck%=.h%,-v%)..@.|
00001eb0 e7 20 63 68 65 63 6b 25 3d 63 6f 6c 6f 75 72 25 |. check%=colour%|
00001ec0 20 8c 20 73 74 61 72 74 25 3d 70 6f 73 25 20 8b | . start%=pos% .|
00001ed0 20 66 69 6e 25 3d 70 6f 73 25 0d 0b 4a 13 fd 20 | fin%=pos%..J.. |
00001ee0 66 69 6e 25 2d 73 74 61 72 74 25 3c 32 0d 0b 54 |fin%-start%<2..T|
00001ef0 04 0d 0b 5e 10 68 25 2b 3d 68 5f 76 61 6c 76 65 |...^.h%+=h_valve|
00001f00 25 0d 0b 68 10 76 25 2b 3d 76 5f 76 61 6c 76 65 |%..h.v%+=v_valve|
00001f10 25 0d 0b 72 04 0d 0b 7c 05 e1 0d 0b 86 04 0d 0b |%..r...|........|
00001f20 90 1c f4 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |...*************|
00001f30 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0b 9a 04 0d 0b |**********......|
00001f40 a4 0c dd 20 f2 65 72 72 6f 72 0d 0b ae 04 0d 0b |... .error......|
00001f50 b8 09 ee 20 85 20 87 0d 0b c2 08 eb 20 31 32 0d |... . ...... 12.|
00001f60 0b cc 0c e7 20 9f 3d 31 37 20 8c 0d 0b d6 15 f1 |.... .=17 ......|
00001f70 22 45 73 63 61 70 65 20 70 72 65 73 73 65 64 22 |"Escape pressed"|
00001f80 0d 0b e0 20 f4 20 53 59 53 22 57 69 6d 70 5f 43 |... . SYS"Wimp_C|
00001f90 6f 6d 6d 61 6e 64 57 69 6e 64 6f 77 22 2c 2d 31 |ommandWindow",-1|
00001fa0 0d 0b ea 07 cc 20 f6 0d 0b f4 12 f1 22 20 61 74 |..... ......" at|
00001fb0 20 6c 69 6e 65 20 22 3b 9e 0d 0b fe 05 cd 0d 0c | line ";........|
00001fc0 08 05 e0 0d 0c 12 05 e1 0d 0c 1c 04 0d 0c 26 24 |..............&$|
00001fd0 f4 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |.***************|
00001fe0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00001ff0 0d 0c 30 04 0d 0c 3a 39 dd 20 f2 70 6c 75 67 28 |..0...:9. .plug(|
00002000 74 68 64 5f 64 69 61 25 2c 6e 75 74 5f 64 69 61 |thd_dia%,nut_dia|
00002010 25 2c 62 6f 64 79 5f 62 61 73 65 25 2c 62 6f 64 |%,body_base%,bod|
00002020 79 5f 74 6f 70 25 2c 78 25 2c 79 25 29 0d 0c 44 |y_top%,x%,y%)..D|
00002030 04 0d 0c 4e 0c c8 91 20 78 25 2c 79 25 0d 0c 58 |...N... x%,y%..X|
00002040 04 0d 0c 62 31 f2 62 6c 6f 63 6b 28 74 68 64 5f |...b1.block(thd_|
00002050 64 69 61 25 2c 74 68 64 5f 64 69 61 25 2c 74 68 |dia%,thd_dia%,th|
00002060 64 5f 64 69 61 25 2c 30 2c 6d 65 64 5f 67 72 65 |d_dia%,0,med_gre|
00002070 79 29 0d 0c 6c 15 c8 91 20 78 25 2c 79 25 2b 74 |y)..l... x%,y%+t|
00002080 68 64 5f 64 69 61 25 0d 0c 76 33 f2 62 6c 6f 63 |hd_dia%..v3.bloc|
00002090 6b 28 31 30 30 2c 6e 75 74 5f 64 69 61 25 2a 31 |k(100,nut_dia%*1|
000020a0 2e 31 2c 6e 75 74 5f 64 69 61 25 2a 31 2e 33 35 |.1,nut_dia%*1.35|
000020b0 2c 30 2c 62 6c 61 63 6b 25 29 0d 0c 80 35 f2 62 |,0,black%)...5.b|
000020c0 6c 6f 63 6b 28 6e 75 74 5f 64 69 61 25 2a 30 2e |lock(nut_dia%*0.|
000020d0 34 2c 6e 75 74 5f 64 69 61 25 2c 6e 75 74 5f 64 |4,nut_dia%,nut_d|
000020e0 69 61 25 2c 30 2c 6d 65 64 5f 67 72 65 79 29 0d |ia%,0,med_grey).|
000020f0 0c 8a 24 c8 91 20 78 25 2c 79 25 2b 74 68 64 5f |..$.. x%,y%+thd_|
00002100 64 69 61 25 2b 28 6e 75 74 5f 64 69 61 25 2a 30 |dia%+(nut_dia%*0|
00002110 2e 34 29 0d 0c 94 3e f2 62 6c 6f 63 6b 28 62 6f |.4)...>.block(bo|
00002120 64 79 5f 62 61 73 65 25 2a 32 2c 62 6f 64 79 5f |dy_base%*2,body_|
00002130 62 61 73 65 25 2c 62 6f 64 79 5f 74 6f 70 25 2c |base%,body_top%,|
00002140 30 2c 6d 65 64 5f 6c 69 67 68 74 5f 67 72 65 79 |0,med_light_grey|
00002150 29 0d 0c 9e 04 0d 0c a8 05 e1 0d 0c b2 04 0d 0c |)...............|
00002160 bc 19 f4 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |...*************|
00002170 2a 2a 2a 2a 2a 2a 2a 0d 0c c6 04 0d 0c d0 11 dd |*******.........|
00002180 20 f2 73 65 74 43 6f 6c 6f 75 72 73 0d 0c da 04 | .setColours....|
00002190 0d 0c e4 1a f4 20 53 65 74 20 62 6f 72 64 65 72 |..... Set border|
000021a0 20 74 6f 20 62 6c 61 63 6b 2e 0d 0c ee 12 ef 31 | to black......1|
000021b0 39 2c 31 2c 32 34 2c 30 2c 30 2c 30 0d 0c f8 04 |9,1,24,0,0,0....|
000021c0 0d 0d 02 0c 62 6c 61 63 6b 25 3d 30 0d 0d 0c 24 |....black%=0...$|
000021d0 64 61 72 6b 5f 67 72 65 79 3d 31 3a fb 20 64 61 |dark_grey=1:. da|
000021e0 72 6b 5f 67 72 65 79 2c 36 34 2c 36 34 2c 36 34 |rk_grey,64,64,64|
000021f0 0d 0d 16 2e 6d 65 64 5f 64 61 72 6b 5f 67 72 65 |....med_dark_gre|
00002200 79 3d 32 3a fb 6d 65 64 5f 64 61 72 6b 5f 67 72 |y=2:.med_dark_gr|
00002210 65 79 2c 31 31 32 2c 31 31 32 2c 31 31 32 0d 0d |ey,112,112,112..|
00002220 20 25 6d 65 64 5f 67 72 65 79 3d 33 3a fb 20 6d | %med_grey=3:. m|
00002230 65 64 5f 67 72 65 79 2c 31 39 32 2c 31 39 32 2c |ed_grey,192,192,|
00002240 31 39 32 0d 0d 2a 31 6d 65 64 5f 6c 69 67 68 74 |192..*1med_light|
00002250 5f 67 72 65 79 3d 34 3a fb 20 6d 65 64 5f 6c 69 |_grey=4:. med_li|
00002260 67 68 74 5f 67 72 65 79 2c 32 30 38 2c 32 30 38 |ght_grey,208,208|
00002270 2c 32 30 38 0d 0d 34 29 6c 69 67 68 74 5f 67 72 |,208..4)light_gr|
00002280 65 79 3d 35 3a fb 20 6c 69 67 68 74 5f 67 72 65 |ey=5:. light_gre|
00002290 79 2c 32 32 34 2c 32 32 34 2c 32 32 34 0d 0d 3e |y,224,224,224..>|
000022a0 19 72 65 64 25 3d 36 3a fb 20 72 65 64 25 2c 32 |.red%=6:. red%,2|
000022b0 35 35 2c 30 2c 30 0d 0d 48 0c 77 68 69 74 65 25 |55,0,0..H.white%|
000022c0 3d 37 0d 0d 52 3c 62 6f 72 65 5f 63 6f 6c 6f 75 |=7..R<bore_colou|
000022d0 72 25 3d 38 3a fb 20 38 2c 30 2c 30 2c 30 3a f4 |r%=8:. 8,0,0,0:.|
000022e0 20 53 65 74 20 74 6f 20 62 6c 61 63 6b 20 66 6f | Set to black fo|
000022f0 72 20 62 6f 72 65 20 63 6f 6c 6f 75 72 2e 0d 0d |r bore colour...|
00002300 5c 40 65 78 70 6f 72 74 5f 63 6f 6c 6f 75 72 25 |\@export_colour%|
00002310 3d 39 3a fb 20 39 2c 30 2c 30 2c 30 3a f4 20 53 |=9:. 9,0,0,0:. S|
00002320 65 74 20 74 6f 20 62 6c 61 63 6b 20 66 6f 72 20 |et to black for |
00002330 65 78 70 6f 72 74 20 63 6f 6c 6f 75 72 2e 0d 0d |export colour...|
00002340 66 42 69 6e 70 6f 72 74 5f 63 6f 6c 6f 75 72 25 |fBinport_colour%|
00002350 3d 31 30 3a fb 20 31 30 2c 30 2c 30 2c 30 3a f4 |=10:. 10,0,0,0:.|
00002360 20 53 65 74 20 74 6f 20 62 6c 61 63 6b 20 66 6f | Set to black fo|
00002370 72 20 69 6e 70 6f 72 74 20 63 6f 6c 6f 75 72 2e |r inport colour.|
00002380 0d 0d 70 04 0d 0d 7a 05 e1 0d 0d 84 04 0d 0d 8e |..p...z.........|
00002390 1c f4 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |..**************|
000023a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0d 98 04 0d 0d a2 |*********.......|
000023b0 11 dd 20 f2 64 69 6d 65 6e 73 69 6f 6e 73 0d 0d |.. .dimensions..|
000023c0 ac 04 0d 0d b6 19 f4 20 43 72 61 6e 6b 73 68 61 |....... Cranksha|
000023d0 66 74 20 63 65 6e 74 72 65 73 2e 0d 0d c0 0e 6f |ft centres.....o|
000023e0 78 5f 63 72 25 3d 36 34 30 0d 0d ca 0e 6f 79 5f |x_cr%=640....oy_|
000023f0 63 72 25 3d 32 35 35 0d 0d d4 04 0d 0d de 18 f4 |cr%=255.........|
00002400 20 45 6e 67 69 6e 65 20 64 69 6d 65 6e 73 69 6f | Engine dimensio|
00002410 6e 73 2e 0d 0d e8 0d 62 6f 72 65 25 3d 31 38 35 |ns.....bore%=185|
00002420 0d 0d f2 0f 73 74 72 6f 6b 65 25 3d 31 39 30 0d |....stroke%=190.|
00002430 0d fc 29 63 6f 6d 62 75 73 74 69 6f 6e 5f 63 68 |..)combustion_ch|
00002440 61 6d 62 65 72 5f 68 65 69 67 68 74 25 3d 62 6f |amber_height%=bo|
00002450 72 65 25 2a 30 2e 31 39 0d 0e 06 04 0d 0e 10 18 |re%*0.19........|
00002460 f4 20 50 69 73 74 6f 6e 20 64 69 6d 65 6e 73 69 |. Piston dimensi|
00002470 6f 6e 73 2e 0d 0e 1a 1c 70 69 73 74 6f 6e 5f 68 |ons.....piston_h|
00002480 65 69 67 68 74 25 3d 62 6f 72 65 25 2a 31 2e 31 |eight%=bore%*1.1|
00002490 0d 0e 24 1f 67 75 64 67 65 6f 6e 5f 70 69 6e 5f |..$.gudgeon_pin_|
000024a0 64 69 61 25 3d 62 6f 72 65 25 2a 30 2e 32 35 0d |dia%=bore%*0.25.|
000024b0 0e 2e 04 0d 0e 38 1c f4 20 43 72 61 6e 6b 73 68 |.....8.. Cranksh|
000024c0 61 66 74 20 64 69 6d 65 6e 73 69 6f 6e 73 2e 0d |aft dimensions..|
000024d0 0e 42 1c 63 72 61 6e 6b 5f 74 68 72 6f 77 25 3d |.B.crank_throw%=|
000024e0 73 74 72 6f 6b 65 25 20 81 20 32 0d 0e 4c 1b 66 |stroke% . 2..L.f|
000024f0 6c 79 77 68 65 65 6c 5f 64 69 61 25 3d 62 6f 72 |lywheel_dia%=bor|
00002500 65 25 2a 31 2e 36 0d 0e 56 25 63 72 61 6e 6b 73 |e%*1.6..V%cranks|
00002510 68 61 66 74 5f 64 69 61 25 3d 66 6c 79 77 68 65 |haft_dia%=flywhe|
00002520 65 6c 5f 64 69 61 25 20 81 20 33 0d 0e 60 23 63 |el_dia% . 3..`#c|
00002530 72 61 6e 6b 61 72 6d 5f 74 6f 70 25 3d 66 6c 79 |rankarm_top%=fly|
00002540 77 68 65 65 6c 5f 64 69 61 25 20 81 20 35 0d 0e |wheel_dia% . 5..|
00002550 6a 24 63 72 61 6e 6b 61 72 6d 5f 62 61 73 65 25 |j$crankarm_base%|
00002560 3d 66 6c 79 77 68 65 65 6c 5f 64 69 61 25 20 81 |=flywheel_dia% .|
00002570 20 32 0d 0e 74 04 0d 0e 7e 19 f4 20 43 6f 6e 20 | 2..t...~.. Con |
00002580 72 6f 64 20 64 69 6d 65 6e 73 69 6f 6e 73 2e 0d |rod dimensions..|
00002590 0e 88 55 63 6f 6e 72 6f 64 5f 63 74 73 25 3d 63 |..Uconrod_cts%=c|
000025a0 72 61 6e 6b 5f 74 68 72 6f 77 25 2b 66 6c 79 77 |rank_throw%+flyw|
000025b0 68 65 65 6c 5f 64 69 61 25 20 81 20 32 2b 66 6c |heel_dia% . 2+fl|
000025c0 79 77 68 65 65 6c 5f 64 69 61 25 20 81 20 35 30 |ywheel_dia% . 50|
000025d0 2b 70 69 73 74 6f 6e 5f 68 65 69 67 68 74 25 20 |+piston_height% |
000025e0 2a 30 2e 36 0d 0e 92 2b 62 69 67 65 6e 64 5f 6a |*0.6...+bigend_j|
000025f0 6f 75 72 6e 61 6c 5f 64 69 61 25 3d 63 72 61 6e |ournal_dia%=cran|
00002600 6b 73 68 61 66 74 5f 64 69 61 25 2a 30 2e 36 0d |kshaft_dia%*0.6.|
00002610 0e 9c 23 62 69 67 65 6e 64 5f 64 69 61 25 3d 63 |..#bigend_dia%=c|
00002620 72 61 6e 6b 73 68 61 66 74 5f 64 69 61 25 2a 31 |rankshaft_dia%*1|
00002630 2e 35 0d 0e a6 20 63 6f 6e 72 6f 64 5f 62 61 73 |.5... conrod_bas|
00002640 65 25 3d 62 69 67 65 6e 64 5f 64 69 61 25 2a 30 |e%=bigend_dia%*0|
00002650 2e 39 0d 0e b0 1f 63 6f 6e 72 6f 64 5f 74 6f 70 |.9....conrod_top|
00002660 25 3d 62 69 67 65 6e 64 5f 64 69 61 25 2a 30 2e |%=bigend_dia%*0.|
00002670 35 0d 0e ba 04 0d 0e c4 17 f4 20 56 61 6c 76 65 |5......... Valve|
00002680 20 64 69 6d 65 6e 73 69 6f 6e 73 2e 0d 0e ce 18 | dimensions.....|
00002690 76 61 6c 76 65 5f 64 69 61 25 3d 62 6f 72 65 25 |valve_dia%=bore%|
000026a0 2a 30 2e 33 0d 0e d8 23 68 65 61 64 5f 74 68 69 |*0.3...#head_thi|
000026b0 63 6b 6e 65 73 73 25 3d 76 61 6c 76 65 5f 64 69 |ckness%=valve_di|
000026c0 61 25 2a 30 2e 31 35 0d 0e e2 2b 75 70 70 65 72 |a%*0.15...+upper|
000026d0 5f 64 69 61 25 3d 76 61 6c 76 65 5f 64 69 61 25 |_dia%=valve_dia%|
000026e0 2d 32 2a 68 65 61 64 5f 74 68 69 63 6b 6e 65 73 |-2*head_thicknes|
000026f0 73 25 0d 0e ec 20 76 61 6c 76 65 5f 6c 65 6e 67 |s%... valve_leng|
00002700 74 68 25 3d 76 61 6c 76 65 5f 64 69 61 25 2a 31 |th%=valve_dia%*1|
00002710 2e 39 0d 0e f6 1c 73 74 65 6d 5f 64 69 61 25 3d |.9....stem_dia%=|
00002720 76 61 6c 76 65 5f 64 69 61 25 2a 30 2e 32 0d 0f |valve_dia%*0.2..|
00002730 00 41 76 61 6c 76 65 5f 61 6e 67 6c 65 31 25 3d |.Avalve_angle1%=|
00002740 38 30 3a f4 20 54 65 6d 70 20 76 61 6c 75 65 2e |80:. Temp value.|
00002750 20 46 69 6e 61 6c 20 66 69 67 75 72 65 20 74 6f | Final figure to|
00002760 20 62 65 20 63 61 6c 63 75 6c 61 74 65 64 2e 0d | be calculated..|
00002770 0f 0a 42 76 61 6c 76 65 5f 61 6e 67 6c 65 32 25 |..Bvalve_angle2%|
00002780 3d 31 31 30 3a f4 20 54 65 6d 70 20 76 61 6c 75 |=110:. Temp valu|
00002790 65 2e 20 46 69 6e 61 6c 20 66 69 67 75 72 65 20 |e. Final figure |
000027a0 74 6f 20 62 65 20 63 61 6c 63 75 6c 61 74 65 64 |to be calculated|
000027b0 2e 0d 0f 14 04 0d 0f 1e 15 f4 5f 43 61 6d 20 64 |.........._Cam d|
000027c0 69 6d 65 6e 73 69 6f 6e 73 2e 0d 0f 28 18 63 61 |imensions...(.ca|
000027d0 6d 5f 6c 69 66 74 25 3d 62 6f 72 65 25 2a 30 2e |m_lift%=bore%*0.|
000027e0 31 37 0d 0f 32 1c 64 77 65 6c 6c 5f 72 61 64 25 |17..2.dwell_rad%|
000027f0 3d 63 61 6d 5f 6c 69 66 74 25 20 81 20 32 0d 0f |=cam_lift% . 2..|
00002800 3c 04 0d 0f 46 23 f4 20 45 73 74 61 62 6c 69 73 |<...F#. Establis|
00002810 68 20 63 61 6d 73 68 61 66 74 20 70 6f 73 69 74 |h camshaft posit|
00002820 69 6f 6e 73 2e 0d 0f 50 c2 f2 63 61 6d 5f 63 65 |ions...P..cam_ce|
00002830 6e 74 72 65 73 28 6f 78 5f 65 78 63 61 6d 25 2c |ntres(ox_excam%,|
00002840 6f 78 5f 69 6e 63 61 6d 25 2c 6f 79 5f 63 61 6d |ox_incam%,oy_cam|
00002850 25 2c 76 61 6c 76 65 5f 61 6e 67 6c 65 25 2c 63 |%,valve_angle%,c|
00002860 68 61 6d 62 65 72 5f 72 61 64 25 2c 62 6f 72 65 |hamber_rad%,bore|
00002870 25 2c 76 61 6c 76 65 5f 64 69 61 25 2c 63 6f 6d |%,valve_dia%,com|
00002880 62 75 73 74 69 6f 6e 5f 63 68 61 6d 62 65 72 5f |bustion_chamber_|
00002890 68 65 69 67 68 74 25 2c 76 61 6c 76 65 5f 6c 65 |height%,valve_le|
000028a0 6e 67 74 68 25 2c 64 77 65 6c 6c 5f 72 61 64 25 |ngth%,dwell_rad%|
000028b0 2c 6f 78 5f 63 72 25 2c 6f 79 5f 63 72 25 2c 63 |,ox_cr%,oy_cr%,c|
000028c0 72 61 6e 6b 5f 74 68 72 6f 77 25 2c 63 6f 6e 72 |rank_throw%,conr|
000028d0 6f 64 5f 63 74 73 25 2c 70 69 73 74 6f 6e 5f 68 |od_cts%,piston_h|
000028e0 65 69 67 68 74 25 29 0d 0f 5a 1f 65 78 76 61 6c |eight%)..Z.exval|
000028f0 76 65 5f 61 6e 67 6c 65 25 3d 76 61 6c 76 65 5f |ve_angle%=valve_|
00002900 61 6e 67 6c 65 25 0d 0f 64 23 69 6e 76 61 6c 76 |angle%..d#invalv|
00002910 65 5f 61 6e 67 6c 65 25 3d 31 38 30 2d 76 61 6c |e_angle%=180-val|
00002920 76 65 5f 61 6e 67 6c 65 25 0d 0f 6e 25 65 78 63 |ve_angle%..n%exc|
00002930 61 6d 5f 6f 70 5f 73 74 61 72 74 25 3d 65 78 76 |am_op_start%=exv|
00002940 61 6c 76 65 5f 61 6e 67 6c 65 25 2b 39 30 0d 0f |alve_angle%+90..|
00002950 78 25 65 78 63 61 6d 5f 6f 70 5f 66 69 6e 25 3d |x%excam_op_fin%=|
00002960 65 78 63 61 6d 5f 6f 70 5f 73 74 61 72 74 25 2b |excam_op_start%+|
00002970 31 38 30 0d 0f 82 25 69 6e 63 61 6d 5f 6f 70 5f |180...%incam_op_|
00002980 73 74 61 72 74 25 3d 69 6e 76 61 6c 76 65 5f 61 |start%=invalve_a|
00002990 6e 67 6c 65 25 2b 39 30 0d 0f 8c 25 69 6e 63 61 |ngle%+90...%inca|
000029a0 6d 5f 6f 70 5f 66 69 6e 25 3d 69 6e 63 61 6d 5f |m_op_fin%=incam_|
000029b0 6f 70 5f 73 74 61 72 74 25 2b 31 38 30 0d 0f 96 |op_start%+180...|
000029c0 04 0d 0f a0 16 f4 20 50 6f 72 74 20 64 69 6d 65 |...... Port dime|
000029d0 6e 73 69 6f 6e 73 2e 0d 0f aa 1c 70 6f 72 74 5f |nsions.....port_|
000029e0 64 69 61 25 3d 76 61 6c 76 65 5f 64 69 61 25 2a |dia%=valve_dia%*|
000029f0 30 2e 37 0d 0f b4 1f 70 6f 72 74 5f 6c 65 6e 25 |0.7....port_len%|
00002a00 3d 76 61 6c 76 65 5f 6c 65 6e 67 74 68 25 2a 30 |=valve_length%*0|
00002a10 2e 34 0d 0f be 04 0d 0f c8 34 f4 20 45 73 74 61 |.4.......4. Esta|
00002a20 62 6c 69 73 68 20 74 6f 70 20 63 6f 72 6e 65 72 |blish top corner|
00002a30 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 70 6f 72 | position of por|
00002a40 74 2e 20 68 70 20 26 20 76 70 0d 0f d2 21 68 31 |t. hp & vp...!h1|
00002a50 3d 70 6f 72 74 5f 6c 65 6e 25 2a 9b b2 28 76 61 |=port_len%*..(va|
00002a60 6c 76 65 5f 61 6e 67 6c 65 25 29 0d 0f dc 21 76 |lve_angle%)...!v|
00002a70 31 3d 70 6f 72 74 5f 6c 65 6e 25 2a b5 b2 28 76 |1=port_len%*..(v|
00002a80 61 6c 76 65 5f 61 6e 67 6c 65 25 29 0d 0f e6 27 |alve_angle%)...'|
00002a90 68 32 3d 28 70 6f 72 74 5f 64 69 61 25 20 81 20 |h2=(port_dia% . |
00002aa0 32 29 2a b5 b2 28 76 61 6c 76 65 5f 61 6e 67 6c |2)*..(valve_angl|
00002ab0 65 25 29 0d 0f f0 27 76 32 3d 28 70 6f 72 74 5f |e%)...'v2=(port_|
00002ac0 64 69 61 25 20 81 20 32 29 2a 9b b2 28 76 61 6c |dia% . 2)*..(val|
00002ad0 76 65 5f 61 6e 67 6c 65 25 29 0d 0f fa 0d 68 70 |ve_angle%)....hp|
00002ae0 25 3d 68 31 2d 68 32 0d 10 04 0d 76 70 25 3d 76 |%=h1-h2....vp%=v|
00002af0 31 2b 76 32 0d 10 0e 04 0d 10 18 3a f4 20 45 73 |1+v2.......:. Es|
00002b00 74 61 62 6c 69 73 68 20 70 6f 73 69 74 69 6f 6e |tablish position|
00002b10 20 6f 66 20 76 61 6c 76 65 20 68 65 61 64 20 69 | of valve head i|
00002b20 6e 20 63 6c 6f 73 65 64 20 70 6f 73 69 74 69 6f |n closed positio|
00002b30 6e 2e 0d 10 22 2f 68 5f 65 78 76 61 6c 76 65 25 |n..."/h_exvalve%|
00002b40 3d 76 61 6c 76 65 5f 6c 65 6e 67 74 68 25 2a 9b |=valve_length%*.|
00002b50 b2 28 65 78 76 61 6c 76 65 5f 61 6e 67 6c 65 25 |.(exvalve_angle%|
00002b60 29 0d 10 2c 2f 68 5f 69 6e 76 61 6c 76 65 25 3d |)..,/h_invalve%=|
00002b70 76 61 6c 76 65 5f 6c 65 6e 67 74 68 25 2a 9b b2 |valve_length%*..|
00002b80 28 69 6e 76 61 6c 76 65 5f 61 6e 67 6c 65 25 29 |(invalve_angle%)|
00002b90 0d 10 36 2b 76 5f 76 61 6c 76 65 25 3d 76 61 6c |..6+v_valve%=val|
00002ba0 76 65 5f 6c 65 6e 67 74 68 25 2a b5 b2 28 76 61 |ve_length%*..(va|
00002bb0 6c 76 65 5f 61 6e 67 6c 65 25 29 0d 10 40 28 68 |lve_angle%)..@(h|
00002bc0 5f 63 61 6d 25 3d 64 77 65 6c 6c 5f 72 61 64 25 |_cam%=dwell_rad%|
00002bd0 2a 9b b2 28 65 78 76 61 6c 76 65 5f 61 6e 67 6c |*..(exvalve_angl|
00002be0 65 25 29 0d 10 4a 28 76 5f 63 61 6d 25 3d 64 77 |e%)..J(v_cam%=dw|
00002bf0 65 6c 6c 5f 72 61 64 25 2a b5 b2 28 65 78 76 61 |ell_rad%*..(exva|
00002c00 6c 76 65 5f 61 6e 67 6c 65 25 29 0d 10 54 30 6f |lve_angle%)..T0o|
00002c10 78 5f 65 78 76 61 6c 76 65 5f 73 68 75 74 25 3d |x_exvalve_shut%=|
00002c20 6f 78 5f 65 78 63 61 6d 25 2b 68 5f 63 61 6d 25 |ox_excam%+h_cam%|
00002c30 2b 68 5f 65 78 76 61 6c 76 65 25 0d 10 5e 2c 6f |+h_exvalve%..^,o|
00002c40 79 5f 65 78 76 61 6c 76 65 5f 73 68 75 74 25 3d |y_exvalve_shut%=|
00002c50 6f 79 5f 63 61 6d 25 2d 76 5f 63 61 6d 25 2d 76 |oy_cam%-v_cam%-v|
00002c60 5f 76 61 6c 76 65 25 0d 10 68 30 6f 78 5f 69 6e |_valve%..h0ox_in|
00002c70 76 61 6c 76 65 5f 73 68 75 74 25 3d 6f 78 5f 69 |valve_shut%=ox_i|
00002c80 6e 63 61 6d 25 2d 68 5f 63 61 6d 25 2b 68 5f 69 |ncam%-h_cam%+h_i|
00002c90 6e 76 61 6c 76 65 25 0d 10 72 25 6f 79 5f 69 6e |nvalve%..r%oy_in|
00002ca0 76 61 6c 76 65 5f 73 68 75 74 25 3d 6f 79 5f 65 |valve_shut%=oy_e|
00002cb0 78 76 61 6c 76 65 5f 73 68 75 74 25 0d 10 7c 04 |xvalve_shut%..|.|
00002cc0 0d 10 86 1f f4 20 45 6e 67 69 6e 65 20 63 61 73 |..... Engine cas|
00002cd0 69 6e 67 20 64 69 6d 65 6e 73 69 6f 6e 73 2e 0d |ing dimensions..|
00002ce0 10 90 16 63 79 6c 5f 64 69 61 25 3d 62 6f 72 65 |...cyl_dia%=bore|
00002cf0 25 2a 31 2e 36 0d 10 9a 3e 62 6c 6f 63 6b 5f 68 |%*1.6...>block_h|
00002d00 65 69 67 68 74 25 3d 63 72 61 6e 6b 5f 74 68 72 |eight%=crank_thr|
00002d10 6f 77 25 2b 63 6f 6e 72 6f 64 5f 63 74 73 25 2b |ow%+conrod_cts%+|
00002d20 30 2e 34 35 2a 70 69 73 74 6f 6e 5f 68 65 69 67 |0.45*piston_heig|
00002d30 68 74 25 0d 10 a4 2f 68 65 61 64 5f 68 65 69 67 |ht%.../head_heig|
00002d40 68 74 25 3d 6f 79 5f 63 61 6d 25 2d 28 62 6c 6f |ht%=oy_cam%-(blo|
00002d50 63 6b 5f 68 65 69 67 68 74 25 2b 6f 79 5f 63 72 |ck_height%+oy_cr|
00002d60 25 29 0d 10 ae 24 63 72 61 6e 6b 63 61 73 65 5f |%)...$crankcase_|
00002d70 6f 64 25 3d 66 6c 79 77 68 65 65 6c 5f 64 69 61 |od%=flywheel_dia|
00002d80 25 2a 31 2e 37 35 0d 10 b8 24 63 72 61 6e 6b 63 |%*1.75...$crankc|
00002d90 61 73 65 5f 69 64 25 3d 66 6c 79 77 68 65 65 6c |ase_id%=flywheel|
00002da0 5f 64 69 61 25 2a 31 2e 33 35 0d 10 c2 04 0d 10 |_dia%*1.35......|
00002db0 cc 05 e1 0d 10 d6 04 0d 10 e0 1a f4 2a 2a 2a 2a |............****|
00002dc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00002dd0 2a 0d 10 ea 04 0d 10 f4 0d dd 20 f2 63 61 73 69 |*......... .casi|
00002de0 6e 67 0d 10 fe 04 0d 11 08 47 f4 20 44 72 61 77 |ng.......G. Draw|
00002df0 20 70 69 73 74 6f 6e 20 61 6e 64 20 65 6e 67 69 | piston and engi|
00002e00 6e 65 20 63 61 73 65 20 6f 6e 20 73 68 61 64 6f |ne case on shado|
00002e10 77 20 73 63 72 65 65 6e 20 61 6e 64 20 73 61 76 |w screen and sav|
00002e20 65 20 61 73 20 73 70 72 69 74 65 73 2e 0d 11 12 |e as sprites....|
00002e30 50 f2 70 69 73 74 6f 6e 28 62 6f 72 65 25 2c 70 |P.piston(bore%,p|
00002e40 69 73 74 6f 6e 5f 68 65 69 67 68 74 25 2c 67 75 |iston_height%,gu|
00002e50 64 67 65 6f 6e 5f 70 69 6e 5f 64 69 61 25 2c 62 |dgeon_pin_dia%,b|
00002e60 6f 72 65 25 20 81 20 32 2c 70 69 73 74 6f 6e 5f |ore% . 2,piston_|
00002e70 68 65 69 67 68 74 25 2a 30 2e 35 35 29 0d 11 1c |height%*0.55)...|
00002e80 26 c8 91 20 30 2c 30 3a ec 30 2c 30 3a ec 20 62 |&.. 0,0:.0,0:. b|
00002e90 6f 72 65 25 2c 70 69 73 74 6f 6e 5f 68 65 69 67 |ore%,piston_heig|
00002ea0 68 74 25 0d 11 26 10 2a 53 47 65 74 20 70 69 73 |ht%..&.*SGet pis|
00002eb0 74 6f 6e 0d 11 30 04 0d 11 3a 19 f4 20 44 72 61 |ton..0...:.. Dra|
00002ec0 77 20 63 79 6c 69 6e 64 65 72 20 68 65 61 64 2e |w cylinder head.|
00002ed0 0d 11 44 1b c8 91 20 6f 78 5f 63 72 25 2c 6f 79 |..D... ox_cr%,oy|
00002ee0 5f 63 72 25 3a e6 20 72 65 64 25 0d 11 4e 3c c8 |_cr%:. red%..N<.|
00002ef0 93 c8 90 20 2d 28 63 79 6c 5f 64 69 61 25 20 81 |... -(cyl_dia% .|
00002f00 20 32 29 2c 62 6c 6f 63 6b 5f 68 65 69 67 68 74 | 2),block_height|
00002f10 25 2c 63 79 6c 5f 64 69 61 25 2c 68 65 61 64 5f |%,cyl_dia%,head_|
00002f20 68 65 69 67 68 74 25 0d 11 58 04 0d 11 62 15 f4 |height%..X...b..|
00002f30 20 44 72 61 77 20 63 61 6d 20 62 6f 78 65 73 2e | Draw cam boxes.|
00002f40 0d 11 6c 0a c8 91 20 30 2c 30 0d 11 76 26 c8 8f |..l... 0,0..v&..|
00002f50 c8 90 20 6f 78 5f 65 78 63 61 6d 25 2c 6f 79 5f |.. ox_excam%,oy_|
00002f60 63 61 6d 25 2c 63 61 6d 5f 6c 69 66 74 25 2a 32 |cam%,cam_lift%*2|
00002f70 0d 11 80 26 c8 8f c8 90 20 6f 78 5f 69 6e 63 61 |...&.... ox_inca|
00002f80 6d 25 2c 6f 79 5f 63 61 6d 25 2c 63 61 6d 5f 6c |m%,oy_cam%,cam_l|
00002f90 69 66 74 25 2a 32 0d 11 8a 0c e6 20 62 6c 61 63 |ift%*2..... blac|
00002fa0 6b 25 0d 11 94 28 c8 8f c8 90 20 6f 78 5f 65 78 |k%...(.... ox_ex|
00002fb0 63 61 6d 25 2c 6f 79 5f 63 61 6d 25 2c 63 61 6d |cam%,oy_cam%,cam|
00002fc0 5f 6c 69 66 74 25 2a 31 2e 35 0d 11 9e 28 c8 8f |_lift%*1.5...(..|
00002fd0 c8 90 20 6f 78 5f 69 6e 63 61 6d 25 2c 6f 79 5f |.. ox_incam%,oy_|
00002fe0 63 61 6d 25 2c 63 61 6d 5f 6c 69 66 74 25 2a 31 |cam%,cam_lift%*1|
00002ff0 2e 35 0d 11 a8 04 0d 11 b2 1e f4 20 44 72 61 77 |.5......... Draw|
00003000 20 63 6f 6d 62 75 73 74 69 6f 6e 20 63 68 61 6d | combustion cham|
00003010 62 65 72 2e 0d 11 bc 12 e6 20 62 6f 72 65 5f 63 |ber...... bore_c|
00003020 6f 6c 6f 75 72 25 0d 11 c6 60 c8 8f c8 90 20 6f |olour%...`.... o|
00003030 78 5f 63 72 25 2c 28 6f 79 5f 63 72 25 2b 62 6c |x_cr%,(oy_cr%+bl|
00003040 6f 63 6b 5f 68 65 69 67 68 74 25 2b 63 6f 6d 62 |ock_height%+comb|
00003050 75 73 74 69 6f 6e 5f 63 68 61 6d 62 65 72 5f 68 |ustion_chamber_h|
00003060 65 69 67 68 74 25 29 2d 63 68 61 6d 62 65 72 5f |eight%)-chamber_|
00003070 72 61 64 25 2c 63 68 61 6d 62 65 72 5f 72 61 64 |rad%,chamber_rad|
00003080 25 2a 31 2e 30 35 0d 11 d0 4d f2 70 6c 75 67 28 |%*1.05...M.plug(|
00003090 32 30 2c 32 35 2c 31 38 2c 31 30 2c 6f 78 5f 63 |20,25,18,10,ox_c|
000030a0 72 25 2c 62 6c 6f 63 6b 5f 68 65 69 67 68 74 25 |r%,block_height%|
000030b0 2b 63 6f 6d 62 75 73 74 69 6f 6e 5f 63 68 61 6d |+combustion_cham|
000030c0 62 65 72 5f 68 65 69 67 68 74 25 2b 6f 79 5f 63 |ber_height%+oy_c|
000030d0 72 25 29 0d 11 da 11 f4 20 44 72 61 77 20 70 6f |r%)..... Draw po|
000030e0 72 74 73 2e 0d 11 e4 28 c8 91 20 6f 78 5f 65 78 |rts....(.. ox_ex|
000030f0 76 61 6c 76 65 5f 73 68 75 74 25 2c 6f 79 5f 65 |valve_shut%,oy_e|
00003100 78 76 61 6c 76 65 5f 73 68 75 74 25 0d 11 ee 4a |xvalve_shut%...J|
00003110 f2 62 6c 6f 63 6b 28 70 6f 72 74 5f 6c 65 6e 25 |.block(port_len%|
00003120 2c 70 6f 72 74 5f 64 69 61 25 2c 70 6f 72 74 5f |,port_dia%,port_|
00003130 64 69 61 25 2c 65 78 76 61 6c 76 65 5f 61 6e 67 |dia%,exvalve_ang|
00003140 6c 65 25 2d 39 30 2c 65 78 70 6f 72 74 5f 63 6f |le%-90,export_co|
00003150 6c 6f 75 72 25 29 0d 11 f8 7b c8 93 c8 90 20 2d |lour%)...{.... -|
00003160 28 28 63 79 6c 5f 64 69 61 25 20 81 20 32 29 2d |((cyl_dia% . 2)-|
00003170 28 6f 78 5f 63 72 25 2d 6f 78 5f 65 78 76 61 6c |(ox_cr%-ox_exval|
00003180 76 65 5f 73 68 75 74 25 29 29 2c 76 70 25 2d 70 |ve_shut%)),vp%-p|
00003190 6f 72 74 5f 64 69 61 25 2c 28 28 63 79 6c 5f 64 |ort_dia%,((cyl_d|
000031a0 69 61 25 20 81 20 32 29 2d 28 6f 78 5f 63 72 25 |ia% . 2)-(ox_cr%|
000031b0 2d 6f 78 5f 65 78 76 61 6c 76 65 5f 73 68 75 74 |-ox_exvalve_shut|
000031c0 25 29 2d 68 70 25 29 2c 70 6f 72 74 5f 64 69 61 |%)-hp%),port_dia|
000031d0 25 0d 12 02 41 c8 91 20 6f 78 5f 63 72 25 2d 28 |%...A.. ox_cr%-(|
000031e0 63 79 6c 5f 64 69 61 25 20 81 20 32 29 2c 28 6f |cyl_dia% . 2),(o|
000031f0 79 5f 65 78 76 61 6c 76 65 5f 73 68 75 74 25 2b |y_exvalve_shut%+|
00003200 76 70 25 29 2d 70 6f 72 74 5f 64 69 61 25 20 81 |vp%)-port_dia% .|
00003210 20 32 0d 12 0c 28 c8 91 20 6f 78 5f 69 6e 76 61 | 2...(.. ox_inva|
00003220 6c 76 65 5f 73 68 75 74 25 2c 6f 79 5f 69 6e 76 |lve_shut%,oy_inv|
00003230 61 6c 76 65 5f 73 68 75 74 25 0d 12 16 5c f2 62 |alve_shut%...\.b|
00003240 6c 6f 63 6b 28 76 61 6c 76 65 5f 6c 65 6e 67 74 |lock(valve_lengt|
00003250 68 25 2a 30 2e 34 2c 76 61 6c 76 65 5f 64 69 61 |h%*0.4,valve_dia|
00003260 25 2a 30 2e 38 2c 76 61 6c 76 65 5f 64 69 61 25 |%*0.8,valve_dia%|
00003270 2a 30 2e 36 2c 69 6e 76 61 6c 76 65 5f 61 6e 67 |*0.6,invalve_ang|
00003280 6c 65 25 2d 39 30 2c 69 6e 70 6f 72 74 5f 63 6f |le%-90,inport_co|
00003290 6c 6f 75 72 25 29 0d 12 20 7b c8 93 c8 90 20 28 |lour%).. {.... (|
000032a0 28 63 79 6c 5f 64 69 61 25 20 81 20 32 29 2d 28 |(cyl_dia% . 2)-(|
000032b0 6f 78 5f 63 72 25 2d 6f 78 5f 65 78 76 61 6c 76 |ox_cr%-ox_exvalv|
000032c0 65 5f 73 68 75 74 25 29 29 2c 76 70 25 2d 70 6f |e_shut%)),vp%-po|
000032d0 72 74 5f 64 69 61 25 2c 2d 28 28 63 79 6c 5f 64 |rt_dia%,-((cyl_d|
000032e0 69 61 25 20 81 20 32 29 2d 28 6f 78 5f 63 72 25 |ia% . 2)-(ox_cr%|
000032f0 2d 6f 78 5f 65 78 76 61 6c 76 65 5f 73 68 75 74 |-ox_exvalve_shut|
00003300 25 29 2d 68 70 25 29 2c 70 6f 72 74 5f 64 69 61 |%)-hp%),port_dia|
00003310 25 0d 12 2a 04 0d 12 34 14 f4 20 44 72 61 77 20 |%..*...4.. Draw |
00003320 63 79 6c 69 6e 64 65 72 2e 0d 12 3e 0a c8 91 20 |cylinder...>... |
00003330 30 2c 30 0d 12 48 48 e6 20 72 65 64 25 3a c8 93 |0,0..HH. red%:..|
00003340 c8 90 20 6f 78 5f 63 72 25 2d 28 63 79 6c 5f 64 |.. ox_cr%-(cyl_d|
00003350 69 61 25 20 81 20 32 29 2c 6f 79 5f 63 72 25 2c |ia% . 2),oy_cr%,|
00003360 63 79 6c 5f 64 69 61 25 2c 62 6c 6f 63 6b 5f 68 |cyl_dia%,block_h|
00003370 65 69 67 68 74 25 2a 31 2e 30 31 0d 12 52 04 0d |eight%*1.01..R..|
00003380 12 5c 15 f4 20 44 72 61 77 20 63 72 61 6e 6b 63 |.\.. Draw crankc|
00003390 61 73 65 2e 0d 12 66 2f e6 20 72 65 64 25 3a c8 |ase...f/. red%:.|
000033a0 8f c8 90 20 6f 78 5f 63 72 25 2c 6f 79 5f 63 72 |... ox_cr%,oy_cr|
000033b0 25 2c 63 72 61 6e 6b 63 61 73 65 5f 6f 64 25 20 |%,crankcase_od% |
000033c0 81 20 32 0d 12 70 31 e6 20 62 6c 61 63 6b 25 3a |. 2..p1. black%:|
000033d0 c8 8f c8 90 20 6f 78 5f 63 72 25 2c 6f 79 5f 63 |.... ox_cr%,oy_c|
000033e0 72 25 2c 63 72 61 6e 6b 63 61 73 65 5f 69 64 25 |r%,crankcase_id%|
000033f0 20 81 20 32 0d 12 7a 14 c8 91 20 6f 78 5f 63 72 | . 2..z... ox_cr|
00003400 25 2c 6f 79 5f 63 72 25 0d 12 84 39 f2 62 6c 6f |%,oy_cr%...9.blo|
00003410 63 6b 28 62 6c 6f 63 6b 5f 68 65 69 67 68 74 25 |ck(block_height%|
00003420 2a 31 2e 30 31 2c 62 6f 72 65 25 2c 62 6f 72 65 |*1.01,bore%,bore|
00003430 25 2c 30 2c 62 6f 72 65 5f 63 6f 6c 6f 75 72 25 |%,0,bore_colour%|
00003440 29 0d 12 8e 4e f2 62 6c 6f 63 6b 28 2d 63 72 61 |)...N.block(-cra|
00003450 6e 6b 5f 74 68 72 6f 77 25 2b 63 6f 6e 72 6f 64 |nk_throw%+conrod|
00003460 5f 63 74 73 25 2b 70 69 73 74 6f 6e 5f 68 65 69 |_cts%+piston_hei|
00003470 67 68 74 25 2a 30 2e 34 32 2c 62 6f 72 65 25 2c |ght%*0.42,bore%,|
00003480 62 6f 72 65 25 2c 30 2c 62 6c 61 63 6b 25 29 0d |bore%,0,black%).|
00003490 12 98 47 f2 62 6c 6f 63 6b 28 63 72 61 6e 6b 63 |..G.block(crankc|
000034a0 61 73 65 5f 69 64 25 2a 30 2e 37 35 2c 66 6c 79 |ase_id%*0.75,fly|
000034b0 77 68 65 65 6c 5f 64 69 61 25 2a 31 2e 31 35 2c |wheel_dia%*1.15,|
000034c0 63 79 6c 5f 64 69 61 25 20 81 20 32 2c 30 2c 62 |cyl_dia% . 2,0,b|
000034d0 6c 61 63 6b 25 29 0d 12 a2 8a c8 91 20 30 2c 30 |lack%)...... 0,0|
000034e0 3a ec 20 6f 78 5f 63 72 25 2d 66 6c 79 77 68 65 |:. ox_cr%-flywhe|
000034f0 65 6c 5f 64 69 61 25 2a 31 2e 32 35 2c 6f 79 5f |el_dia%*1.25,oy_|
00003500 63 72 25 2d 66 6c 79 77 68 65 65 6c 5f 64 69 61 |cr%-flywheel_dia|
00003510 25 2a 31 2e 32 35 3a ec 20 6f 78 5f 63 72 25 2b |%*1.25:. ox_cr%+|
00003520 66 6c 79 77 68 65 65 6c 5f 64 69 61 25 2a 31 2e |flywheel_dia%*1.|
00003530 32 35 2c 6f 79 5f 63 72 25 2b 62 6c 6f 63 6b 5f |25,oy_cr%+block_|
00003540 68 65 69 67 68 74 25 2b 68 65 61 64 5f 68 65 69 |height%+head_hei|
00003550 67 68 74 25 2b 63 61 6d 5f 6c 69 66 74 25 2a 32 |ght%+cam_lift%*2|
00003560 0d 12 ac 10 2a 53 47 45 54 20 63 61 73 69 6e 67 |....*SGET casing|
00003570 0d 12 b6 05 db 0d 12 c0 05 e1 0d 12 ca 04 0d 12 |................|
00003580 d4 1a f4 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |...*************|
00003590 2a 2a 2a 2a 2a 2a 2a 2a 0d 12 de 04 0d 12 e8 2e |********........|
000035a0 dd 20 f2 62 6c 6f 63 6b 28 68 65 69 67 68 74 25 |. .block(height%|
000035b0 2c 62 61 73 65 25 2c 74 6f 70 25 2c 61 6e 67 6c |,base%,top%,angl|
000035c0 65 2c 63 6f 6c 6f 75 72 25 29 0d 12 f2 04 0d 12 |e,colour%)......|
000035d0 fc 23 ea 20 64 62 25 2c 64 74 25 2c 76 25 2c 68 |.#. db%,dt%,v%,h|
000035e0 25 2c 68 62 25 2c 76 62 25 2c 68 74 25 2c 76 74 |%,hb%,vb%,ht%,vt|
000035f0 25 0d 13 06 04 0d 13 10 0d e6 20 63 6f 6c 6f 75 |%......... colou|
00003600 72 25 0d 13 1a 11 73 69 6e 3d b5 b2 28 61 6e 67 |r%....sin=..(ang|
00003610 6c 65 29 0d 13 24 11 63 6f 73 3d 9b b2 28 61 6e |le)..$.cos=..(an|
00003620 67 6c 65 29 0d 13 2e 13 74 65 6d 70 25 3d 62 61 |gle)....temp%=ba|
00003630 73 65 25 20 81 20 32 0d 13 38 12 76 25 3d 68 65 |se% . 2..8.v%=he|
00003640 69 67 68 74 25 2a 63 6f 73 0d 13 42 12 68 25 3d |ight%*cos..B.h%=|
00003650 68 65 69 67 68 74 25 2a 73 69 6e 0d 13 4c 11 68 |height%*sin..L.h|
00003660 62 25 3d 74 65 6d 70 25 2a 63 6f 73 0d 13 56 11 |b%=temp%*cos..V.|
00003670 76 62 25 3d 74 65 6d 70 25 2a 73 69 6e 0d 13 60 |vb%=temp%*sin..`|
00003680 12 74 65 6d 70 25 3d 74 6f 70 25 20 81 20 32 0d |.temp%=top% . 2.|
00003690 13 6a 11 68 74 25 3d 74 65 6d 70 25 2a 63 6f 73 |.j.ht%=temp%*cos|
000036a0 0d 13 74 11 76 74 25 3d 74 65 6d 70 25 2a 73 69 |..t.vt%=temp%*si|
000036b0 6e 0d 13 7e 0e ec 20 2d 68 62 25 2c 76 62 25 0d |n..~.. -hb%,vb%.|
000036c0 13 88 0e ec 20 68 62 25 2c 2d 76 62 25 0d 13 92 |.... hb%,-vb%...|
000036d0 16 f0 20 38 35 2c 68 25 2d 68 74 25 2c 76 25 2b |.. 85,h%-ht%,v%+|
000036e0 76 74 25 0d 13 9c 16 f0 20 38 35 2c 68 25 2b 68 |vt%..... 85,h%+h|
000036f0 74 25 2c 76 25 2d 76 74 25 0d 13 a6 04 0d 13 b0 |t%,v%-vt%.......|
00003700 05 e1 0d 13 ba 04 0d 13 c4 20 f4 2a 2a 2a 2a 2a |......... .*****|
00003710 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00003720 2a 2a 2a 2a 2a 2a 0d 13 ce 04 0d ff |******......|
0000372c 
.