XProfan

Français

p.specht

Beide, nämlich Bezierkurven 2. Ordre et Splines 3. Ordre (aka Kubische Splines) sommes engstens verwandt et ineinander überführbar. Beide sommes nämlich dans Wirklichkeit kubische Polynomfunktionen. So volonté incidemment aujourd'hui skalierbare Schriften geschaffen: Duch Eckpunk-Angaben. et juridique geschützt ist cela Ergebnis ensuite aussi!

Kompilieren Marque Séparation

Titre de la fenêtre "Parametrisch explizit gesteuerte 4-Punkte-Kurve"
'(DW) Demoware 2015-01-02 by P.Specht, vienne (Austria). sans jedwede Gewähr!
Windowstyle 24:font 2:randomize:Fenêtre 0,0-%maxx,%maxy
Var xh&=width(%hwnd)/2:Var yh&=height(%hwnd)/2

proc fy :parameters y0!,y1!,y2!,y3!,a!:var a2!=sqr(a!):var a3!=a2!*a!

    '*********************************************************************************
    return a3!*y3!+(3*a2!-3*a3!)*y2!+(3*a3!-6*a2!+3*a!)*y1!+(-a3!+3*a2!-3*a!+1)*y0!
    '*********************************************************************************

endproc

Déclarer i&,j&,k&,f!, x!,y!,x0!,y0!,x1!,y1!,x2!,y2!,x3!,y3!, a!
REPEAT :locate 2,2:imprimer "1. Punkt klicken"

whileloop 0,3

    waitmouse

    si %mousepressed=1

        x!=%mousex:y!=%mousey

        si (&Boucle=0) or (&Boucle=3):usepen 0,16,200

            d'autre :usepen 0,9,rgb(0,200,0)
            endif : moveto x!,y!:lineto x!,y!:sound 500,10

            si     &Boucle=0: x0!=x!:y0!=y!:locate 2,2:imprimer "2"

            elseif &Boucle=1: x1!=x!:y1!=y!:locate 2,2:imprimer "3"

            elseif &Boucle=2: x2!=x!:y2!=y!:locate 2,2:imprimer "4"

            elseif &Boucle=3: x3!=x!:y3!=y!:locate 2,2:imprimer "Drawing           "

                d'autre : imprimer "Huh?"

            endif

        endwhile

        a!=0:x!=fy(x0!,x1!,x2!,x3!,a!):y!=fy(y0!,y1!,y2!,y3!,a!)
        usepen 0,6,rgb(0,0,200):moveto x!,y!

        whileloop 0,100:a!=&Boucle/100

            x!=fy(x0!,x1!,x2!,x3!,a!):y!=fy(y0!,y1!,y2!,y3!,a!):lineto x!,y!

        endwhile

    Until %Key=27:FIN