home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / GFXFX2.ZIP / UNITINT.ZIP / U_MDX.INT < prev    next >
Text File  |  1995-02-14  |  2KB  |  65 lines
  1.  
  2. (*
  3. ** Mode-X unit
  4. ** By Bas van Gaalen
  5. *)
  6.  
  7. unit u_mdx;
  8.  
  9. interface
  10.  
  11. const
  12.   mdx_320x200=0;                                        { mode-x resolutions }
  13.   mdx_320x240=1;
  14.   mdx_360x200=2;
  15.   mdx_360x240=3;
  16.   mdx_376x282=4;
  17.   mdx_320x400=5;
  18.   mdx_320x480=6;
  19.   mdx_360x400=7;
  20.   mdx_360x480=8;
  21.   mdx_360x360=9;
  22.   mdx_376x308=10;
  23.   mdx_376x564=11;
  24.   mdx_256x200=12;
  25.   mdx_256x224=13;
  26.   mdx_256x240=14;
  27.   mdx_256x256=15;
  28.   mdx_lastmode=16;
  29.   mdx_256x256c=255;   { Mode-Q: Original C version by Robert Schmidt (Tweak) }
  30.  
  31. {$i mdx_mode.inc}                                 { resolution specification }
  32.  
  33. const
  34.   mdx_minx:word=0;
  35.   mdx_miny:word=0;
  36.   mdx_maxx:word=319;
  37.   mdx_maxy:word=199;
  38.   mdx_ofs:word=0;
  39.  
  40. var
  41.   mdx_width,                                         { horizontal-resolution }
  42.   mdx_virwidth,                                       { virtual screen width }
  43.   mdx_height,                                          { vertical-resolution }
  44.   mdx_scanlines:word;                            { total number of scanlines }
  45.  
  46. procedure mdx_setmodex(mode,width:word);
  47. procedure mdx_setwritemode(v:byte);
  48. procedure mdx_setreadmode(v:byte);
  49. procedure mdx_setcoords(x,y:word);
  50. procedure mdx_setaddress(ad:word);
  51. procedure mdx_setsplit(ad:word);
  52. procedure mdx_cls;
  53. procedure mdx_putpixel(x,y:word; c:byte);
  54. procedure mdq_putpixel(x,y,c:byte);        { special mode-q-chained putpixel }
  55. procedure mdx_polygon(x1,y1,x2,y2,x3,y3,x4,y4,xo,yo:integer; c:byte);
  56. procedure mdx_displaypic(x,y:word; pic:pointer; xsize,ysize:word);     { raw }
  57. procedure mdx_lin2plan(var src,dest:pointer; size:word); { convert 2 plannar }
  58. procedure mdx_displan(x,y:word; pic:pointer; xsize,ysize:word);    { plannar }
  59. procedure mdx_writetxt(s:string; x,y:word; c:byte);
  60. procedure mdx_copy(x,y,x1,y1,destx,desty:word);
  61. procedure mdx_fill(x,y,x1,y1:word; c:byte);
  62.  
  63. implementation
  64.  
  65.