home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / fermiVogle.tar.Z / fermiVogle.tar / devel / examples / ftrivial.f < prev    next >
Text File  |  1996-02-07  |  942b  |  64 lines
  1. c 
  2. c  the basic test program for a driver if we can draw a line and do
  3. c  hardware text we are almost there!
  4. c
  5.     program ftrivial
  6.     integer BLACK, GREEN
  7.     parameter (BLACK = 0, GREEN = 2)
  8.     character*50 device
  9.  
  10. c
  11. c  read in device name
  12. c
  13.     print*,'Enter output device:'
  14.     read(*,'(a)')device
  15.  
  16.     call vinit(device)
  17. c
  18. c  set font to hardware text large 
  19. c
  20.     call font('large')        
  21. c
  22. c  set current color to black 
  23. c
  24.     call color(BLACK)
  25. c
  26. c  clear to current color
  27. c
  28.     call clear
  29. c
  30. c  we want to draw in green 
  31. c
  32.     call color(GREEN)
  33. c
  34. c  draw a horizontal line at y = 0 
  35. c
  36.     call move2(-1.0, 0.0)
  37.     call draw2(1.0, 0.0)
  38. c
  39. c  pause for some input 
  40. c
  41.     call getkey
  42. c
  43. c  draw a line along x = 0 
  44. c
  45.     call move2(0.0, 0.0)
  46.     call draw2(0.0, 1.0)
  47. c
  48. c  move to the middle of the screen 
  49. c
  50.     call move2(0.0, 0.0)
  51. c
  52. c  draw 'Hello' starting at the origin 
  53. c
  54.     call drawstr('Hello')
  55. c
  56. c  pause again 
  57. c
  58.     call getkey
  59. c
  60. c  set screen back to original state 
  61. c
  62.     call vexit
  63.     end
  64.