|
Registriert seit: 31. Aug 2005
1.622 Beiträge
FreePascal / Lazarus
|
Re: Benutzerdefinierte Spritefarben
19. Jun 2007, 14:08
Cut verhindert, dass es einen Byteüberlauf gibt. Also
[delphi]
function cut(v:integer):byte;
begin
result := v;
if v < 0 then
result := 0
else
if v > 255 then v := 255;
end;
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
|