home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Snippets / Extract PICT Colors / Extract.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-11-04  |  2.8 KB  |  105 lines  |  [TEXT/MMCC]
  1. /**********************************************************************************************
  2. This code shows how use the Picture Utilities Package to extract the colors from a PICT file. 
  3. Error checking will have to be added. Written by Steve Wagy, CIS 70471,1640.
  4. **********************************************************************************************/
  5.  
  6. /********************************************************************
  7.  Ported to Metrowerks CodeWarrior by Paul Celestin on 4 November 1994
  8.  ********************************************************************/
  9.  
  10. #include <Files.h>
  11. #include <PictUtil.h>
  12. #include <QuickDraw.h>
  13.  
  14. short            globalRef, numTypes;
  15. long            longCount, myEOF, filePos;         
  16. WindowRecord    wStorage;
  17. CQDProcs        myProcs;   
  18. CQDProcsPtr       savedProcs;
  19. Rect              myRect, rect;         
  20. OSErr              err;
  21. PicHandle         myPic;
  22. WindowPtr        myWindow;                          
  23. PaletteHandle    thePalette;        
  24. SFReply            reply;
  25. PictInfo        thePictInfo;
  26. Point            where;
  27. SFTypeList        typeList;
  28. short             lockerr;
  29.  
  30.  
  31. pascal void GetPICTData(Ptr dataPtr,int byteCount)
  32. { 
  33.     longCount = byteCount;
  34.     err = FSRead(globalRef,&longCount,dataPtr);
  35. } 
  36.  
  37.  
  38. main()
  39. {
  40.     ToolBoxInit();
  41.     Open();
  42. }
  43.  
  44.  
  45. ToolBoxInit()
  46. {
  47.     MaxApplZone();
  48.     MoreMasters();
  49.     MoreMasters();
  50.     InitGraf(&qd.thePort);
  51.     InitFonts();
  52.     FlushEvents(everyEvent,0);
  53.     InitWindows();
  54.     InitMenus();
  55.     TEInit();
  56.     InitDialogs(0L);
  57.     InitCursor();
  58. }
  59.  
  60.  
  61. Open()
  62. {    
  63.     where.h = 150;                
  64.     where.v = 120;
  65.     typeList[0] = 'PICT';
  66.     numTypes = 1;
  67.     
  68.     SFGetFile(where,"\p",0L,numTypes,typeList,0L,&reply);
  69.     if    (!reply.good)
  70.         return;
  71.     err = FSOpen(reply.fName,reply.vRefNum,&globalRef);
  72.     myPic = (PicHandle)NewHandle(sizeof(Picture));
  73.     err = SetFPos(globalRef,fsFromStart,512);
  74.     err = GetEOF(globalRef,&myEOF);
  75.     longCount = sizeof(Picture);
  76.     err = FSRead(globalRef,&longCount,*myPic);
  77.     rect = (*myPic)->picFrame;
  78.     myRect.top = rect.top + 20;
  79.     myRect.bottom = rect.bottom + 20;
  80.     myRect.left = rect.left;  
  81.     myRect.right = rect.right;
  82.     myWindow = NewCWindow(&wStorage,&myRect,reply.fName,true,2,(WindowPtr)(-1),false,0L);
  83.     SetPort(myWindow);
  84.     SetStdCProcs(&myProcs);  
  85.     myProcs.getPicProc = (QDGetPicUPP)GetPICTData;
  86.     savedProcs = (CQDProcsPtr)(*qd.thePort).grafProcs;
  87.     (*qd.thePort).grafProcs = (QDProcsPtr)&myProcs;
  88.     err = GetFPos(globalRef,&filePos);
  89.     err = GetPictInfo(myPic,&thePictInfo,returnColorTable,256,systemMethod,0);
  90.     err = SetFPos(globalRef,fsFromStart,filePos);
  91.     thePalette = NewPalette(256,thePictInfo.theColorTable,pmTolerant,0);
  92.     SetPalette(myWindow,thePalette,true);
  93.     DrawPicture(myPic,&myWindow->portRect);
  94.     err = FSClose(globalRef);
  95.     (*qd.thePort).grafProcs = (QDProcsPtr)savedProcs;
  96.  
  97.     while    (!Button());
  98.     CloseWindow(myWindow);
  99.     DisposeHandle((Handle)myPic);
  100.     DisposeHandle((Handle)thePictInfo.theColorTable);
  101.     DisposePalette(thePalette);
  102.     ExitToShell();
  103. }   
  104.  
  105.