[pascal] palette probleem

[Osiris]

Ik probeer in pascal een plaatje weer te geven.
Van get- en putimage heb ik geen kaas gegeten, dus sla ik in PSP het plaatje als raw op. Vervolgens laat ik pascal de waarde lezen en een pixel met die kleur weergeven en dan de volgende waarde en weer weergeven enz.
Dat werkte met 16 kleuren prima, maar ik heb nu 256 kleuren tot mijn beschikking .
Nu komt het: het 256 kleuren palet van PSP en pascal komen niet overeen, dus hebben de plaatjes de gekste kleuren.
Weet iemand een oplossing of heeft iemand een PSP-palette gelijk aan het palet die ik gebruik in Pascal? Dat palet bestaat uit het volgende: 16 basiskleuren, 16 grijswaarden, vervolgens allerlij andere tussenkleuren.
Heeft dus iemand een oplossing of zo'n palet?
Tnx.

[Osiris]

Heeft geen enkele pascal-progammeur een geschikt PSP 256-kleuren palet?

[Verwijderd]

Mag ik je op de p&w faq wijzen?

Policy mbt het omhoogschoppen van threads. Wacht minstens 24 uur voor je je topic omhoog schopt. Doe dit dan ook alleen met een zinnige opmerking en dus niet met "Waarom antwoord er nou niemand" nadat je 5 minuten geen antwoord hebt gehad. Sommigen van ons hebben een leven

[Mithrandir]

Op zaterdag 20 oktober 2001 19:00 schreef Yarvieh het volgende:
Mag ik je op de p&w faq wijzen?
[..]

24 uur... Ik vind 45 minuten genoeg.

[Verwijderd]

Gebruik dit

code:

Procedure InitPal;
Var c : Byte;
Begin 
  For c := 0 to NumColors do 
  Begin 
    Port[$3c8] := c;                 
    Port[$3c9] := Round(63*c/NumColors);    //Rood  
    Port[$3c9] := 0;                //Groen
    Port[$3c9] := Round(63*c/NumColors);    //Blauw 
  End; 
End;

Dit is trouwens niet het goeie pallete.