title wheel - tire, felly, spokes and wheel-nave

parameter eps  4
          rad1 300            c center of wheel nave to center of tire
          rad2 25             c radius of tire
          rad5 [%rad1-%rad2] 
          sig [%rad2*3/(4*sqrt(2))]
          rad4 [%rad5*cos(80)] c outer radius of wheel nave
          rad3 20              c inner radius of wheel nave
          rad6 10
          wnl 40               c half length of wheel nave
          rad7 [%wnl*(%rad5-%rad3)/(%rad5-%rad4)];

c felly

cylinder -1;1 289;1 9;
          [%rad1-%sig-%eps] 0 360 [-%sig] %sig 
mate 1 thic 1 
sfi -1;;;ts 0 0 0 0 0 1 [%rad1-%eps] 0 %rad2 
endpart

c tire

cylinder 1 2 6 7; 1 145; 1 2 6 7;
         [%rad1-%sig] [%rad1-%sig] [%rad1+%sig] [%rad1+%sig]
         0 360 [-%sig] [-%sig] %sig %sig
mate 2 
dei 1 2 0 3 4;;1 2 0 3 4;
sfi -1 -4;;-1 -4;ts 0 0 0 0 0 1 %rad1 0 %rad2 
endpart

c wheel nave

cylinder 1 3; 1 37; 1 3;
         %rad6 %rad3 0 360 [-%rad7] %rad7
mate 3 
endpart

c start of global replication

gct 1 rxy rz 10; lev 1 grep 0 1;; pslv 1   

c spoke plates

cylinder 1 6; 1 37; -1;               
         %rad3 %rad4 0 360 %wnl
pb 1 0 0 1 0 0 z %rad7
mate 3 
endpart

c spokes

beam 
cy [%rad5*.5] 10 [%wnl*.5];
cy %rad4  100 %wnl;
cy %rad5  20 0;
cy %rad4 -80 %wnl;
cy %rad5   0 0;
bm 2 3 3 4 1 1 ;
bm 4 5 3 4 1 1;
lct 8 rz 40;repe 8; lrep 0 1 2 3 4 5 6 7 8;
endpart

c end of global replication
pplv 

merge
rx 20 ry 30 zf 2 tvv
