
Potrzebowałem makro które ułatwiło by mi rysowanie okręgu o określonym promieniu i naskrobałem coś takiego.
Kod: Zaznacz cały
var
x : double;
begin
x := strtofloat( inputbox('Promien','promień okregu','0'));
circle(-x,0,x);
selectall;
obrot(90,0,0);
refresh;
end.
Zastosowana w moim przypadku funkcja obrot działa chyba nie tak jak powinna.
Na moje to okrąg zostaje przesunięty o wektor a nie obrócony o zadany kąt.