home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / c / amivogl-1.03.lzh / vogl / examples / fshapes.for < prev    next >
Encoding:
Text File  |  1991-06-04  |  3.6 KB  |  158 lines
  1.     program fshapes
  2.  
  3. $INCLUDE: 'fvogl.h'
  4. $INCLUDE: 'fvodevic.h'
  5.  
  6. c
  7. c This program shows some of the simple primitives.
  8. c
  9.     integer edgel
  10.     integer *2 val, vminx, vmaxx, vminy, vmaxy
  11. c
  12. c open a window (or the screen on some devices)
  13. c
  14.     call prefsi(512, 600)
  15.     call winope('shapes', 6)
  16.     call unqdev(INPUTC)
  17.  
  18. c 
  19. c the two lines below clear the screen to white if we have
  20. c colours, on a monochrome device color is ignored so the
  21. c screen will be cleared to its background color, normally black.
  22. c
  23.     call color(BLACK)
  24.     call clear()
  25.  
  26. c
  27. c set the screen to be 2.0 units wide and 2.0 units wide, with
  28. c the drawable coordinates going from -1.0 to 1.0.
  29. c
  30.     call ortho2(-1.0, 1.0, -1.0, 1.0)
  31.  
  32.     call color(MAGENT)
  33.  
  34. c
  35. c okay, so we want to draw in the range -1 to 1, but we
  36. c only want to draw in the top lefthand corner of the
  37. c screen. The call to viewpo allows us to do this. As
  38. c viewpo always takes screen coordinates, we need to
  39. c call getviewpo to found out how big our screen is
  40. c at the moment. We use the values returned from getviewpo
  41. c calculate the positions for our new viewpo. We note
  42. c that on an Iris (0,0) is the bottom left pixel.
  43. c
  44.     call getvie(vminx, vmaxx, vminy, vmaxy)
  45.  
  46.     maxx = vmaxx
  47.     minx = vminx
  48.     maxy = vmaxy
  49.     miny = vminy
  50.  
  51.     call viewpo(minx, (maxx - minx) / 2, (maxy - miny) / 2, maxy)
  52.  
  53. c
  54. c  write out a heading 
  55. c
  56.     call cmov2(-0.9, -0.5)
  57.     call charst('rect', 4)
  58.  
  59. c
  60. c draw a rectangle around the points (-0.2, -0.2), (-0.2, 0.2),
  61. c (0.3, 0.2), and (0.3, -0.2).
  62. c
  63.     call rect(-0.2, -0.2, 0.3, 0.2)
  64.  
  65.     call color(BLUE)
  66.  
  67. c
  68. c now we want to draw in the top right corner of the screen,
  69. c and we want to draw a circular circle so we must make sure
  70. c our viewpo is square (if it isn't we'll get an ellipse),
  71. c so we calculate the shortest edge and set up a viewpo which
  72. c is in the top right region of the screen, but doesn't necessarilly
  73. c occupy all the top right corner.
  74. c
  75. c find smallest edge 
  76. c
  77.     if (maxx - minx .gt. maxy - miny) then
  78.         edgel = (maxy - miny) / 2
  79.     else 
  80.         edgel = (maxx - minx) / 2
  81.     end if
  82.  
  83. c
  84. c create a square viewpo - otherwise the circle will look
  85. c like an ellipse.
  86. c
  87.  
  88.     call viewpo((maxx - minx) / 2, (maxx - minx) / 2 + edgel,
  89.      +           (maxy - miny) / 2, (maxy - miny) / 2 + edgel)
  90.  
  91.     call cmov2(-0.9, -0.5)
  92.     call charst('circle', 6)
  93.  
  94. c
  95. c draw a circle of radius 0.4 around the point (0.0, 0.0)
  96. c
  97.     call circ(0.0, 0.0, 0.4)
  98.  
  99.     call color(GREEN)
  100.  
  101. c
  102. c bottom left hand corner.
  103. c
  104.     call viewpo(minx, (maxx - minx) / 2,
  105.      +                miny, (maxy - miny) / 2)
  106.  
  107.     call cmov2(-0.9, -0.5)
  108.     call charst('ellipse', 7)
  109.  
  110. c
  111. c To draw an ellipse we change the aspect ratio so it is no longer
  112. c 1 and call circ. In this case we use ortho2 to make the square
  113. c viewpo appear to be higher than it is wide. Alternatively you
  114. c could use arc to construct one.
  115. c
  116. c The call to pushmatrix saves the current viewing transformation.
  117. c After the ortho2 has been done, we restore the current viewing
  118. c transformation with a call to popmatrix. (Otherwise everything
  119. c after the call to ortho would come out looking squashed as the
  120. c world aspect ratio is no longer 1).
  121. c
  122.     call pushma
  123.         call ortho2(-1.0, 1.0, -1.0, 2.0)
  124.         call circ(0.0, 0.5, 0.4)
  125.     call popmat
  126.  
  127.     call color(RED)
  128.  
  129. c
  130. c bottom right hand corner
  131. c
  132.     call viewpo((maxx - minx) / 2, maxx,
  133.      +                 miny, (maxy - miny) / 2)
  134.  
  135.     call cmov2(-0.9, -0.5)
  136.     call charst('arc', 3)
  137.  
  138. c
  139. c draw an arc centered at (0.0, 0.0), radius of 0.4. 0.0 is the start
  140. c angle and 90.0 is the end angle of the arc being drawn. So this
  141. c draws a quarter circle - unless our viewpo isn't square.
  142. c
  143.     call arc(0.0, 0.0, 0.4, 0, 900)
  144.  
  145. c
  146. c we want to stop after a keyboard event
  147. c
  148.     call qdevic(KEYBD)
  149.  
  150. c
  151. c wait for the event
  152. c
  153.     idum = qread(val)
  154.  
  155.     call gexit
  156.  
  157.     end
  158.