2
// full wheels using xgeom et xfpoly
3
// computations made by geom)
7
xe=[xmin,xmax,xmax,xmin,xmin]
8
ye=[ymin,ymin,ymax,ymax,ymin]
9
param3d(xe,ye,zmin*ones(1,5),t,p," ",[1,0],rect);
10
param3d(xprear(1,:),xprear(2,:),xprear(3,:), t,p," ",[0,0])
11
param3d(xpfront(1,:),xpfront(2,:),xpfront(3,:), t,p," ",[0,0])
13
[xnt,ynt]=geom3d(xf,yf,zf);
14
[xnf,ynf]=geom3d(xfrontar,yfrontar,zfrontar);
15
[xnr,ynr]=geom3d(xrearar,yrearar,zrearar);
16
/////////////////////////////////////
17
[n1,n2]=size(xfrontar);
18
deff('[]=velod(i)',['xpoly(xnt(:,i),ynt(:,i),''lines'')';
19
'xpoly(xnr(:,i),ynr(:,i),''lines'')';
20
'xpoly(xnf(:,i),ynf(:,i),''lines'');velodp(i);']);
22
for i=1:1:n2,velod(i);velod(i);end
24
xset("alufunction",3);