home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / maths / plplot / plplot_2 / examples / f77 / x02f.f < prev    next >
Encoding:
Text File  |  1994-05-26  |  1.0 KB  |  42 lines
  1. ! $Id: x02f.f,v 1.2 1994/05/26 19:34:15 mjl Exp $
  2. ! $Log: x02f.f,v $
  3. ! Revision 1.2  1994/05/26  19:34:15  mjl
  4. ! Inserted missing CVS Id and Log fields for all Fortran demos.  Comment
  5. ! character changed to "!" everywhere, to work well with font-lock in Lucid
  6. ! emacs (requires a small change to fortran-mode.el).
  7. !
  8. !
  9.       program example02
  10. !     =================
  11. !
  12. ! Demonstration of colors
  13.  
  14.       character*2 text
  15.  
  16. ! Divide screen into 16 regions, one for each color
  17.  
  18.       call plssub(4,4)
  19.       call plinit()
  20.       call plschr(0.0,3.5)
  21.       call plfont(4)
  22.  
  23.       do 1 i=0,15
  24.         write (text,'(i2)') i
  25.         if (i .lt. 10) text=text(2:2)
  26.         call pladv(0)
  27.         call plcol(i)
  28.         vmin = 0.1
  29.         vmax = 0.9
  30.         do 2 j=1,3
  31.           call plvpor(vmin,vmax,vmin,vmax)
  32.           call plwind(0.0,1.0,0.0,1.0)
  33.           call plbox('bc',0.0,0,'bc',0.0,0)
  34.           vmin = vmin + 0.1
  35.           vmax = vmax - 0.1
  36.     2   continue
  37.         call plptex(0.5,0.5,1.0,0.0,0.5,text)
  38.     1 continue
  39.  
  40.       call plend
  41.       end
  42.