home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / bix / fastdraw.pas < prev    next >
Pascal/Delphi Source File  |  1986-08-04  |  5KB  |  78 lines
  1. {Turbo Inline/MSDOS/IBM& clones/CGA card -Fast HiRes Line Draw by
  2. Jim Keohane}
  3.  
  4. Procedure FastDraw(x1,y1,x2,y2,color:integer);
  5. Begin
  6. Inline($E8/$00/$00/$8B/$46/$FC/$2D/$03/$00/$89/$46/$FC/$05/$C4/$02/$80/
  7.        $7E/$04/$00/$B3/$08/$75/$05/$05/$08/$00/$B3/$20/$50/$53/$8B/$46/
  8.        $FC/$05/$D4/$02/$50/$8B/$46/$0A/$3B/$46/$06/$74/$03/$E9/$A5/$00/
  9.        $8A/$5E/$F8/$D1/$E0/$03/$46/$F6/$8B/$F0/$2E/$8E/$04/$8B/$46/$FC/
  10.        $8B/$F8/$81/$C7/$80/$00/$2E/$88/$1D/$8B/$F8/$81/$C7/$A8/$00/$2E/
  11.        $88/$1D/$8B/$5E/$0C/$3B/$5E/$08/$7E/$06/$87/$5E/$08/$89/$5E/$0C/
  12.        $8B/$FB/$B1/$03/$D3/$EF/$F6/$C3/$07/$74/$1A/$3B/$5E/$08/$7E/$03/
  13.        $E9/$F1/$03/$8B/$F3/$81/$E6/$07/$00/$03/$76/$FA/$2E/$8A/$04/$26/
  14.        $08/$05/$43/$EB/$E1/$89/$5E/$0C/$8B/$5E/$08/$8B/$FB/$B1/$03/$D3/
  15.        $EF/$8A/$D3/$80/$E2/$07/$80/$FA/$07/$74/$12/$8B/$F3/$81/$E6/$07/
  16.        $00/$03/$76/$FA/$2E/$8A/$04/$26/$20/$05/$4B/$EB/$E4/$2B/$5E/$0C/
  17.        $7F/$03/$E9/$AF/$03/$8B/$7E/$0C/$B1/$03/$D3/$EF/$8B/$CB/$D1/$E9/
  18.        $D1/$E9/$D1/$E9/$41/$FC/$32/$C0/$80/$7E/$04/$00/$74/$02/$FE/$C8/
  19.        $F3/$AA/$E9/$8F/$03/$7C/$0F/$87/$46/$06/$89/$46/$0A/$8B/$5E/$0C/
  20.        $87/$5E/$08/$89/$5E/$0C/$2B/$46/$06/$F7/$D8/$D1/$E0/$50/$B3/$42/
  21.        $8B/$46/$08/$2B/$46/$0C/$75/$41/$8A/$5E/$F8/$8B/$7E/$FC/$81/$C7/
  22.        $2C/$01/$2E/$88/$1D/$8B/$76/$0C/$81/$E6/$07/$00/$03/$76/$FA/$2E/
  23.        $8A/$04/$8B/$76/$0A/$D1/$E6/$03/$76/$F6/$2E/$8E/$04/$8B/$7E/$0C/
  24.        $B1/$03/$D3/$EF/$8B/$4E/$F4/$D1/$E9/$FE/$C1/$26/$08/$05/$46/$46/
  25.        $2E/$8E/$04/$49/$75/$F5/$E9/$2B/$03/$7F/$04/$B3/$4A/$F7/$D8/$53/
  26.        $D1/$E0/$50/$33/$DB/$3B/$46/$F4/$74/$05/$7F/$5C/$E9/$D0/$00/$8B/
  27.        $D8/$D1/$EB/$8B/$76/$FC/$81/$C6/$9A/$01/$8A/$46/$F8/$2E/$88/$04/
  28.        $8B/$76/$FC/$81/$C6/$9C/$01/$8A/$46/$F2/$2E/$88/$04/$8B/$7E/$0A/
  29.        $D1/$E7/$03/$7E/$F6/$2E/$8E/$05/$8B/$56/$0C/$8B/$46/$FA/$8B/$76/
  30.        $FC/$81/$C6/$91/$01/$2E/$89/$04/$8B/$F2/$81/$E6/$07/$00/$2E/$8A/
  31.        $84/$0F/$27/$8B/$F2/$B1/$03/$D3/$EE/$26/$08/$04/$42/$47/$47/$2E/
  32.        $8E/$05/$4B/$75/$E3/$E9/$ED/$00/$8B/$C8/$D1/$E9/$8B/$56/$F4/$33/
  33.        $C0/$F7/$76/$F0/$50/$8B/$76/$FC/$81/$C6/$0B/$02/$8A/$46/$F8/$2E/
  34.        $88/$04/$8B/$76/$FC/$81/$C6/$0D/$02/$8A/$46/$F2/$2E/$88/$04/$8B/
  35.        $7E/$0A/$D1/$E7/$03/$7E/$F6/$2E/$8E/$05/$8B/$56/$0C/$8B/$46/$FA/
  36.        $8B/$76/$FC/$81/$C6/$00/$02/$2E/$89/$04/$8B/$46/$EE/$8B/$76/$FC/
  37.        $81/$C6/$10/$02/$2E/$89/$04/$8B/$F2/$81/$E6/$07/$00/$2E/$8A/$84/
  38.        $0F/$27/$8B/$F2/$D1/$EE/$D1/$EE/$D1/$EE/$26/$08/$04/$42/$81/$C3/
  39.        $0F/$27/$73/$05/$47/$47/$2E/$8E/$05/$49/$75/$DB/$EB/$77/$90/$8B/
  40.        $46/$F4/$8B/$C8/$8B/$56/$F0/$33/$C0/$F7/$F1/$D1/$E9/$50/$8B/$76/
  41.        $FC/$81/$C6/$84/$02/$8A/$46/$F8/$2E/$88/$04/$8B/$76/$FC/$81/$C6/
  42.        $91/$02/$8A/$46/$F2/$2E/$88/$04/$8B/$7E/$0A/$D1/$E7/$03/$7E/$F6/
  43.        $2E/$8E/$05/$8B/$56/$0C/$8B/$46/$FA/$8B/$76/$FC/$81/$C6/$79/$02/
  44.        $2E/$89/$04/$8B/$46/$EE/$8B/$76/$FC/$81/$C6/$8D/$02/$2E/$89/$04/
  45.        $8B/$F2/$81/$E6/$07/$00/$2E/$8A/$84/$0F/$27/$8B/$F2/$D1/$EE/$D1/
  46.        $EE/$D1/$EE/$26/$08/$04/$47/$47/$2E/$8E/$05/$81/$C3/$0F/$27/$73/
  47.        $01/$42/$49/$75/$DB/$8B/$7E/$06/$D1/$E7/$03/$7E/$F6/$2E/$8E/$05/
  48.        $8B/$FA/$B1/$03/$D3/$EF/$8B/$F2/$81/$E6/$07/$00/$03/$76/$FA/$2E/
  49.        $8A/$04/$80/$7E/$04/$00/$74/$06/$26/$08/$05/$E9/$A6/$01/$26/$20/
  50.        $05/$E9/$A0/$01/$80/$40/$20/$10/$08/$04/$02/$01/$7F/$BF/$DF/$EF/
  51.        $F7/$FB/$FD/$FE/$00/$B8/$00/$BA/$05/$B8/$05/$BA/$0A/$B8/$0A/$BA/
  52.        $0F/$B8/$0F/$BA/$14/$B8/$14/$BA/$19/$B8/$19/$BA/$1E/$B8/$1E/$BA/
  53.        $23/$B8/$23/$BA/$28/$B8/$28/$BA/$2D/$B8/$2D/$BA/$32/$B8/$32/$BA/
  54.        $37/$B8/$37/$BA/$3C/$B8/$3C/$BA/$41/$B8/$41/$BA/$46/$B8/$46/$BA/
  55.        $4B/$B8/$4B/$BA/$50/$B8/$50/$BA/$55/$B8/$55/$BA/$5A/$B8/$5A/$BA/
  56.        $5F/$B8/$5F/$BA/$64/$B8/$64/$BA/$69/$B8/$69/$BA/$6E/$B8/$6E/$BA/
  57.        $73/$B8/$73/$BA/$78/$B8/$78/$BA/$7D/$B8/$7D/$BA/$82/$B8/$82/$BA/
  58.        $87/$B8/$87/$BA/$8C/$B8/$8C/$BA/$91/$B8/$91/$BA/$96/$B8/$96/$BA/
  59.        $9B/$B8/$9B/$BA/$A0/$B8/$A0/$BA/$A5/$B8/$A5/$BA/$AA/$B8/$AA/$BA/
  60.        $AF/$B8/$AF/$BA/$B4/$B8/$B4/$BA/$B9/$B8/$B9/$BA/$BE/$B8/$BE/$BA/
  61.        $C3/$B8/$C3/$BA/$C8/$B8/$C8/$BA/$CD/$B8/$CD/$BA/$D2/$B8/$D2/$BA/
  62.        $D7/$B8/$D7/$BA/$DC/$B8/$DC/$BA/$E1/$B8/$E1/$BA/$E6/$B8/$E6/$BA/
  63.        $EB/$B8/$EB/$BA/$F0/$B8/$F0/$BA/$F5/$B8/$F5/$BA/$FA/$B8/$FA/$BA/
  64.        $FF/$B8/$FF/$BA/$04/$B9/$04/$BB/$09/$B9/$09/$BB/$0E/$B9/$0E/$BB/
  65.        $13/$B9/$13/$BB/$18/$B9/$18/$BB/$1D/$B9/$1D/$BB/$22/$B9/$22/$BB/
  66.        $27/$B9/$27/$BB/$2C/$B9/$2C/$BB/$31/$B9/$31/$BB/$36/$B9/$36/$BB/
  67.        $3B/$B9/$3B/$BB/$40/$B9/$40/$BB/$45/$B9/$45/$BB/$4A/$B9/$4A/$BB/
  68.        $4F/$B9/$4F/$BB/$54/$B9/$54/$BB/$59/$B9/$59/$BB/$5E/$B9/$5E/$BB/
  69.        $63/$B9/$63/$BB/$68/$B9/$68/$BB/$6D/$B9/$6D/$BB/$72/$B9/$72/$BB/
  70.        $77/$B9/$77/$BB/$7C/$B9/$7C/$BB/$81/$B9/$81/$BB/$86/$B9/$86/$BB/
  71.        $8B/$B9/$8B/$BB/$90/$B9/$90/$BB/$95/$B9/$95/$BB/$9A/$B9/$9A/$BB/
  72.        $9F/$B9/$9F/$BB/$A4/$B9/$A4/$BB/$A9/$B9/$A9/$BB/$AE/$B9/$AE/$BB/
  73.        $B3/$B9/$B3/$BB/$B8/$B9/$B8/$BB/$BD/$B9/$BD/$BB/$C2/$B9/$C2/$BB/
  74.        $C7/$B9/$C7/$BB/$CC/$B9/$CC/$BB/$D1/$B9/$D1/$BB/$D6/$B9/$D6/$BB/
  75.        $DB/$B9/$DB/$BB/$E0/$B9/$E0/$BB/$E5/$B9/$E5/$BB/$EA/$B9/$EA/$BB/
  76.        $EF/$B9/$EF/$BB);
  77. end;
  78.