PROCEDURE aLinea;

VAR
	i,j,mx,ny,v : integer;	
	r,g,b : LongInt;
	lineHandle: HANDLE;
	recHandle: HANDLE;

	px,py : REAL;
	
BEGIN
	ColorIndexToRGB(15,r,g,b);
		     Penfore(r,g,b);
	
	For mx:= 10 To 20 DO BEGIN
		For i:= 1 To 5 DO BEGIN
			
			MoveTo(0,i+mx*10);
			lineto(i+mx*10-1,i+mx*10);
		END;
	END;


	For ny:= 10 To 20 DO BEGIN
		For i:= 1 To 5 DO BEGIN
			MoveTo(i+ny*10,100);
			lineto(i+ny*10,i+ny*10-1);
			lineHandle:=Lobject;
			Hrotate(lineHandle,i+ny*10,100,0);
		END;
	END;
Group;
	
		Duplicate(210,0);
		FlipHor;
		lineHandle:=Lobject;
		r:= 35600;
		g:= 35600;
		b:= 35600;
		SetPenFore(LineHandle,r,g,b);
		
			
GROUP;
SELECTALL;	


		Duplicate(0,-170);
		Flipver;
		FlipHor;

SelectAll;
Group;
	
	lineHandle:=Lobject;
	HCenter(lineHandle,px,py);
	FillFore(52);
	FillBack(10);
	
	ColorIndexToRGB(46,r,g,b);
	Penfore(r,g,b);
	
	For v:= 10 To 30 DO BEGIN		
		Rect(px+v*3,py+v*3,px-v*3,py-v*3);
	recHandle:=LNewobj;
	HRotate(recHandle,px,py,45);
	
	If (v<20) Then FillPat(21) 
	Else FillPat(0);
	END;
	
		


Group;
SelectAll;
	Duplicate(420,0);

Group;
SelectAll;
	Duplicate(0,282);





END;

Run(aLinea);