rogi zaokrąglone świetnie działają w programie w wersji 2.8
Kod: Zaznacz cały
// frezowanie ramki drzwiczek z wejsciem freza z boku i okraglymi rogami
var
x,y,R: integer;
margines,marginesprawy,xa,ya,srednica: double;
begin
clear;
x := strtoint( inputbox('Podaj parametr','Szerokosc frontu','300'));
y := strtoint( inputbox('Podaj parametr','Wysokosc frontu','300'));
margines := strtofloat( inputbox('Podaj parametr','Odleglosc od krawedzi','50'));
srednica := strtofloat( inputbox('Podaj parametr','Srednica freza','12'));
R := strtofloat( inputbox('Podaj parametr','Promień łuku','16'));
begin
R := R - srednica;
margines:= margines + srednica;
Linia (((x-margines)/2)-0.25,margines+15,((x-margines)/2)-0.25,margines);
Linia (((x-margines)/2)-0.25,margines, margines+R,margines); //dolny bok
arc (margines+R,Margines+R,R,180,270); //lewy dolny łuk
Linia (margines,margines+R,margines,y-margines-R); //lewy bok
arc (margines+R,y-margines-R,R,90,180); //prawy górny łuk
Linia (margines+R,y-margines,x-margines-R,y-margines); //górny bok
arc (x-margines-R,y-margines-R,R,0,90); //prawy górny łuk
Linia (x-margines,y-margines-R,x-margines,margines+R); //prawy bok
arc (x-margines-R,margines+R,R,270,360); //prawy dolny łuk
Linia (x-margines-R,margines,(x-margines)/2,margines); //bok dolny polowa prawa
Linia ((x-margines)/2,margines,(x-margines)/2,margines+15); //wciecie prawe
end;
polyline;
refresh;
selectall;
end.
