home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / EXAMPLES / FSHAPES.FOR < prev    next >
Text File  |  2000-02-11  |  3KB  |  127 lines
  1.  
  2. c
  3. c This program shows some of the simple primitives.
  4. c
  5.     program fshapes
  6.     integer   BLACK, RED, GREEN, BLUE, MAGENTA, WHITE
  7.     parameter(BLACK = 0)
  8.     parameter(RED = 1, GREEN = 2, BLUE = 4, MAGENTA = 5, WHITE = 7)
  9.     character*50 device
  10.  
  11.     print*,'Enter output device:'
  12.     read(*,'(a)')device
  13.  
  14.     call vinit(device)
  15.  
  16. c 
  17. c the two lines below clear the screen to white if we have
  18. c colours, on a monochrome device color is ignored so the
  19. c screen will be cleared to its background color, normally black.
  20. c
  21.     call color(BLACK)
  22.     call clear()
  23.  
  24. c
  25. c set the screen to be 2.0 units wide and 2.0 units wide, with
  26. c the drawable coordinates going from -1.0 to 1.0.
  27. c
  28.     call ortho2(-1.0, 1.0, -1.0, 1.0)
  29.  
  30. c
  31. c set the text size. After this call no characters in the
  32. c current font will be wider than 0.1 or higher than 0.1 in
  33. c world units. As the window is currently 2.0 units wide and
  34. c 2.0 units high text will be about one twentieth of the screen
  35. c size.
  36. c
  37.     call textsize(0.1, 0.1)
  38.  
  39.     call color(MAGENTA)
  40.  
  41. c
  42. c okay, so we want to draw in the range -1 to 1, but we
  43. c only want to draw in the top lefthand corner of the
  44. c screen. The call to viewport allows us to do this. As
  45. c viewport always takes screen coordinates, which are 
  46. c always in the range of -1 to 1 we can change always
  47. c change the viewport to somewhere else on the screen
  48. c by giving a range in -1 to 1.
  49. c
  50.     call viewport(-1.0, 0.0, 0.0, 1.0)
  51.  
  52. c
  53. c write out a heading
  54. c
  55.     call move2(-0.9, -0.5)
  56.     call drawstr('rect')
  57.  
  58. c
  59. c draw a rectangle around the points (-0.2, -0.2), (-0.2, 0.2),
  60. c (0.3, 0.2), and (0.3, -0.2).
  61. c
  62.     call rect(-0.2, -0.2, 0.3, 0.2)
  63.  
  64.     call color(BLUE)
  65.  
  66. c
  67. c now we want to draw in the top right corner of the screen
  68. c
  69.     call viewport(0.0, 1.0, 0.0, 1.0)
  70.  
  71.     call move2(-0.9, -0.5)
  72.     call drawstr('circle')
  73.  
  74. c
  75. c draw a circle of radius 0.4 around the point (0.0, 0.0)
  76. c
  77.     call circle(0.0, 0.0, 0.4)
  78.  
  79.     call color(GREEN)
  80.  
  81. c
  82. c draw in bottom left corner 
  83. c
  84.     call viewport(-1.0, 0.0, -1.0, 0.0)
  85.  
  86.     call move2(-0.9, -0.5)
  87.     call drawstr('ellipse')
  88.  
  89. c
  90. c To draw an ellipse we change the aspect ratio so it is no longer
  91. c 1 and call circle. In this case we use ortho2 to make the square
  92. c viewport appear to be higher than it is wide. Alternatively you
  93. c could use arc to construct one.
  94. c
  95. c The call to pushmatrix saves the current viewing transformation.
  96. c After the ortho2 has been done, we restore the current viewing
  97. c transformation with a call to popmatrix. (Otherwise everything
  98. c after the call to ortho would come out looking squashed as the
  99. c world aspect ratio is no longer 1).
  100. c
  101.     call pushmatrix()
  102.         call ortho2(-1.0, 1.0, -1.0, 2.0)
  103.         call circle(0.0, 0.5, 0.4)
  104.     call popmatrix()
  105.  
  106.     call color(RED)
  107. c
  108. c now draw in bottom right corner
  109. c
  110.     call viewport(0.0, 1.0, -1.0, 0.0)
  111.  
  112.     call move2(-0.9, -0.5)
  113.     call drawstr('arc')
  114.  
  115. c
  116. c draw an arc centered at (0.0, 0.0), radius of 0.4. 0.0 is the start
  117. c angle and 90.0 is the end angle of the arc being drawn. So this
  118. c draws a quarter circle.
  119. c
  120.     call arc(0.0, 0.0, 0.4, 0.0, 90.0)
  121.  
  122.     call getkey()
  123.  
  124.     call vexit()
  125.  
  126.     end
  127.