Re: Graphics Problems
- Posted by euman at bellsouth.net Apr 04, 2002
- 416 views
Before someone gets on me about one of the routines heres an ammended version if pal_exist = 0 then c_proc(xSetSystemPaletteUse,{hdc, 1}) onine = myalloc(40) lnine = myalloc(40) junk = c_func(xGetSystemPaletteEntries,{hdc, 0, 10, onine}) junk = c_func(xGetSystemPaletteEntries,{hdc, 246, 255, lnine}) junk = c_func(xCopyMemory,{at, onine, 40}) at += 40 for i = 10 to 245 do mypoke(at, pal[i]) at = at + 4 end for junk = c_func(xCopyMemory,{at, lnine, 40}) at += 40 Euman euman at bellsouth.net 5 2 1 - 1 - n - 5 The Doors