cnc.info.pl - FORUM CNC

Kod: Zaznacz cały

var
x,y: integer; 
margines,marginesprawy,xa,ya,srednica: double; 
begin
  x := strtoint( inputbox('Szerokosc','Szerokosc frontu','296')); 
  y := strtoint( inputbox('Wysokosc','Wysokosc frontu','713')); 
  margines := strtofloat( inputbox('Margines','Odleglosc od krawedzi','70')); 
  srednica := strtofloat( inputbox('Średnica freza','Srednica freza','12')); 
  begin

      xa := x-margines; 
      ya := y-margines; 

      clear; 
  UstawWysokoscStrony(y+50); 
  SetWorkWidth(x+50); 
  SetPenColor (clred); 

     setpointarray(0,margines+20+(srednica/2),margines+20+(srednica/2)); 
     setpointarray(1,margines+(srednica/2),margines+(srednica/2)); 
     setpointarray(2,xa-(srednica/2),margines+(srednica/2)); 
     setpointarray(3,xa-(srednica/2),ya-(srednica/2)); 
     setpointarray(4,margines+(srednica/2),ya-(srednica/2)); 
     setpointarray(5,margines+(srednica/2),margines+(srednica/2)); 
polyline; 
refresh; 
selectall; 
  end
end.