home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / SysProg / Borderdemo.p < prev    next >
Encoding:
Text File  |  1994-07-23  |  1.2 KB  |  38 lines

  1. { MAXONPascal3-Anpassung / Test:  Falk Zühlsdorff (PackMAN) 1994  }
  2.  
  3. Program BorderDemo;
  4.  
  5. USES INTUITION;
  6.  
  7. Var Win: ^Window;
  8.     i: integer;
  9.  
  10. Procedure Recht(Rast:p_RastPort; X,Y,B,H: integer);
  11.   Var Feld: Array[0..9] of integer;
  12.       Bor: Border;
  13.   Begin
  14.     { Koordinaten initialisieren: }
  15.     Feld[0]:=0;     Feld[1]:=0;   { Punkt links oben   }
  16.     Feld[2]:=B;     Feld[3]:=0;         { rechts oben  }
  17.     Feld[4]:=B;     Feld[5]:=H;         { rechts unten }
  18.     Feld[6]:=0;     Feld[7]:=H;         { links unten  }
  19.     Feld[8]:=0;     Feld[9]:=0;   { nochmal links oben }
  20.     { Boderstruktur initialisieren: }
  21.     Bor:=Border(0,0,   { keine Verschiebung }
  22.                 3,0,   { Farbe: rot }
  23.                 0,     { Modus: normal }
  24.                 5,     { fünf Paare für vier Linien }
  25.                 ^Feld, { Zeiger auf Koordinaten }
  26.                 Nil);  { kein weiteres Border }
  27.     DrawBorder(Rast, ^Bor, X, Y)
  28.   End;
  29.  
  30. Begin
  31.  Win:=Open_Window(0,0,640,200,1,0,$1007,'Rahmem',Nil,100,100,640,200);
  32.  For i:=1 to 10 Do   { zehn Rechtecke }
  33.    Recht(Win^.RPort, 25+12*i, 15+5*i, 50+30*i, 15+10*i);
  34.  Delay(8*50);     { acht Sekunden zum Bewundern }
  35.  Close_Window(Win)
  36.  CloseLib(Intuitionbase);
  37. End.
  38.