home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / libs / mlib / source / graph / mgraph.cpp < prev    next >
Encoding:
Text File  |  1994-04-16  |  19.6 KB  |  615 lines
  1. { draw image }
  2.      Delay(PauseTime);
  3. {     PutImage(X, Y, Saucer^, XORput);                 { erase image }
  4.      MoveSaucer(X, Y, lrx - ulx + 1, lry - uly + 1);  { width/height }
  5.   until KeyPressed;
  6.   FreeMem(Saucer, size);
  7.   WaitToGo;
  8. end; { PutImagePlay }
  9.  
  10. procedure PolyPlay;
  11. { Draw random polygons with random fill styles on the screen }
  12. const
  13.   MaxPts = 5;
  14. type
  15.   PolygonType = array[1..MaxPts] of PointType;
  16. var
  17.   Poly : PolygonType;
  18.   I, Color : word;
  19. begin
  20.   MainWindow('FillPoly demonstration');
  21.   StatusLine('Esc aborts or press a key...');
  22.   repeat
  23.     Color := RandColor;
  24.     SetFillStyle(Random(11)+1, Color);
  25.     SetColor(Color);
  26.     for I := 1 to MaxPts do
  27.       with Poly[I] do
  28.       begin
  29.         X := Random(MaxX);
  30.         Y := Random(MaxY);
  31.       end;
  32.     FillPoly(MaxPts, Poly);
  33.   until KeyPressed;
  34.   WaitToGo;
  35. end; { PolyPlay }
  36.  
  37. procedure FillStylePlay;
  38. { Display all of the predefined fill styles available }
  39. var
  40.   Style    : word;
  41.   Width    : word;
  42.   Height   : word;
  43.   X, Y     : word;
  44.   I, J     : word;
  45.   ViewInfo : ViewPortType;
  46.  
  47. procedure DrawBox(X, Y : word);
  48. begin
  49.   SetFillStyle(Style, MaxColor);
  50.   with ViewInfo do
  51.     Bar(X, Y, X+Width, Y+Height);
  52.   Rectangle(X, Y, X+Width, Y+Height);
  53.   OutTextXY(X+(Width div 2), Y+Height+4, Int2Str(Style));
  54.   Inc(Style);
  55. end; { DrawBox }
  56.  
  57. begin
  58.   MainWindow('Pre-defined fill styles');
  59.   GetViewSettings(ViewInfo);
  60.   with ViewInfo do
  61.   begin
  62.     Width := 2 * ((x2+1) div 13);
  63.     Height := 2 * ((y2-10) div 10);
  64.   end;
  65.   X := Width div 2;
  66.   Y := Height div 2;
  67.   Style := 0;
  68.   for J := 1 to 3 do
  69.   begin
  70.     for I := 1 to 4 do
  71.     begin
  72.       DrawBox(X, Y);
  73.       Inc(X, (Width div 2) * 3);
  74.     end;
  75.     X := Width div 2;
  76.     Inc(Y, (Height div 2) * 3);
  77.   end;
  78.   SetTextJustify(LeftText, TopText);
  79.   WaitToGo;
  80. end; { FillStylePlay }
  81.  
  82. procedure FillPatternPlay;
  83. { Display some user defined fill patterns }
  84. const
  85.   Patterns : array[0..11] of FillPatternType = (
  86.   ($AA, $55, $AA, $55, $AA, $55, $AA, $55 üÖü üÖü  !BBäx!!!BBäx!BBäx"""DDêp""DDêp>"""BBääêp""!"BDäêêp>IÉÆ|      ° @≥î>00>><Dêx  !BBäx""DDêp&<"DDêê&22TTêêê$> $< @äêp>          ⁿBBBB<  @@Ç****DDDDDDDU¬U¬U¬U¬U¬U¬U¬▌w▌w▌w▌w▌w▌w▌w°°°≥■°°≥≥■≥≥■■°°°    ≤  ≤  ≤≤         °                     ≡≡≡≡≡≡≡≡≡≡≡≡≡≡       ;DDD;    $"Bdÿ>@@@>||>Ac]AAA1N"A""2,  `1NA"*III*<Bü üB<<BüüüB<A" \"QIE" < <BBBB  @@    ~ ?  @ÇB$$B ""A$$"AII6 üBr»$**IIII**ccregion.  The region is defined as any pixel of
  87.             OldColor which has a path of pixels of OldColor or NewColor
  88.             with sides touching back to the seed point, (XSeed, YSeed).
  89.             Therefore, only pixels of OldColor are modified and no other
  90.             information is changed.
  91.  
  92.             SEE ALSO
  93.  
  94.             DRWFILLBOX, DRWFILLCIRCLE, DRWFILLELLIPSE, FILLAREA,
  95.             FILLCONVEXPOLY, FILLPAGE, FILLPOLY, FILLSCREEN, FILLVIEW,
  96.             SETVIEW
  97.  
  98.             EXAMPL(HNxHHO$B<BBBB<$<BBBB<<BBBB<$BBBBBF:0BBBBF:$BBBF:B<""AAA""AAAAA"<B@@B<" <2\A">>xDDxDNDD <` <>BB= > <BBBB< BBBBF:2L\bBBBB&AaQIECA8$>""">0@@A>@@@ b$(. b$(*
  99.     $    $    $DDDDDDD¬U¬U¬U¬U¬U¬U¬Uw▌w▌w▌w▌w▌w▌w▌°°°⌠ⁿ°°⌠⌠ⁿ⌠⌠ⁿⁿ°°°    ≈  ≈  ≈≈         °                     ≡≡≡≡≡≡≡≡≡≡≡≡≡≡       7HH7"B\DBBRL~BB@@@@@@?R~!!~?DDDD8BBBB|@@Ç>P>III>"AA""AAA"Uw<DDDD86II6"EIQ"\ @@ "AAAAA> >     hH02L2L$$<H(,$<>>>>>>>         VMODE=VIDEOMODEGET
  100.             IF WHICHVGA = 0 THEN STOP
  101.             DUMMY=RES640
  102.             SETVIEW 100, 100, 539, 379
  103.             FILLVIEW 10
  104.             WHILE INKEY$ = ""
  105.             WEND
  106.             VIDEOMODESET VMODE
  107.             END
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.                                                                          63
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.           FONTGETINFO
  132.  
  133.             PROTOTYPE
  134.  
  135.             SUB FONTGETINFO (Width%, Height%)
  136.  
  137.             INPUT
  138.  
  139.             no input parameters
  140.     WEND
  141.             MOUSEEXIT
  142.             VIDEOMODESET VMODE
  143.             END
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.                                                                          86
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.           MOUSECURSORDEFAULT
  192.  
  193.             PROTOTYPE
  194.  
  195.             SUB MOUSECURSORDEFAULT ()
  196.  
  197.             INPUT
  198.  
  199.             no input parameters
  200.  
  201.             OUTPUT
  202.  
  203.             no value returned
  204.  
  205.             USAGE
  206.  
  207.             MOUSECURSORDEFAULT defines the mouse cursor to be a small
  208.        ,K$╖┼╘╤░XQ)σ┤ö≡÷┴─┤àñT┘,╘¬àñX9╘⌠àñ\9╘UÜ╢≤`9╘4a╘d9╘UTa╘h9╘ta╘l9╘Uöa╘p9╘┤a╘t┘PT±x┴îÇ╖0▓ïα│ÅαU┤ôα╡ùα╢¢α╖úΓ╘pǺΓ╕¡αë ╚┴πì°sKÉφb<$⌡▌ë     φë φë I1φë  Eφë $YφÆë (mφë ,üφë 0$òφë á⌐φë ñ╜φë I¿╤φë ¼σφë ░∙φÆë 4
  209. ²ë ┤!²ë ╕$5²ë ╝I²ë └]²ë ⌐8q²ë <àⁿΦiǬ∙PÖÇ ¥Ç
  210. ⁿ
  211. ░╨â@%8@ΓΦá╝╤░≡cÑÅ*$
  212. ░╕≡ż≡τ╥m¿⌡ε    ╨@#µ≈$âh$âαra╨à`¥è∩Ç%Ç +─▀ TîcOî∩â°1<@  [$¿Ç¼ MMl·0ƒ Y¼─!%6a▐è ¥ì ßá+?±  P<îaTTV ╪iÇ¡≥░ `_ñ»%Çá᪠P█º»ε`éa∙É%H«┴íA%Gár∙É
  213. iw∙Éiφ`╧≥≡╤Çmⁿ▒
  214. ]ÆAáσw7░⌡∩    $·╟Ç√É&^`  ┐ $ⁿ  $■ $╒ nk$J-ÉQ1£PéBù »0αQ/Ñ4╜£░ºP≈Ñ4Ç⌡$(ª▀$@C]Æé≈└╕_SÇçÑ4=iÉ⌠ä╣<_np@Ñ45ò▒Y3ü¼Qí░.i>╠@5+┴╙É╛╙$@ #┴@«╦
  215. $╤
  216. #@Ñú4,p&e÷ü¼_ÇQºÑ4
  217. òQ  ü@;¡_áQ@e╠≥@mp!┤a╘O░√`Pñź ÇT°8ÿ!¼Åñ$½╙"q¿ PñCÇ¿α√└╥░eT"ß<p°%Pæ(╧%pδ¥/OêW0Ǽbφ φ B@[â¼8â≥µ≤(    ¿⌡%(Ç∩áTÿp+ óÜ▓0!Σ±(1±
  218. ░┤ÖÇD└D0Å╡`   $ «îO@╧1
  219. a╝╤j-0ñ│`@╖bΦaT1═⌠╝╤Σ²¼±,1öíî9lÿ28ÇÅ`Γî¿P²$,N0┴O0a╫δ≤0σú`°î╖#0δ≡└X▄1»Σî(▒¥Ç█Ñ"qá√1CÇú╟╨º Å
  220. FT Θ²î└1ÇY0    w ²à░$@AÅ`╦Φ¼╘`▄1A  }┐Ç*5 ΩSδδî`¼îaδæ¼î5 1¿⌡Ω╜⌠ ¼¥╬ü└Qî1S
  221. ╛≤î9╨iÇ,∙PU(}Ç$üÇ àÇ`σìÇ`QαÜBO$%ÿÇ╧"$Ç«Ç]É.┬\`%WÉ$  W0 ÄâO0]αG┬ur╩
  222. ░£▒
  223. Q¢ú╔Ç≡°s?`X0╘`@ µWâ@╣aá εdq`¥9?Ç&+o0µyÄΣAÅuV(7P╬±@IdQ╕@Å┤@;Ç▓?Çò│CÇ┤╟╨╡KÇÄ30ⁿφ° ó╬ì+]Ä╦≡     Mö╝σ ²y5<!└▀óâ╝É3~mp    $<╛≤9Æ-2ⁿ≡@T,╞Σa,)Pæ└¥#¼╪Q┤S(¼@Aîa
  224. ≡╤@Ö²±⌠KëD─┴▒▀0╨Ñ$╩-0 ╨ê*╙▓edm`î=3Kß-10è=≥≤²└£mîjy ÿe²ⁿ╨i╕e▓ΣmαÖ╢C%Ç*ê*0 EátQZ`mÄLP%    °üⁿªüNQ∙  T¿<qtWΩc z░ÅÇñΩçǪçÇ«;└<┐á¼¥. á?<Σscî)áí := 0;
  225.       end;
  226.     end;
  227.   end;
  228.   WaitToGo;
  229. end; { UserLineStylePlay }
  230.  
  231.  
  232. procedure SayGoodbye;
  233. { Say goodbye and then exit the program }
  234. var
  235.   ViewInfo : ViewPortType;
  236. begin
  237.   MainWindow('');
  238.   GetViewSettings(ViewInfo);
  239.   SetTextStyle(TriplexFont, HorizDir, 4);
  240.   SetTextJustify(CenterText, CenterText);
  241.   with ViewInfo do
  242.     OutTextXY((x2-x1) div 2, (y2-y1) div 2, 'That''s all folks!');
  243.   StatusLine('Press any key to quit...');
  244.   repeat until KeyPressed;
  245. end; { SayGoodbye }
  246.  
  247.  
  248. PROCEDURE SelectMode;
  249. VAR
  250.     choice1,choice2     : CHAR;
  251.    xsize,ysize            : WORD;
  252. BEGIN
  253.     (* Let's select a mode *)
  254.     ClrScr;
  255.     WriteLn('VESADEMO:');
  256.     WriteLn('1. 256 colors');
  257.     WriteLn('2. 32768 colors');
  258.     WriteLn('3. 65536 colors');
  259.     WriteLn('4. 16777216 colors');
  260.     WriteLn('Q uit');
  261.     WriteLn;
  262.     Write('Your choice: ');
  263.     REPEAT
  264.         ReadLn(choice1);
  265.       IF choice1 <> '1' THEN BEGIN
  266.           WriteLn('Sorry !');
  267.          WriteLn('This demo wasn''t written for more as 256 colors !');
  268.          WriteLn('You would only get a limited impression of the Hi-& TrueColor modes...');
  269.          WriteLn('Switching to 256 colors.');
  270.          choice1 := '1';
  271.       END;
  272.     UNTIL choice1 IN ['1'..'4','q'];
  273.     IF choice1 = 'q' THEN Halt;
  274.  
  275.     WriteLn;
  276.     WriteLn;
  277.     WriteLn('a. 320x200');
  278.     WriteLn('b. 640x480');
  279.     WriteLn('c. 800x600');
  280.     WriteLn('d. 1024x768');
  281.     WriteLn('e. 1280x1024');
  282.     WriteLn('Q uit');
  283.     WriteLn;
  284.     Write('Your choice: ');
  285.     REPEAT
  286.         ReadLn(choice2);
  287.     UNTIL choice2 IN ['a'..'e','q'];
  288.     IF choice2 = 'q' THEN Halt;
  289.  
  290.     CASE choice2 OF
  291.         'a' : BEGIN
  292.             xsize := 320;
  293.             ysize := 200;
  294.         END;
  295.         'b' : BEGIN
  296.             xsize := 640;
  297.             ysize := 480;
  298.         END;
  299.         'c' : BEGIN
  300.             xsize := 800;
  301.             ysize := 600;
  302.         END;
  303.         'd' : BEGIN
  304.             xsize := 1024;
  305.             ysize := 768;
  306.         END;
  307.         'e' : BEGIN
  308.             xsize := 1280;
  309.             ysize := 1024;
  310.         END;
  311.     END;
  312.     CASE choice1 OF
  313.         '1' : mode := FindVesaMode(xsize,ysize,8);
  314.         '2' : mode := FindVesaMode(xsize,ysize,15);
  315.         '3' : mode := FindVesaMode(xsize,ysize,16);
  316.         '4' : mode := FindVesaMode(xsize,ysize,24);
  317.     END;
  318.     IF mode = 0 THEN BEGIN
  319.         WriteLn('No such mode could be found !');
  320.         WriteLn('Switching to to 320x200.');
  321.         ReadKey;
  322.         mode := V320x200x256;
  323.     END;
  324. END;
  325.  
  326. begin { program body }
  327.   SelectMode;
  328.   Initialize;
  329.   ReportStatus;
  330.  
  331. {  AspectRatioPlay; }
  332.   FillEllipsePlay;
  333.   SectorPlay;
  334.   WriteModePlay;
  335.  
  336.   ColorPlay;
  337.   { PalettePlay only intended to work on these drivers: }
  338.   if (GraphDriver = EGA) or
  339.       (GraphDriver = EGA64) or
  340.       (GraphDriver = VGA) then
  341.      PalettePlay;
  342.   PutPixelPlay;
  343. {  PutImagePlay; }
  344.   RandBarPlay;
  345.   BarPlay;
  346.   Bar3DPlay;
  347.   ArcPlay;
  348.   CirclePlay;
  349.   PiePlay;
  350.   LineToPlay;
  351.   LineRelPlay;
  352. {  LineStylePlay; }
  353. {  UserLineStylePlay; }
  354.   TextDump;
  355.   TextPlay;
  356.   CrtModePlay;
  357.   FillStylePlay;
  358.   FillPatternPlay;
  359.   PolyPlay;
  360.   SayGoodbye;
  361. {  CloseGraph; }
  362.   CloseVesa;
  363. end.
  364. ***************************************************
  365.     '* SHOW D2ROTATE (ABOUT THE ORIGIN)
  366.     '****************************************************************∞╥≤c≤*φè#^│v/╒:j═φ0t+l▓ô"¬"g└≡?%ªêΣ│H╫½╫╜├¿U'╒⌐⌡ ßV?╩
  367. ¬ujOΦçEZ1∞▐! ▄B╛Σ8║æ]1GlNÜ┐q▌▓;ô$ΦzE<cª*bEô#ä╧ñÅ"∩─LrdaÖ ╠º╫a^¥£å╬1~)@ëÖMδ╫0═6DäFê¬Çv┼ß╨kæpτ╪É)}ª 1w3╤╧ü⌡¥╓h▓╣≈ïÅaÑ[TⁿHqªÉ╝DKÄ─Y-∞tT╤Θ╨º╟╪.*ÇI9lΦ≈{πτcσ$τπßoFr╪╨∩┼╞╟;O2■e²LÜ4^N|╪½ÅO?╔°FOz`╟╟╟'<>>π$πΘù6·
  368. Xgî╖│°oîδπGƒd╝▀░?■╪╔_9L ⌡ôⁿq'æO▀ƒn4╔▀╚▄┼3pτ.òO°·}÷╕ⁿ±'æO?ít│!√8ßÑ≤/┐╣p┼≥┘E╦Vox╕cΦé5╟╚º╙$?√$≥ΘZεsî≡åìΓpKù¢ïß X╥ 9╞≈\µk┤O¥_ 5Üö\≤éÄ┌╤A[╤ÿáï┼éNⁿÅu16    g,%hc╙╨cD╨Vï┘R¢öKñR;8εáΣ╢╪ós╤π╡á└èxgzPÄMú╫yαºÉ+σJ¢i+▓â3╥    ═Ñ╙î^ºG▓█πérφçs %#(╗⌠?┼%u8≡6+QÉ))ò)Afw≈╣╪)B&4░åLXV:δät@Å.;5Φf╢Ät┐ΣJ╫─U8úÇ╟éö£╕p╔┴⌠vg╨╬╥é÷╪╣┬ΓI.ç≡^v╤ZΦÇ& ╒┌6ñô6XßNè╡╬E₧Ñ
  369. kIº╠▄A+╣╥éb²tæ-Y¡½αÑa═uuîÇ╢αêvhuª╡SÅ┤vèùú¥F;p<d⌐/F─d█éT%▓KΦû=q■öI┐ ┐╠6S$▒÷╚ENΩ¥Fû9╔┌R'╝ ╧φ└?g┬j▓0═/b╖₧─mûé╢┌»ÿÄë/·<éò■░╤╟╢├Xσ:╥P3Θ"╬Læsφ░┌öSö!╗¿*mN£WΣÇ£┤~#╗ææ≥RΩóh:à▌.æ≈╕▌v£äàd▒à╒├=░╖π║$howeg*╬    6ù▄ƒô╕φ░Ö╢qΘD>(w@úKεHÆ╛öúΣU
  370. éÜR╔╤W▄èê 2M%ó.▓SNÖA1ùJE╢║l]▓¿>\%└Å4ßO▄£â⌐& ê/)8vSP▀▓ôⁿææ√ü√ÑÄa⌠â╚4S╓╟P- ?Σá╕▓Næ*q╡UΘ▓≈^ñ·I.rúR&$Y^╚%è≡B┌≈Ceat
  371.     Color := RandColor;
  372.     SetColor(Color);
  373.     SetFillStyle(Random(CloseDotFill)+1, Color);
  374.     Bar3D(Random(MaxWidth), Random(MaxHeight),
  375.           Random(MaxWidth), Random(MaxHeight), 0, TopOff);
  376.   until KeyPressed;
  377.   WaitToGo;
  378. end; { RandBarPlay }
  379.  
  380. procedure ArcPlay;
  381. { Draw random arcs on the screen }
  382. var
  383.   MaxRadius : word;
  384.   EndAngle : word;
  385.   ArcInfo : ArcCoordsType;
  386. begin
  387.   MainWindow('Arc / GetArcCoords demonstration');
  388.   StatusLine('Esc aborts or press a key');
  389.   MaxRadius := MaxY div 10;
  390.   repeat
  391.     SetColor(RandColor);
  392.     EndAngle := Random(360);
  393.     SetLineStyle(SolidLn, 0, NormWidth);
  394.     Arc(Random(MaxX), Random(MaxY), Random(EndAngle), EndAngle, Random(MaxRadius));
  395.     GetArcCoords(ArcInfo);
  396.     with ArcInfo do
  397.     begin
  398.       Line(X, Y, XStart, YStart);
  399.       Line(X, Y, Xend, Yend);
  400.     end;
  401.   until KeyPressed;
  402.   WaitToGo;
  403. end; { ArcPlay }
  404.  
  405. procedure PutPixelPlay;
  406. { Demonstrate the PutPixel and GetPixel commands }
  407. const
  408.   Seed   = 1962; { A seed for the random number generator }
  409.   NumPts = 2000; { The number of pixels plotted }
  410.   Esc    = #27;
  411. var
  412.   I : word;
  413.   X, Y, Color : word;
  414.   XMax, YMax  : integer;
  415.   ViewInfo    : ViewPortType;
  416. begin
  417.   MainWindow('PutPixel / GetPixel demonstration');
  418.   StatusLine('Esc aborts or press a key...');
  419.  
  420.   GetViewSettings(ViewInfo);
  421.   with ViewInfo do
  422.   begin
  423.     XMax := (x2-x1-1);
  424.     YMax := (y2-y1-1);
  425.   end;
  426.  
  427.   while not KeyPressed do
  428.   begin
  429.     { Plot random pixels }
  430.     RandSeed := Seed;
  431.     I := 0;
  432.     while (not KeyPressed) and (I < NumPts) do
  433.     begin
  434.       Inc(I);
  435.         PutPixel(Random(XMax)+1, Random(YMax)+1, RandColor);
  436.     end;
  437.  
  438.     { Erase pixels }
  439.     RandSeed := Seed;
  440.     I := 0;
  441.     while (not KeyPressed) and (I < NumPts) do
  442.     begin
  443.       Inc(I);
  444.       X := Random(XMax)+1;
  445.       Y := Random(YMax)+1;
  446.       Color := GetPixel(X, Y);
  447.         if Color = RandColor then
  448.           PutPixel(X, Y, 0);
  449.      end;
  450.   end;
  451.   WaitToGo;
  452. end; { PutPixelPlay }
  453.  
  454. procedure PutImagePlay;
  455. { Demonstrate the GetImage and PutImage commands }
  456.  
  457. const
  458.   r  = 20;
  459.   StartX = 100;
  460.   StartY = 50;
  461.  
  462. var
  463.   CurPort : ViewPortType;
  464.  
  465. procedure MoveSaucer(var X, Y : integer; Width, Height : integer);
  466. var
  467.   Step : integer;
  468. begin
  469.   Step := Random(2*r);
  470.   if Odd(Step) then
  471.     Step := -Step;
  472.   X := X + Step;
  473.   Step := Random(r);
  474.   if Odd(Step) then
  475.     Step := -Step;
  476.   Y := Y + Step;
  477.  
  478.   { Make saucer bounce off viewport walls }
  479.   with CurPort do
  480.   begin
  481.     if (x1 + X + Width - 1 > x2) then
  482.       X := x2-x1 - Width + 1
  483.     else
  484.       if (X < 0) then
  485.         X := 0;
  486.     if (y1 + Y + Height - 1 > y2) then
  487.       Y := y2-y1 - Height + 1
  488.     else
  489.       if (Y < 0) then
  490.         Y := 0;
  491.   end;
  492. end; { MoveSaucer }
  493.  
  494. var
  495.   Pausetime : word;
  496.   Saucer    : pointer;
  497.   X, Y      : integer;
  498.   ulx, uly  : word;
  499.   lrx, lry  : word;
  500.   Size      : word;
  501.   I         : word;
  502. begin
  503.   ClearDevice;
  504.   FullPort;
  505.  
  506.   { PaintScreen }
  507.   ClearDevice;
  508.   MainWindow('GetImage / PutImage Demonstration');
  509.   StatusLine('Esc aborts or press a key...');
  510.   GetViewSettings(CurPort);
  511.  
  512.   { DrawSaucer }
  513.   Ellipse(StartX, StartY, 0, 360, r, (r div 3)+2);
  514.   Ellipse(StartX, StartY-4, 190, 357, r, r div 3);
  515.   Line(StartX+7, StartY-6, StartX+10, StartY-12);
  516.   Circle(StartX+10, StartY-12, 2);
  517.   Line(StartX-7, StartY-6, StartX-10, StartY-12);
  518.   Circle(StartX-10, StartY-12, 2);
  519.   SetFillStyle(SolidFill, MaxColor);
  520.   FloodFill(StartX+1, StartY+4, GetColor);
  521.  
  522.   { ReadSaucerImage }
  523.   ulx := StartX-(r+1);
  524.   uly := StartY-14;
  525.   lrx := StartX+(r+1);
  526.   lry := StartY+(r div 3)+3;
  527.  
  528.   Size := ImageSize(ulx, uly, lrx, lry);
  529.   GetMem(Saucer, Size);
  530.   GetImage(ulx, uly, lrx, lry, Saucer^);
  531. {  PutImage(ulx, uly, Saucer^, XORput);               { erase image }
  532.  
  533.   { Plot some "stars" }
  534.   for I := 1 to 1000 do
  535.      PutPixel(Random(MaxX), Random(MaxY), RandColor);
  536.   X := MaxX div 2;
  537.   Y := MaxY div 2;
  538.   PauseTime := 70;
  539.  
  540.   { Move the saucer around }
  541.   repeat
  542. {     PutImage(X, Y, Saucer^, XORput);                 { draw image }
  543.      Delay(PauseTime);
  544. {     PutImage(X, Y, Saucer^, XORput);                 { erase image }
  545.      MoveSaucer(X, Y, lrx - ulx + 1, lry - uly + 1);  { width/height }
  546.   until KeyPressed;
  547.   FreeMem(Saucer, size);
  548.   WaitToGo;
  549. end; { PutImagePlay }
  550.  
  551. procedure PolyPlay;
  552. { Draw random polygons with random fill styles on the screen }
  553. const
  554.   MaxPts = 5;
  555. type
  556.   PolygonType = array[1..MaxPts] of PointType;
  557. var
  558.   Poly : PolygonType;
  559.   I, Color : word;
  560. begin
  561.   MainWindow('FillPoly demonstration');
  562.   StatusLine('Esc aborts or press a key...');
  563.   repeat
  564.     Color := RandColor;
  565.     SetFillStyle(Random(11)+1, Color);
  566.     SetColor(Color);
  567.     for I := 1 to MaxPts do
  568.       with Poly[I] do
  569.       begin
  570.         X := Random(MaxX);
  571.         Y := Random(MaxY);
  572.       end;
  573.     FillPoly(MaxPts, Poly);
  574.   until KeyPressed;
  575.   WaitToGo;
  576. end; { PolyPlay }
  577.  
  578. procedure FillStylePlay;
  579. { Display all of the predefined fill styles available }
  580. var
  581.   Style    : word;
  582.   Width    : word;
  583.   Height   : word;
  584.   X, Y     : word;
  585.   I, J     : word;
  586.   ViewInfo : ViewPortType;
  587.  
  588. procedure DrawBox(X, Y : word);
  589. begin
  590.   SetFillStyle(Style, MaxColor);
  591.   with ViewInfo do
  592.     Bar(X, Y, X+Width, Y+Height);
  593.   Rectangle(X, Y, X+Width, Y+Height);
  594.   OutTextXY(X+(Width div 2), Y+Height+4, Int2Str(Style));
  595.   Inc(Style);
  596. end; { DrawBox }
  597.  
  598. begin
  599.   MainWindow('Pre-defined fill styles');
  600.   GetViewSettings(ViewInfo);
  601.   with ViewInfo do
  602.   begin
  603.     Width := 2 * ((x2+1) div 13);
  604.     Height := 2 * ((y2-10) div 10);
  605.   end;
  606.   X := Width div 2;
  607.   Y := Height div 2;
  608.   Style := 0;
  609.   for J := 1 to 3 do
  610.   begin
  611.     for I := 1 to 4 do
  612.     begin
  613.       DrawBox(X, Y);
  614.       Inc(X, (Width div 2) * 3);
  615.     end;
  616.     X := Width div 2;
  617.     Inc(Y, (Height div 2) * 3);
  618.   end;
  619.   SetTextJustify(LeftText, TopText);
  620.   WaitToGo;
  621. end; { FillStylePlay }
  622.  
  623. procedure FillPatternPlay;
  624. { Display some user defined fill patterns }
  625. const
  626.   Patterns : array[0..11] of FillPatternType = (
  627.   ($AA, $55, $AA, $55, $AA, $55, $AA, $55 üÖü üÖü  !BBäx!!!BBäx!BBäx"""DDêp""DDêp>"""BBääêp""!"BDäêêp>IÉÆ|      ° @≥î>00>><Dêx  !BBäx""DDêp&<"DDêê&22TTêêê$> $< @äêp>          ⁿBBBB<  @@Ç****DDDDDDDU¬U¬U¬U¬U¬U¬U¬▌w▌w▌w▌w▌w▌w▌w°°°≥■°°≥≥■≥≥■■°°°    ≤  ≤  ≤≤         °                     ≡≡≡≡≡≡≡≡≡≡≡≡≡≡       ;DDD;    $"Bdÿ>@@@>||>Ac]AAA1N"A""2,  `1NA"*III*<Bü üB<<BüüüB<A" \"QIE" < <BBBB  @@    ~ ?  @ÇB$$B ""A$$"AII6 üBr»$**IIII**ccregion.  The region is defined as any pixel of
  628.             OldColor which