home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / fort_lib / demo.for < prev    next >
Text File  |  1991-01-17  |  851b  |  29 lines
  1.       program demo
  2. ************************************************************************
  3. *  fl -c demo.for
  4. *  link @demo.lnk
  5. ************************************************************************
  6.       pi = 4*atan(1.)
  7.       call GrafIn                      ! enter graphic mode
  8.       do 20 i=1,8
  9.       call SetCol(i)                   ! set default color
  10.       call seed(i)
  11.       ixa = ipix(639)
  12.       iya = ipix(479)
  13.       do 10 k=1,10
  14.       ixe = ipix(639)
  15.       iye = ipix(479)
  16.       call DrwLin(ixa,iya,ixe,iye)     ! draw a line using color i
  17.       ixa = ixe
  18.       iya = iye
  19. 10    continue
  20. 20    continue
  21.       read(*,*)
  22.       call GrafEx                      ! leave graphic mode
  23.       end
  24.  
  25.       function ipix(npix)              ! random pixel value
  26.       call random(val)
  27.       ipix = nint(npix*val)
  28.       end
  29.