Español
Experimente

Bilineare Bézierkurven, para Austesten y rumexperimentieren...

 

p.specht


Windowtitle "Bilineare Bézierkurven"
' (X) Experimentalware 2013-09 by P. Pájaro carpintero, Wien. Keine Gewähr!
Ventana 0,0-%maxx,%maxy
Appendmenubar 10,"Endpunkte para jeweils 2 Linien clic. Dazwischen se entonces el Kurve gemalt."
declarar x0!,y0!,x1!,y1!,x2!,y2!
declarar x!,y!,xa!,ya!,xb!,yb!,xc!,yc!,L!
WaitMouse
x0!=%mousex:y0!=%mousey
usepen 0,2,0
point x0!,y0!
WaitMouse
x1!=%mousex:y1!=%mousey
usepen 0,2,0
point x1!,y1!
usepen 0,1,0
line x0!,y0! - x1!,y1!

repeat

    WaitMouse
    x2!=%mousex:y2!=%mousey
    usepen 0,2,0
    point x2!,y2!
    usepen 0,1,0
    'line x0!,y0! - x2!,y2!
    line x1!,y1! - x2!,y2!
    xa!=(x0!+x1!)/2:ya!=(y0!+y1!)/2
    xb!=x1!:yb!=y1!
    xc!=(x1!+x2!)/2:yc!=(y1!+y2!)/2
    usepen 0,12,rgb(0,200,0)
    moveto xa!,ya!

    whileloop 0,100

        L!=&Loop/100
        ' Bernstein-Polynome:
        x!=(xc!-2*xb!+xa!)*sqr(L!)+2*L!*(xb!-xa!)+xa!
        y!=(yc!-2*yb!+ya!)*sqr(L!)+2*L!*(Yb!-ya!)+ya!
        lineto x!,y!

    endwhile

    x0!=x1!:y0!=y1!
    x1!=x2!:y1!=y2!

until %key=27

end

proc point

    parámetros x!,y!
    usepen 0,2,rgb(255,0,0)
    rectangle x!-3,(y!-3) - x!+3,y!+3

ENDPROC

 
XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
09.05.2021  
 



Zum Experiment


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

710 Views

Untitledvor 0 min.
Ernst21.07.2021
Uwe ''Pascal'' Niemeier13.06.2021
R.Schneider28.05.2021
Michael W.28.05.2021
Más...

Themeninformationen

Dieses Thema ha 1 subscriber:

p.specht (1x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie