home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / EXAMPLES / FDISTRT.FOR < prev    next >
Text File  |  2000-02-11  |  2KB  |  127 lines
  1. c
  2. c Demonstrate how to use non-square viewports, the associated
  3. c distortion caused and how to fix it.
  4. c
  5.     program fdistrt
  6.  
  7.     integer BLACK, RED, GREEN, YELLOW, BLUE, MAGENTA, CYAN, WHITE
  8.     parameter(BLACK = 0)
  9.     parameter(RED = 1)
  10.     parameter(GREEN = 2)
  11.     parameter(YELLOW = 3)
  12.     parameter(BLUE = 4)
  13.     parameter(MAGENTA = 5)
  14.     parameter(CYAN = 6)
  15.     parameter(WHITE = 7)
  16.     character device*50, buf*120
  17.     real    xfact, yfact
  18.  
  19.     print*,'Enter output device:'
  20.     read(*,'(a)') device
  21.  
  22.     call vinit(device)
  23.  
  24.     call color(BLACK)
  25.     call clear
  26.  
  27. c 
  28. c Make the viewport the same size as the screen/window.
  29. c
  30.     call getfactors(xfact, yfact)
  31.     call viewport(-1.0, xfact, -1.0, yfact)
  32.  
  33. c
  34. c Draw a square. (Looks like a rectangle, if the viewport
  35. c wasn't "accidentally" square)
  36. c
  37.     call color(1)
  38.     call rect(-0.5, -0.5, 0.5, 0.5)
  39.  
  40. c 
  41. c Tell them what it is.
  42. c
  43.     call move2(-1.0, 0.9)
  44.     write(buf,'(''Distorted square (viewport(-1, '',
  45.      +     F7.3, '', -1, '', F7.3, ''))'')') xfact, yfact
  46.     call drawstr(buf)
  47.  
  48.     call getkey
  49.  
  50. c
  51. c Fix up the distortion (The actual formula to fix
  52. c the distortion is (viewport.xmax * (1 + xfact) / 2.0),
  53. c and similar for the y axis.
  54. c
  55.     call ortho2(-1.0, xfact, -1.0, yfact)
  56.  
  57. c
  58. c Draw another square (Really is square this time)
  59. c
  60.     call color(3)
  61.     call rect(-0.5, -0.5, 0.5, 0.5)
  62.  
  63. c 
  64. c Tell them what it is.
  65. c
  66.     call move2(-1.0, -0.9)
  67.     write(buf,'(''Fixed up square with ortho2(-1, '',
  68.      +     F7.3, '', -1, '', F7.3, '')'')') xfact, yfact
  69.     call drawstr(buf)
  70.  
  71.     call getkey
  72.  
  73. c
  74. c Do it with world coords going from 0 - 5, 0 - 5.
  75. c Reset square viewport.
  76. c
  77.  
  78.     call color(0)
  79.     call clear
  80.  
  81.     call viewport(-1.0, 1.0, -1.0, 1.0)
  82.     call ortho2(0.0, 5.0, 0.0, 5.0)
  83.     call textsize(0.1, 0.1)
  84.  
  85. c
  86. c Square from 1 to 3. (Really is square)
  87. c
  88.  
  89.     call color(2)
  90.     call rect(1.0, 1.0, 3.0, 3.0)
  91.  
  92.     call move2(0.0, 4.5)
  93.     call drawstr('Square from 0 - 3, 0 - 3')
  94.  
  95.     call getkey
  96.  
  97. c
  98. c Distort it with a non-square viewport.
  99. c
  100.     call viewport(-1.0, xfact, -1.0, yfact)
  101.  
  102.     call color(4)
  103.     call rect(1.0, 1.0, 3.0, 3.0)
  104.  
  105.     call move2(0.0, 0.5)
  106.     call drawstr('Distorted square from 0 - 3, 0 - 3')
  107.  
  108.     call getkey
  109.  
  110. c 
  111. c Fix the distortion.
  112. c 
  113.     call ortho2(0.0, 5.0 * (1.0 + xfact) / 2.0, 0.0,
  114.      +                   5.0 * (1.0 + yfact) / 2.0)
  115.     
  116.     call color(5)
  117.     call rect(1.0, 1.0, 3.0, 3.0)
  118.  
  119.     call move2(0.0, 2.5)
  120.     call drawstr('Fixed up  square from 0 - 3, 0 - 3')
  121.  
  122.     call getkey
  123.  
  124.     call vexit
  125.  
  126.     end
  127.