home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / SRC / SUNPAS / VOGLE.H < prev   
Text File  |  1994-06-17  |  8KB  |  207 lines
  1. { 
  2.     Vogle Pascal header file for Sun Pascal
  3.  
  4.     link with:
  5.  
  6.     pc progname.p -lvogle -lsuntool -lsunwindow -lpixrect -lm
  7.  
  8. }
  9.  
  10. const
  11. { Standard Colour Indices }
  12.     BLACK        = 0;
  13.     RED        = 1;
  14.     GREEN        = 2;
  15.     YELLOW        = 3;
  16.     BLUE        = 4;
  17.     MAGENTA        = 5;
  18.     CYAN        = 6;
  19.     WHITE        = 7;
  20.  
  21. { Maximum number of vertices in a polygon }
  22.     MAXVERTS    = 128;
  23. { Maximum length of a string type }
  24.     MAXSTRINGLEN    = 255;
  25. { Maximum number of "curve" geometries (for curven) }
  26.     MAXCURVEN    = 200;
  27.  
  28. type
  29. { The type of stings passed to various VOGLE routines... }
  30.    string_t = varying [MAXSTRINGLEN] of char;
  31.  
  32. { For getmatrix and loadmatrix etc, etc... }
  33.    Matrix44_t = array[1..4] of array[1..4] of shortreal;
  34.    Matrix43_t = array[1..4] of array[1..3] of shortreal;
  35.  
  36. { For Poly and Poly2 .... }
  37.    Coord2 = array[1..2] of shortreal;
  38.    Coord3 = array[1..3] of shortreal;
  39.    Coord4 = array[1..4] of shortreal;
  40.    Poly2_array_t = array[1..MAXVERTS] of Coord2;
  41.    Poly3_array_t = array[1..MAXVERTS] of Coord3;
  42.  
  43. { For Curven....}
  44.     GeomMat_t = array[1..MAXCURVEN, 1..3] of shortreal;
  45.  
  46. { Device routines }
  47.    procedure Vinit(device: string_t); external c;
  48.    procedure Vexit; external c;
  49.    procedure Voutput(path: string_t); external c;
  50.    procedure VnewDev(device: string_t); external c;
  51.    procedure VgetDev(var device: string_t); external c;
  52.    procedure PushDev(device: string_t); external c;
  53.    procedure PopDev; external c;
  54.    function GetDepth: integer; external c;
  55.    procedure VsetFlush(yesno: boolean); external c;
  56.    procedure Vflush; external c;
  57.  
  58. { Routines for Setting Up Windows }
  59.    procedure PrefPosition(x, y: integer); external c;
  60.    procedure PrefSize(width, height: integer); external c;
  61.  
  62. { General routines }
  63.    procedure Clear; external c;
  64.    procedure Color(col: integer); external c;
  65.    procedure MapColor(indx, red, green, blue: integer); external c;
  66.    procedure Clipping(on: boolean); external c;
  67.    function GetKey: integer; external c;
  68.    function CheckKey: integer; external c;
  69.    function GetString(bcol: integer; var string: string_t): integer; external c;
  70.    function Locator(var xaddr, yaddr: real): integer; external c;
  71.    function Slocator(var xaddr, yaddr: real): integer; external c;
  72.  
  73. { Viewport routines }
  74.    procedure ViewPort(left, right, bottom, top: real); external c;
  75.    procedure PushViewPort; external c;
  76.    procedure PopViewPort; external c;
  77.    procedure GetViewPort(var left, right, bottom, top: real); external c;
  78.  
  79. { Getting the aspect details }
  80.    function GetAspect: real; external c;
  81.    procedure GetFactors(var w, h: real); external c;
  82.    procedure GetDisplaySize(var w, h: real); external c;
  83.    procedure ExpandViewport; external c;
  84.  
  85. { Attribute stack routines }
  86.    procedure PushAttributes; external c;
  87.    procedure PopAttributes; external c;
  88.  
  89. { Projection routines }
  90.    procedure Ortho( left, right, bottom, top, near, far: real); external c;
  91.    procedure Ortho2(left, right, bottom, top: real); external c;
  92.    procedure Perspective(fov, aspect, near, far: real); external c;
  93.    procedure Window(left, right, bottom, top, near, far: real); external c;
  94.  
  95. { Matrix stack routines }
  96.    procedure PushMatrix; external c;
  97.    procedure PopMatrix; external c;
  98.  
  99. { Viewpoint routines }
  100.    procedure PolarView(distance, azimuth, incidence, twist: real); external c;
  101.    procedure Up(x, y, z: real); external c;
  102.    procedure LookAt(vx, vy, vz, px, py, pz, twist: real); external c;
  103.  
  104. { Moving routines }
  105.    procedure Move(x, y, z: real); external c;
  106.    procedure Rmove(dx, dy, dz:real); external c;
  107.    procedure Move2(x, y: real); external c;
  108.    procedure Rmove2(dx, dy: real); external c;
  109.    procedure Smove2(x, y: real); external c;
  110.    procedure Rsmove2(dx, dy: real); external c;
  111.  
  112. { Drawing routines }
  113.    procedure SetDash(d: real); external c;
  114.    procedure LineStyle(str: string_t); external c;
  115.    procedure Draw(x, y, z: real); external c;
  116.    procedure Rdraw(dx, dy, dz: real); external c;
  117.    procedure Draw2(x, y: real); external c;
  118.    procedure Rdraw2(dx, dy: real); external c;
  119.    procedure Sdraw2(x, y: real); external c;
  120.    procedure Rsdraw2(dx, dy: real); external c;
  121.  
  122. { Arcs and circles }
  123.    procedure CirclePrecision(nsegs: integer); external c;
  124.    procedure Arc(x, y, radius, start_angle, end_angle: real); external c;
  125.    procedure Sector(x, y, radius, start_angle, end_angle: real); external c;
  126.    procedure Circle(x, y, radius: real); external c;
  127.  
  128. { Curve routines }
  129.    procedure CurveBasis(var basis: Matrix44_t); external c;
  130.    procedure CurvePrecision(nsegs: integer); external c;
  131.    procedure Rcurve(var geom: Matrix44_t); external c;
  132.    procedure Curve(var geom: Matrix43_t); external c;
  133.    procedure Curven(n: integer; var geom: GeomMat_t); external c;
  134.  
  135. { Rectangles and general polygon routines }
  136.    procedure Rect(x1, y1, x2, y2: real); external c;
  137.    procedure PolyFill(on: boolean); external c;
  138.    procedure PolyHatch(on: boolean); external c;
  139.    procedure HatchAng(angle: real); external c;
  140.    procedure HatchPitch(pitch: real); external c;
  141.    procedure Poly2(n: integer; var points: Poly2_array_t); external c;
  142.    procedure Poly(n: integer; var points: Poly3_array_t); external c;
  143.    procedure MakePoly; external c;
  144.    procedure ClosePoly; external c;
  145.    procedure BackFace(onoff: boolean); external c;
  146.    procedure BackFaceDir(clockwise: boolean); external c;
  147.  
  148. { Text routines }
  149.    procedure Font(fontname: string_t); external c;
  150.    function NumChars: integer; external c;
  151.    procedure TextSize(width, height: real); external c;
  152.    procedure TextAng(angle: real); external c;
  153.    procedure FixedWidth(on: boolean); external c;
  154.    procedure CenterText(on: boolean); external c;
  155.    procedure TextJustify(val: integer); external c;
  156.    procedure LeftJustify; external c;
  157.    procedure RightJustify; external c;
  158.    procedure TopJustify; external c;
  159.    procedure BottomJustify; external c;
  160.    procedure XcenterText; external c;
  161.    procedure YcenterText; external c;
  162.    procedure GetCharSize(c:char; var width, height: real); external c;
  163.    procedure GetFontSize(var width, height: real); external c;
  164.    procedure DrawChar(c: char); external c;
  165.    procedure DrawStr(str: string_t); external c;
  166.    procedure StrLength(str: string_t); external c;
  167.    procedure BoxText(x, y, l, h: real; s: string_t); external c;
  168.    procedure BoxFit(l, h: real; nchars: integer); external c;
  169.  
  170. { Transformation routines }
  171.    procedure Translate(x, y, z: real); external c;
  172.    procedure Scale(x, y, z: real); external c;
  173.    procedure Rotate(angle: real; axis: char); external c;
  174.  
  175. { Patch routines }
  176.    procedure PatchBasis(var tbasis, ubasis: Matrix44_t); external c;
  177.    procedure PatchPrecision(tseg, useg: integer); external c;
  178.    procedure PatchCurves(nt, nu: integer); external c;
  179.    procedure Rpatch(var gx, gy, gz, gw: Matrix44_t); external c;
  180.    procedure Patch(var gx, gy, gz: Matrix44_t); external c;
  181.  
  182. { Point routines }
  183.    procedure Point(x, y, z: real); external c;
  184.    procedure Point2(x, y: real); external c;
  185.  
  186. { Object routines }
  187.    procedure MakeObj(n: integer); external c;
  188.    procedure CloseObj; external c;
  189.    function GenObj: integer; external c;
  190.    function GetOpenobj: integer; external c;
  191.    procedure CallObj(n: integer); external c;
  192.    function IsObj(n: integer): integer; external c;
  193.    function DelObj(n: integer): integer; external c;
  194.    procedure LoadObj(n: integer; filename: string_t); external c;
  195.    procedure SaveObj(n: integer; filename: string_t); external c;
  196.  
  197. { Double Buffering }
  198.    function BackBuffer: integer; external c;
  199.    procedure FrontBuffer; external c;
  200.    procedure SwapBuffers; external real;
  201.  
  202. { Position routines }
  203.    procedure GetGp(var x, y, z: real); external c;
  204.    procedure GetGpT(var x, y, z, w: real); external c;
  205.    procedure GetGp2(var x, y: real); external c;
  206.    procedure SgetGp2(var x, y: real); external c;
  207.