Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sdd.hp.com!zaphod.mps.ohio-state.edu!julius.cs.uiuc.edu!ux1.cso.uiuc.edu!news.iastate.edu!niko
From: niko@iastate.edu (Schuessler Nikolaus E)
Newsgroups: comp.sys.mac.programmer
Subject: Getting thoes @#!$ 256 colors to show themselves
Message-ID: <1990Dec18.044354.1245@news.iastate.edu>
Date: 18 Dec 90 04:43:54 GMT
Sender: news@news.iastate.edu (USENET News System)
Distribution: na
Organization: Iowa State University, Ames, IA
Lines: 50

Hey. I'm trying to get 256 colors displayed on any screen in any
format and am failing miserably. :-( Here is what I have:

   SetRect(&bnds,10,40,620,470);
    wind= NewCWindow(NULL,&bnds,"\pMy Window",1,plainDBox,NULL,1,0L);
    
    InitCursor();
    SetCursor(&arrow);
    ShowCursor();
   
    ctbhndl=GetCTable(8);             /* gets 8 bit color table from rom */
    SetWinColor(wind,ctbhndl);       /* sets the windows color table */
       
    for (i=0; i<bnds.right-20; i += 10)
      for (j=0; j<10; j++)
        { ForeColor(oldcolors[(i/10) % 8]);    /* here are the normal 
                                                   boring colors */
          MoveTo(10+i+j,20);
          LineTo(10+i+j,bnds.bottom/2);
          
          HSL2RGB(&hls,&rgb);       /* here is supposed to be neat colors */
          RGBForeColor(&rgb );
          MoveTo(10+i+j,bnds.bottom/2 +10);
          LineTo(10+i+j,bnds.bottom-5);
          hls.hue += 1235;
        }
        
      ForeColor(blackColor);
        

What it does is draw the 8 normal colors on the top of the screen, and
just white on the bottom of the screen. I hacked around in the debugger
(THINK 4.0) and found that the ctbhndl is atleast non-nil. HSL2RGB also
seems to work.  I've tried every combination of RGBForeColor,PmForeColor,
CTab2Pallette, etc. etc. and I either get the white on the bottom of
the screen or the same thing as I get on the top (I SHOULD get neat colors
on the bottom from the 256 color colortable). HEEEEELLLLLPPPP!!!!!

(thanks)






--
------------------------------------------------------------------------------
Niko Schuessler               "On a two semester mission to engineer where
niko@iastate.edu               no-one has engineered before.... :-) "
------------------------------------------------------------------------------