2D Filled Contour PlotSign in

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