
Colour Array Mapped onto 3D Surface
Two dimensional colour data can be mapped onto a 3D surface via the IPgSurf3DataCol routine.
This image illustrates a Julia set mapped onto a surface generated by the following code:
DO IX = 1,NGRID
DO IY = 1,NGRID
X = REAL(IX)*20.0/REAL(NGRID)
Y = REAL(IY)*20.0/REAL(NGRID)
ZDATA(IX,IY) = COS(1.5-Y*0.02)*COS(X*0.3)
END DO
END DO
|