Rotar elipse, arco eliptico, arco circular

54 views

Skip to first unread message

lrcvs

unread,

Feb 3, 2008, 4:06:24 PM2/3/08

to log...@googlegroups.com

Hola Daniel:

El siguiente procedimiento sirve para rotar sobre su centro una elipse, arco eliptico, arco circular (... si modificamos el programa).

Ahora bien, ¿Porque surgen "radios / diametros" ?

para e
; Aqui dibujamos una elipse
; Modificando los valores de inicio y final en el bucle K
; podemos tambien rotar un arco eliptico

; si igualamos los valores de rx e ry conseguimos un arco circular

; modificamos tambien el bucle K ,podemos consegir el arco circular

bp
haz "rx 100 ;radio del eje X
haz "ry 50 ;radio del eje Y

haz "x 0 ;Posicion X del centro de la elipse original
haz "y 0 ;Posicion Y del centro de la elipse original
haz "k 0 ;Nos dice el angulo de giro de la elipse original

haz "px 0 ;posicion punto de rotacion X de la elipse original
haz "py 0 ;posicion punto de rotacion Y de la elipse original

haz "xf 0 ;posicion del punto X de la elipse rotada
haz "yf 0 ;posicion del punto Y de la elipse rotada

bl
bp
ponxy (:x + (:rx * sen 0 +1)) (:y - (:ry * cos 0 +1)); Aqui iniciamos
desde [j 0 360 1][limpia

desde [k 0 360 1] [haz "px (:x + (:rx * sen :k + 1))
haz "py (:y - (:ry * cos :k + 1))

                          haz "xf ((:px * cos(:j))) - ((:py * sen (:j)))
                         haz "yf ((:px * sen(:j))) + ((:py * cos (:j)))
                          ponxy (:xf) (:yf) ]]
fin