Français
Source/ Codesnippets

Bresenham-Kreisalgorithmus

 

p.specht


'dans XProfan 11.2a free geschrieben trop Lernzwecken
Windowstyle 31
Windowtitle "Bresenham-Circles"
Fenêtre %maxx*.81,%maxy*.81
Cls @Rgb(231,231,221)
'  Kreise dans la distance ab%
var r%= sqrt((@width(%hWnd)/2)^2 + (@height(%hWnd)/2)^2 )
var ab%=14

tandis que r%>0

    brCircle( @width(%hWnd)/2, @height(%hWnd)/2 , r% , \
    @rgb(rnd(100)+155,rnd(155)+100,r% and 255) )
    r% = r% - ab%
    cas %MousePressed : pause

endwhile

WaitInput
Fin

proc brCircle

    ' Bresenham-Algorithmus pour une (Achtel-)Kreis
    parameters xmittel%,ymittel%,r%,c%
    var x% = r%
    var y% = 0
    var faute% = r%
    declare dy%,dx%
    Gosub "DrawPixels"' JAWOLL, EIN GOSUB! DA STAUNSTE, WAS?

    WHILE y% < x%

        dy% = y%*2+1 : REM chez Assembler-Implementierung *2 per Shift
        inc y%
        faute% = faute% - dy%

        IF faute%<0

            dx% = 1 - x%*2
            x% = x% - 1
            faute% = faute% - dx%

        ENDIF

        ' là es um den Bildschirm et pas ums Plotten allez,
        ' peux on qui anderen Oktanten ici avec abdecken:
        Gosub "DrawPixels"

    ENDWHILE

    RETOUR
    DrawPixels:
    SETPIXEL xmittel%+x%, ymittel%+y%,c%
    SETPIXEL xmittel%-x%, ymittel%+y%,c%
    SETPIXEL xmittel%-x%, ymittel%-y%,c%
    SETPIXEL xmittel%+x%, ymittel%-y%,c%
    SETPIXEL xmittel%+y%, ymittel%+x%,c%
    SETPIXEL xmittel%-y%, ymittel%+x%,c%
    SETPIXEL xmittel%-y%, ymittel%-x%,c%
    SETPIXEL xmittel%+y%, ymittel%-x%,c%
    Retour

ENDPROC

 
XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
05.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

562 Views

Untitledvor 0 min.
Hans Neff24.01.2023
Stringray05.01.2022
N.Art23.07.2021
Glubbfan19.06.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