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
¿Con Mascota por primera vez? - Sé un mejor Amigo
Entra en Yahoo! Respuestas.