fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

@flo

Uploader:	Sebastian
Datum/Zeit:	11.06.2008 19:40:33

SCREENRES 640,480,32



BLOAD "testbg.bmp"



DIM AS INTEGER X, Y, NF, R, G, B, P, RNeu, GNeu, BNeu

DIM AS DOUBLE PsNeu



LINE (449,299)-(551,401),0,B

FOR X = 450 TO 550

    FOR Y = 300 TO 400

        P = POINT(X,Y)

        R = (P AND &HFF0000) SHR 16

        G = (P AND &H00FF00) SHR 8

        B = (P AND &H0000FF)

        PsNeu = (X-450)/100

        RNeu = 10*PSNeu + R*(1-PSNeu)

        GNeu = 80*PSNeu + G*(1-PSNeu)

        BNeu = 128*PSNeu + B*(1-PSNeu)

        LOCATE 2,1: PRINT RNeu; GNeu; BNeu; "   "

        NF = RGB(RNeu,GNeu,BNeu)

        PSET (X,Y), NF

    NEXT Y

NEXT X



SLEEP

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.