Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: QB: SCREEN 13 -paletin tallennus

Jogge [30.12.2002 17:57:32]

#

Tämä koodivinkki tallentaa screen 13 paletin Paint Shop Pro:n ymmärtämään palettitiedostoon. Koodi on aika yksinkertainen joten en ruvennut sitä selittelemään.

TYPE paletti
    r AS INTEGER
    g AS INTEGER
    b AS INTEGER
END TYPE

DIM pal(256) AS paletti

SCREEN 13

OUT &H3C8, 1
FOR mones = 0 TO 255
    pal(mones).r = INP(&H3C9) * 4
    pal(mones).g = INP(&H3C9) * 4
    pal(mones).b = INP(&H3C9) * 4
NEXT

CLS

INPUT "Palettitiedoston nimi: ", tiedosto$

f = FREEFILE
OPEN tiedosto$ FOR OUTPUT AS #f

    PRINT #f, "JASC-PAL"
    PRINT #f, "0100"
    PRINT #f, "256"

    FOR a = 0 TO 255
        p$ = LTRIM$(STR$(pal(a).r)) + " " + LTRIM$(STR$(pal(a).g)) + " " + LTRIM$(STR$(pal(a).b))
        PRINT #f, p$
    NEXT a

CLOSE #f

trinit [31.12.2002 16:12:49]

#

Hyvä - tällaisen koodivinkin tuottama tiedosto käykin hyvin omaan projektiin joka on ollut jo _KAUAN_ kesken (Data Image Creator for Windows v2.00) -> http://www.saunalahti.fi/~trinit/tero_pietila/projektit.php

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta