Programming and Graphics

(Kiana) #1

7.7 Three-dimensional interactive graph 239


textsize(csizex,csizey);

// ..x axis ticks.../

for (int i=1; i<=ntcx+1; i++)
{
float xgo = xmin+(i-1.0)*ticx;
move (xgo, ymin, zmin);
rmove (0.0, tchx, 0.0); // ticks parallel to the y axis
rdraw (0.0,-tchx, 0.0);
rmove (0.0, 0.0, tchx); // ticks parallel to the z axis
rdraw (0.0, 0.0,-tchx);
file2 >> xunit;
color (lbc);
move (xgo-csizex, ymin-2.0*csizex, zmin);
if(xunit[0]==’-’)
{
move (xgo-2*csizex, ymin-2.0*csizex, zmin);
}

// ..y axis ticks.../

for (int i=1; i<=ntcy+1; i++)
{
float ygo = xmin+(i-1.0)*ticy;
move (xmin, ygo, zmin);
rmove ( tchy, 0, 0); // ticks parallel to the x axis;
rdraw (-tchy, 0, 0 );
rmove (0, 0, tchy); // ticks parallel to the z axis;
rdraw (0, 0,-tchy);
file2 >> xunit;
color (lbc);
move (xmin-ndig*csizex/2, ygo, zmin);
if(xunit[0]==’-’)
{
move (xmin-(ndig/2+1)*csizex, ygo, zmin);
}

// ..z axis ticks.../

for (int i=1; i<=ntcz+1; i++)
{
float zgo = zmin+(i-1.0)*ticz;
move (xmin, ymin, zgo);
rmove ( tchz, 0.0, 0.0); // ticks parallel to the x axis;
rdraw (-tchz, 0.0, 0.0);
rmove (0.0, tchz, 0.0); // ticks parallel to the y axis;
rdraw (0.0,-tchz, 0.0);
Free download pdf