home *** CD-ROM | disk | FTP | other *** search
- { MAXONPascal3-Anpassung / Test: Falk Zühlsdorff (PackMAN) 1994 }
-
- Program BorderDemo;
-
- USES INTUITION;
-
- Var Win: ^Window;
- i: integer;
-
- Procedure Recht(Rast:p_RastPort; X,Y,B,H: integer);
- Var Feld: Array[0..9] of integer;
- Bor: Border;
- Begin
- { Koordinaten initialisieren: }
- Feld[0]:=0; Feld[1]:=0; { Punkt links oben }
- Feld[2]:=B; Feld[3]:=0; { rechts oben }
- Feld[4]:=B; Feld[5]:=H; { rechts unten }
- Feld[6]:=0; Feld[7]:=H; { links unten }
- Feld[8]:=0; Feld[9]:=0; { nochmal links oben }
- { Boderstruktur initialisieren: }
- Bor:=Border(0,0, { keine Verschiebung }
- 3,0, { Farbe: rot }
- 0, { Modus: normal }
- 5, { fünf Paare für vier Linien }
- ^Feld, { Zeiger auf Koordinaten }
- Nil); { kein weiteres Border }
- DrawBorder(Rast, ^Bor, X, Y)
- End;
-
- Begin
- Win:=Open_Window(0,0,640,200,1,0,$1007,'Rahmem',Nil,100,100,640,200);
- For i:=1 to 10 Do { zehn Rechtecke }
- Recht(Win^.RPort, 25+12*i, 15+5*i, 50+30*i, 15+10*i);
- Delay(8*50); { acht Sekunden zum Bewundern }
- Close_Window(Win)
- CloseLib(Intuitionbase);
- End.
-