MicroGIS™ DevCon

Код: Выделить всё

[SCRIPT]

Var 
   strResult:string;
   i:byte;
   X1,Y1,X2,Y2:integer;
begin
   strResult:='';     
   X1:=Round(IntPower(2,z)) div 2;
   Y1:=Round(IntPower(2,z)) div 2;
   X2:=X1; Y2:=Y1;
   for i:=2 to z+1 do
    begin
    X2:=X2 div 2;
    Y2:=Y2 div 2;
    if x<X1
     then begin
           X1:=X1-X2;
           if y<Y1 then begin
                            Y1:=Y1-Y2;
                            strResult:=strResult+'0';
                           end
                      else begin
                            Y1:=Y1+Y2;
                            strResult:=strResult+'2';
                           end;
          end
     else begin
           X1:=X1+X2;
           if y<Y1 then begin
                             Y1:=Y1-Y2;
                             strResult:=strResult+'1';
                            end
                     else begin
                           Y1:=Y1+Y2;
                           strResult:=strResult+'3';
                          end;
         end;
     end;
 SummaryURL:=DefaultURL+strResult+'.jpeg?g=1046';
end.

Код: Выделить всё

var 
  strTail:string; 

begin 

   strTail:=SubString('Galileo',1, Random(8));
   SummaryURL:=DefaultURL+'&x='+IntToStr(x)+'&y='+IntToStr(y)+'&z='+IntToStr(z)+'&s='+strTail; 

end.

Код: Выделить всё

[_line]
Type=0x05
UseOrientation=Y
LineWidth=1
Xpm="0 0 2 0"
"1 c #000000"
"2 c #D08800"
ExtendedLabels=N
[end]