Komplot fonts demo

								

      program komplot_11

c This program demonstrates the use of various fonts.

      real x(4),y(4),x2(4),y2(4)
      data x /-25., -23.2, -22.,  -20./
      data y /-8.6,   -7., -6.6,  -5.7/
      data x2/-18.,  -21., -22., -23.4/
      data y2/-2.5,  -3.5, -4.3,   -9./

c     call PARAMETERDUMP_SHORT(1)
      call SCALE_ANNOTATIONS ( 1.5)
      call X_MARGINS ( 3.,  2.)
      call Y_MARGINS ( 2.,  2.)

      call FONT_SWITCH_CHARACTER('&')
      call PS_DEFINE_FONT('A','Helvetica-Bold')

      call FRAME(14., -18., -25., 16., -9., -1., ' ', ' ',
     +                    '&AOptical luminosity functions')

c Y-axis label, &MF plots phi
      call PS_DEFINE_FONT('B','Helvetica')
      call PS_DEFINE_FONT('C','Symbol')
      call GSTRNG(-1.3,  4.,  -.5, 90., '&BLog &CF&B(Mpc-3 mag-1)' )
c X-axis label
      call GSTRNG(  7.,-1.4,  -.5,  0., '&BMBC(0)' )
      call POLYLINE(' ', 4, x, y)

      call PS_DEFINE_FONT('D','Times-Bold_Italic')
      call GSTRNG(-18.5, -6.6, .35, 0., '&DOptically selected')
      call GSTRNG(-18.5, -7. , .35, 0., 'quasars (local)')

      call CURVE(' ', 4,x2,y2)
      call GSTRNG(-21., -3., .35, 0., 'Field galaxies')

c make PostScript file + preview with xv
c     call KOMPLOT(40,'f.ps')
c     call system('xv f.ps')


      end