2D Filled Contour Plot

This contour plot was created using the Winteracter IPgConfill2 routine, one of the extensive set of Presentation Graphics subroutines. It illustrates data generated by the following code:

      DO IX = 1,NX
        X0 = 2.5*PI*(2.0*REAL(IX)-REAL(NX))/REAL(NX)
        DO IY = 1,NY
          Y0 = 2.5*PI*(2.0*REAL(IY)-REAL(NY))/REAL(NY)
          D(IX,IY) = MIN(SIN(SQRT(X0*X0+Y0*Y0)) + 0.5/ABS(X0+3.05),1.4)
        END DO
      END DO