25 lines
734 B
Text
25 lines
734 B
Text
\\ Simple "cuboid". Try different parameters of this Cuboid() function.
|
|
\\ 4/11/16 aev
|
|
Cuboid(a,b,c,u=10)={
|
|
my(dx,dy,ttl="Cuboid AxBxC: ",size=200,da=a*u,db=b*u,dc=c*u);
|
|
print(" *** ",ttl,a,"x",b,"x",c,"; u=",u);
|
|
plotinit(0);
|
|
plotscale(0, 0,size, 0,size);
|
|
plotcolor(0,7); \\grey
|
|
plotmove(0, 0,0);
|
|
plotrline(0,dc,da\2); plotrline(0,db,0); plotrline(0,-db,0);
|
|
plotrline(0,0,da);
|
|
plotcolor(0,2); \\black
|
|
plotmove(0, db,da);
|
|
plotrline(0,0,-da); plotrline(0,-db,0);
|
|
plotrline(0,0,da); plotrline(0,db,0);
|
|
plotrline(0,dc,da\2); plotrline(0,-db,0); plotrline(0,-dc,-da\2);
|
|
plotmove(0, db,0);
|
|
plotrline(0,dc,da\2); plotrline(0,0,da);
|
|
plotdraw([0,size,size]);
|
|
}
|
|
|
|
{\\ Executing:
|
|
Cuboid(2,3,4,20); \\Cuboid1.png
|
|
Cuboid(5,3,1,20); \\Cuboid2.png
|
|
}
|