home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / EXAMPLES / FSIMPLE.FOR < prev    next >
Encoding:
Text File  |  2000-02-11  |  1.4 KB  |  80 lines
  1. c 
  2. c  A program showing basic line drawing, text and (if applicable)
  3. c  colour. As none of the projection routines have been called we
  4. c  move and draw in the initial coordinate system -1.0 to 1.0.
  5. c
  6.     program fsimple
  7.     integer BLACK, GREEN
  8.     parameter (BLACK = 0, GREEN = 2)
  9.     character device*50, fname*80, p*11
  10.     data p/'Hello world'/
  11.  
  12.     print*,'Enter output device:'
  13.     read(*,'(a)') device
  14.  
  15.     print*,'Enter a font name:'
  16.     read(*,'(a)') fname
  17. c
  18. c  set up device 
  19. c
  20.     call vinit(device)
  21. c
  22. c  change font to the argument 
  23. c
  24.     call font(fname)
  25. c
  26. c  set current color
  27. c
  28.     call color(BLACK)
  29. c
  30. c  clear screen to current color 
  31. c
  32.     call clear
  33. c
  34. c
  35.     call color(GREEN)
  36. c
  37. c  2 d move to start where we want drawstr to start 
  38. c
  39.     call move2(-0.9, 0.9)
  40. c
  41. c  draw string in current color 
  42. c
  43.     call drawstr('A Simple Example')
  44.  
  45. c
  46. c  the next four lines draw the x 
  47. c
  48.     call move2(0.0, 0.0)
  49.     call draw2(0.76, 0.76)
  50.     call move2(0.0, 0.76)
  51.     call draw2(0.76, 0.0)
  52.  
  53.     call move2(0.0, 0.5)
  54.     call drawstr('x done')
  55. c
  56.     call drawstr('next sentence')
  57.  
  58.     call move2(0.0, 0.1)
  59.     do 10 i = 1, 11
  60.         call drawchar(p(i:i))
  61. 10    continue
  62.  
  63. c 
  64. c  the next five lines draw the square
  65. c
  66.     call move2(0.0, 0.0)
  67.     call draw2(0.76, 0.0)
  68.     call draw2(0.76, 0.76)
  69.     call draw2(0.0, 0.76)
  70.     call draw2(0.0, 0.0)
  71. c
  72. c  wait for some input 
  73. c
  74.     call getkey
  75. c
  76. c  set the screen back to its original state 
  77. c
  78.     call vexit
  79.     end
  80.