Winteracter - Colour Array Mapped onto 3D Surface

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