OpenEuphoria

Re: Graphics Problems

• Posted by euman at bellsouth.net Apr 04, 2002
• 595 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