define veck
local maxVertex
local pktVertex
local nVertex
local diaVertex
local n
loop
loop
read number 'anzahl ecken eingeben (integer)' maxVertex
let maxVertex (trunc maxVertex)
exit_if (maxVertex>=3)
beep display 'min. 3 ecken erforderlich'
end_loop
read number 'eckdurchmesser eingeben' diaVertex
read pnt 'vieleck platzieren' pktVertex
line polygon (pktVertex+(pnt_ra (diaVertex/2) 0))
let nVertex (360/MaxVertex)
let n 1
while (n<=MaxVertex)
(pktVertex+(pnt_ra (diaVertex/2) (n*nVertex)))
let n (n+1)
end_while
end
end_loop
end_define
gruss aus finsterhennen
------------------
awi
André Weidmann
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP