#pas
unit HiAsmUnit;

interface

uses kol,Share,Debug;

type
THiAsmClass = class(TDebug);
type
PainterSys = class
private
koord:Longint;
xmax,ymax:real;
Systems,x,y,xe,ye,xv,yv:integer;
Rings:Byte;
a:array of longint;
procedure start:Longint;
   public
property pX:integer read x write x;
property pY:integer read y write y;
property fxmax:real read xmax;
property fymax:real read ymax;
property fRings:Byte read Rings;
property fstart:Longint read start;
property fkoord:Longint read a[n];
property pSystems:integer read Systems write Systems;
 end;

implementation
   procedure PainterSys.start:Longint;
begin
   Rings:= (-0.5)+0.5*sqrt(1+(Systems/3)*4);
   
   xmax:=34*(2*(Rings/3)+1);
   ymax:=22*(1+Rings);
   
   xe:=round(y*0.5+x*(sqrt(3)/2));
   ye:=round(-y*(sqrt(3)/2)+x*0.5);
   
   xv:=xe+15;
   yv:=ye+9;

   a[0]:=(ymax+yv)*65536+(ymax+xv);
   a[1]:=(ymax+yv-13)*65536+(ymax+xv-7);
   a[2]:=(ymax+yv-13)*65536+(ymax+xv-23);
   a[3]:=(ymax+yv)*65536+(ymax+xv-30);
   a[4]:=(ymax+yv-14)*65536+(ymax+xv-23);
   a[5]:=(ymax+yv-14)*65536+(ymax+xv-7);
   for n:=0 to 5 do
   writeln (a[n]);
end;    
end.