Français
Source/ Codesnippets

Ellipsen dans Horizontallage mittels modifiziertem Bresenham-Kreisalgorithmus

 

p.specht

attention, schnarchlangsam là seulement Prinzip-Demo:
Titre de la fenêtre "BRESENHAM-ELLIPSEN IN HORIZONTALLAGE"
' Q: https://de.wikipedia.org/wiki/Bresenham-Algorithmus
' sur XProfan gequält de P. Specht 2012-06. Demo, aucun Gewähr!
Fenêtre Style 16 | 64
Font 2:randomize
Fenêtre 0,0 - %maxx,%maxy
var xm&=%maxx\2 : var ym&=%maxy\2:var cnt&= 0
var a&=300:var b&=160:var co&=rgb(255,0,0)
var bco&= rgb(210,210,210)+rgb(rnd(46),rnd(46),rnd(46))
Begin:
inc cnt&:ifnot cnt& mod 200:cls bco&:imprimer " Abbruch avec ESC ";:endif
BrEllipse 2*xm&*rnd(),2*ym&*rnd(), a&*rnd(),b&*rnd(), rnd(8^8)
WaitInput 100
cas %clé=27:Fin
goto "Begin"

proc BrEllipse : parameters xm&, ym&, a&, b&,co&

    var dx& = 0: var dy& = b&' im I. Quadranten de à gauche dessus à droite unten
    var a2! = a&*a&: var b2! = b&*b&
    var err! = b2!-(2*b&-1)*a2! : var e2!=0' faute im 1. Schritt

    Repeat

        setPixel xm&+dx&, ym&-dy&, co&'  I. Quadrant
        setPixel xm&-dx&, ym&-dy&, co&' II. Quadrant
        setPixel xm&-dx&, ym&+dy&,co&'III. Quadrant
        setPixel xm&+dx&, ym&+dy&, co&'IV. Quadrant
        e2! = 2*err!

        si e2! < ((2*dx&+1)*b2!) : inc dx& : err! = err! + (2*dx&+1)*b2! : endif

            si e2! > (-(2*dy&-1)*a2!) : dec dy&: err! = err! - (2*dy& -1)*a2! : endif

            Until  dy& < 0

            Tandis que dx& <= a&

                inc dx&' vers den fehlerhaften Abbruch chez flachen Ellipsen avec b=1:
                setPixel xm&+dx&, ym&,co&' -> Spitze qui Ellipse vollenden
                setPixel xm&-dx&, ym&,co&

            Endwhile

        ENDPROC

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



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

628 Views

Untitledvor 0 min.
N.Art21.07.2022
Ernst21.07.2021
Uwe ''Pascal'' Niemeier13.06.2021
R.Schneider28.05.2021
plus...

Themeninformationen

cet Thema hat 1 participant:

p.specht (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie