home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 08 / tricks / cgademo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-07-05  |  2.0 KB  |  66 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    CGADEMO.PAS                         *)
  3. (*         (c) 1990  Ralph Seelig & TOOLBOX               *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM Draw_Demo;
  6.  
  7. USES Crt, Graph, Bdraw;
  8.  
  9. CONST
  10.   GraphPfad = '';
  11.   { Hier das Verzeichnis angeben, in dem CGA.BGI ist       }
  12.  
  13. VAR
  14.   gd, gm, i,
  15.   code       : INTEGER;
  16.   ch         : CHAR;
  17.   figur      : ARRAY [1..4] OF str255;
  18.   sint       : STRING;
  19.  
  20. BEGIN
  21.   gd := 1;  gm := 0;
  22.   InitGraph(gd, gm, GraphPfad);
  23.   figur[1] := 'u7 nl3 nr3 u3 bf7 r5 d5 l5 u5 br10 ' +
  24.               'r5 d5 l5 u5 bf7 br7';
  25.   figur[2] := 'u10 br5 d10 r5 u5 l5 br10 r5 d5 l5 ' +
  26.               'u5 br8 f7 bu5 g7';
  27.   figur[1] := Concat(figur[1], figur[2]);
  28.   figur[2] := 'c2 k40 p2,2 c3 bu12 br19 k7 p3,3 bl38 ' +
  29.               'k7 p3,3 c0 bm+3,1 k4';
  30.   figur[3] := 'p0,0 br38 k4 p0,0 c1 bm-21,2 g15 f4 r5 ' +
  31.               'bm+18,7 g5 l25 h5';
  32.   figur[2] := Concat(figur[2], figur[3]);
  33.   Draw('bm30,50c1s4t25');
  34.   Draw(figur[1]);
  35.   Draw('br30,s6,a0,c3');
  36.   Draw(figur[1]);
  37.   Draw('bl50, c3');
  38.   Draw(figur[1]);
  39.   Draw('s4bm+30,15,c2t-25');
  40.   Draw(figur[1]);
  41.   Draw('a0bm150,100,t-12s5');
  42.   Draw(figur[2]);
  43.   ch := ReadKey;
  44.   REPEAT
  45.     CloseGraph;
  46.     WriteLn('Nochmal (J/N) ?');
  47.     IF UpCase(ReadKey) = 'N' THEN Halt;
  48.     REPEAT
  49.       Write('Größe des Gesichts als Faktor (1-12)? ');
  50.       ReadLn(sint);
  51.       Val(sint, akts, code);
  52.     UNTIL ((code = 0) AND (akts > 0) AND (akts < 13));
  53.     REPEAT
  54.       Write('Drehwinkel des Gesichts (-359..359)? ');
  55.       ReadLn(sint);
  56.       Val(sint, aktw, code);
  57.     UNTIL ((code = 0) AND (aktw > -360) AND (aktw < 360));
  58.     InitGraph(gd, gm, GraphPfad);
  59.     Draw('bm160,100');
  60.     Draw(figur[2]);
  61.     ch := ReadKey;
  62.   UNTIL 1 <> 1  { FALSE };
  63. END {Draw_Demo}.
  64. (* ------------------------------------------------------ *)
  65. (*               Ende von CGADEMO.PAS                     *)
  66.