XProfan

'- Georg Teles 30.05.2018
Randomiser
Déclarer sPic&, hPic&
Déclarer x&, y&'VAL: Breite, Hauteur
Déclarer h&, v&'POS: horizontal, vertikal
CLS RGB(0,255,0)
x& = 32
y& = 32
' generiere Bild
MCLS x&, y&
CLear h&, v&
Début de peinture -1

WhileLoop 0,(x&*y&)-1

    SetPixel h&, v&, RGB(rnd(255),rnd(255),rnd(255))
    Inc h&

    Si h& = x&

        Inc v&
        Claire h&

    EndIf

Endwhile

EndPaint
sPic& = Créer(«PCSI»,0,"& MEMBMP")
' normales Bild / Quellbild
DrawPic sPic&,0,0;0
' helleres Bild, 200%
hPic& = brightness(sPic&, x&, y&, 200)
DrawPic hPic&,0,48;0
DeleteObject hPic&
' max. helles Bild, 25500% = sais
hPic& = brightness(sPic&, x&, y&, 25500)
DrawPic hPic&,48,48;0
DeleteObject hPic&
' dunkleres Bild, 50%
hPic& = brightness(sPic&, x&, y&, 50)
DrawPic hPic&,0,96;0
DeleteObject hPic&
' max. dunklers Bild, 0% = noir
hPic& = brightness(sPic&, x&, y&, 0)
DrawPic hPic&,48,96;0
DeleteObject hPic&
WaitInput
DeleteObject sPic&

Proc brightness

    ' (Handle) Quellbild, (Breite) Quellbild, (Hauteur) Quellbild, (Helligkeit) 0-25500
    Paramètres source&, x&, y&, p&
    Déclarer bPic&, h&, v&, px&, r&, g&, b&
    Claire h&, v&
    MCLS x&, y&

    WhileLoop 0,(x&*y&)-1

        '-------------------------------# Lese Pixel vom Quellbild
        Début de peinture source&
        px& = GetPixel(h&, v&)
        r& = GetRValue(px&)
        g& = GetGValue(px&)
        b& = GetBValue(px&)
        EndPaint
        '-------------------------------#
        Cas r& = 0:r& = 1
        Cas g& = 0:g& = 1
        Cas b& = 0:b& = 1
        '-------------------------------# zeichne avec angepasster Helligkeit
        Début de peinture -1
        SetPixel h&, v&, RGB(r&*(p&/100),g&*(p&/100),b&*(p&/100))
        EndPaint
        '-------------------------------# horizontal / vertikal
        Inc h&

        Si h& = x&

            Inc v&
            Claire h&

        EndIf

    Endwhile

    bPic& = Créer(«PCSI»,0,"& MEMBMP")
    Retour bPic&

ENDPROC