home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Mac Game Programming Gurus / TricksOfTheMacGameProgrammingGurus.iso / More Source / Libraries / VideoToolbox 95.04.18 / Demos / TimeVideo.c < prev    next >
Encoding:
Text File  |  1995-04-18  |  40.1 KB  |  927 lines  |  [TEXT/MPCC]
  1. /*
  2. TimeVideo.c
  3. Copyright © Denis G. Pelli, 1992, 1993, 1994, 1995
  4.  
  5. TimeVideo does a thorough test of the timing and synchronization of each video
  6. screen, as well as the integrity of the clut hardware and software, and saves
  7. the results in a self-explanatory text file, “TimeVideo results”. TimeVideo
  8. runs on all Macs, requiring only System 6.05 or better. A discussion
  9. of movies, lookup table animation, and synchronization appears in the
  10. VideoToolbox “Video synch” file. The many video driver bugs uncovered by
  11. TimeVideo and its predecessors are reported in that file. (For example, version 3 of the
  12. TrueVision NuVista driver assumes zero start in 16- and 32-bit depth modes.) Please
  13. add your results by emailing your “TimeVideo results” to denis@xp.psych.nyu.edu.
  14.  
  15. Despite Apple’s rules that require it, a few video drivers don’t allow you to
  16. read the clut (i.e. use cscGetEntries), or crash if you attempt it. GDGetEntries
  17. (in GDVideo.c) checks against a list of known offenders and returns a statusErr
  18. if the cscGetEntries call is not usable. If we can’t use cscGetEntries then we fall back to a
  19. visual test of the clut, comparing a particular way of loading the clut against
  20. the standard way of loading the clut. Any visible change between these two
  21. conditions suggests an error in the non-standard way of loading the clut.
  22.  
  23.     SaveAndRestoreDevice(device);
  24. Each time you call SaveAndRestoreDevice with a device different from the last it
  25. restores the former device to its last state. A NULL device counts as different,
  26. in that it provokes restoration of the previous device. The initial state of this
  27. routine is as though you had just called it with the NULL device.
  28.  
  29. BUGS:
  30. Version 1.0 hung up on a PowerBook 170 with an Envisio video adapter. I didn’t 
  31. have a chance to figure out why. It works fine on my ordinary PowerBook 170.
  32.  
  33. HISTORY:
  34. 8/23/92    dgp    wrote it, based on my TimeCPU.c
  35. 8/26/92    dgp print the driver version only if it's nonzero.
  36.             added summary at end of printout.
  37. 9/9/92    dgp    changed printout of system vbl rate from %.1f to %.2f
  38.             Added movie rate to measurements and printout.
  39. 9/15/92    dgp    made compatible with System 6.04. Added header to results file.
  40. 9/17/92    dgp    Added QUICKLY switch, to select CopyBits or CopyBitsQuickly.
  41. 10/5/92    dgp    cosmetic changes
  42. 10/6/92    dgp    report program version. Use frames/clut update as the criterion for summary.
  43. 10/9/92    dgp    Fixed summary. Too slow means MORE than one frame per clut update.
  44.             Fixed restoration of clut in direct modes (i.e. 16 and 32 bit modes).
  45.             Renamed to GDRestoreDeviceClut and put it in GDVideo.c.
  46. 10/13/92 dgp Tom Busey reported that frames were going uncounted
  47.             during the clut timing, which seems to be a problem with some video drivers.
  48.             TimeVideo now reports a frame count based solely on timing in secs and
  49.             the separately measured frame rate, which seems to be a reliable.
  50.             It also double checks the timing in secs vs frames, and if
  51.             it finds a discrepancy, prints a warning to the screen & file. 
  52. 10/20/92 dgp Added VBL/frame to summary.
  53. 12/8/92    dgp Minor editing of comments.
  54. 12/9/92    dgp    1.01 Added _atexit(RestoreCluts) in case user quits prematurely.
  55. 12/11/92 dgp 1.02 GDRestoreBlackAndWhite allocates stack space for linearTable
  56.             only if we need it.
  57. 12/30/92 dgp 1.03 cosmetic changes.
  58. 12/30/92 dgp 1.04 Enhanced summary to account for NAN when no clut access is allowed.
  59. 12/30/92 dgp 1.05 Use GDClutSize().
  60. 1/6/93    dgp     1.06 Simplified GDRestoreBlackAndWhite, eliminated linearTable.
  61. 1/7/93    dgp  1.07 Included in VideoToolbox-1-93.sea
  62. 1/8/93    dgp     1.08 Added Info-Mac to report file.
  63. 1/11/93    dgp     1.09 In response to bug report from jonathan brecher, added support
  64.             for computers that lack Color QuickDraw.
  65. 1/15/93    dgp    1.10 Added version resource.
  66. 1/18/93    dgp    1.11 Updated the explanatory text.
  67. 1/24/93 dgp    1.12 Updated the explanatory text.
  68. 2/6/93 dgp    1.13 Report ROM version.
  69. 2/15/93 dgp    1.14 Report ROM version as 124+6*256.
  70. 2/22/93    dgp    1.15 Recompiled.
  71. 2/27/93    dgp    1.16 Recompiled with new Identify.c.
  72. 3/10/93    dgp    1.17 Choose a valid mode for which to print the frame rate.
  73.                  Moved all the timing code into GDInfo.c, so this routine just prints.
  74. 3/12/93    dgp        Reorganized the printout and added TestCluts's capabilities.
  75. 3/13/93    dgp        Added high-priority timing.
  76. 3/16/93    dgp    2.0 Added visual hash inspection.
  77. 3/31/93    dgp    2.1 Release version, clut test seems to work.
  78. 4/5/93    dgp    2.2 Recognize gray1 error.
  79. 4/6/93    dgp    2.3 Remove assumption that mode numbers imply certain number of bits.
  80. 4/13/93    dgp    2.3.1 Only set results file type when it is created, not when appending.
  81. 4/15/93    dgp        Display Testing window with gray wedge on test screen.
  82. 4/16/93    dgp    2.4b Restore compatibility with 1-bit qd.
  83. 4/19/93    dgp    2.4.1b Support old Mac II 24-bit NuBus addressing. Fixed two places
  84.                 where I used garbage in place of a linear color table when
  85.                 gdType==directType. Use new GDNewLinearColorTable.
  86. 4/19/93    dgp    2.4.2b Estimate color transformation matrix.
  87. 4/19/93    dgp    2.4.3b Use color transformation matrix to assess gray error.
  88. 4/19/93    dgp    2.4.4b Fixed RectToAddress to always return a 32-bit address,
  89.                     so it won't crash under System 6.
  90. 4/25/93    dgp    2.4.5b Correct for -0.5 bias in estimating rgb gains in TestClut.c
  91. 4/25/93    dgp    2.4.6b Test both color and gray modes; tolerance=3 lsb.
  92. 4/25/93    dgp    2.4.7b Worked around New Palette Manager bugs in original 32-bit QD.
  93. 4/27/93    dgp    2.4.8b Fixed stale-cache bug in SetPixelsQuickly. Cleaned up mode
  94.                     indexing.
  95. 4/28/93    dgp 2.4.9b Rewrote code dealing with SetDepth and HasDepth, wrote GDHasMode().
  96.                     Ignore "isGray" for 16 and 32-bit modes.
  97. 5/11/93    dgp 2.4.9bb Fixed bug in GDTestClutHash in GDTestClut.c in response to bug 
  98.                 report by Jonathan Brecher.
  99. 5/17/93    dgp 2.4.9bbb Changed SetEntriesQuickly to respect the color/gray mode of device.
  100. 5/18/93    dgp 2.4.9b4 Check that card->device is not NULL.
  101. 5/18/93    dgp 2.4.9b5 Suppress printing of identity color transformation.
  102. 5/18/93    dgp 2.4.9b6 Note that 16 and 32 bit depths are always in color mode.
  103. 5/18/93    dgp 2.5 Release version.
  104. 6/2/93    dgp 2.5.1 Updated text reference to info-mac.
  105. 7/7/93    dgp 2.5.2 Recompiled with new GDDacSize, for compatibility with
  106.                 Radius PowerView.
  107. 1/13/94    dgp 2.5.3 Updated description of VideoToolbox.
  108. 6/7/94    dgp    3.0.0 New C-based version of CopyBitsQuickly. Fixed versions of CopyBitsQuickly,
  109.                 SetPixelsQuickly, and SetEntriesQuickly that are compatible with dirty ROMs.
  110. 6/14/94    dgp    3.0.1 Copy Monaco-font style resource from application into the "TimeVideo report"
  111.                 document.
  112. 6/19/94    dgp    3.0.2 Various cosmetic changes, recompile with latest CopyBitsQuickly and 
  113.                 SetEntriesQuickly.
  114. 7/8/94    dgp    3.0.3 Recompiled with new THINK C 7.03.
  115. 7/29/94 dgp Eliminated use of "#s" printf format, since it's not supported by
  116.             Metrowerks CodeWarrior C.
  117. 8/1/94    dgp 3.0.4 Recompiled with latest sources.
  118. 8/14/94    dgp Added workaround for [][][][!isGray] bug in Metrowerks CodeWarrior compiler.
  119. 9/5/94 dgp removed assumption in printf's that int==short.
  120. 10/12/94 dgp Used Metrowerks CodeWarrior C to produce fat binary.
  121. 10/20/94 dgp 3.5 Defined BLANKLINE in GDInfo.h to work around bug in 
  122.         Metrowerks CW4.5 bug in handling of \r.
  123. 11/17/94    dgp    3.6 updated the text describing VideoToolbox.
  124. 11/17/94    dgp 3.6.1 added explanation of “GDSetEntries ... NAN ... frames”.
  125. 11/30/94    dgp Use Display Manager to test all display modes. Untested.
  126. 12/29/94 dgp 3.6.2 WriteAndReadClut now waits for vbl before reading.
  127. 1/7/95    dgp 3.6.3 Got Display Manager calls to work.
  128. 3/18/94 dgp 3.6.4 Recompiled with CodeWarrior 5.5, which supposedly fixs some C bugs.
  129. 3/22/95 dgp 3.6.5 Added check for bad Dome driver, and enhanced detection of CW compiler version.
  130. 4/1/95 dgp Updated my address. Added advice about how to interpret cscSetEntries/cscGetEntries 
  131.             errors.
  132. 4/7/95 dgp 3.6.6 Read A7 draft of "Designing Cards & Drivers for Power Mac Computers", and
  133.             added support for multiple resolutions on PCI Macs. 
  134. 4/8/95 dgp 3.7.0 Polished the explanatory text that appears at the beginning of the results file.
  135.             Disabled WAIT_FOR_VBL in WriteAndReadClut() in GDTestClut.c.
  136. 4/18/95 dgp Call SVersion() only if _SlotManager trap is available.
  137. */
  138. #include "VideoToolbox.h"
  139. #include <Traps.h>
  140. #include <math.h>
  141. #include <assert.h>
  142. #include <ROMDefs.h>    // catDisplay,typeVideo
  143. #include "GDInfo.h"
  144. void TimeVideo(void);
  145. void PrintVideoInfo(FILE *o[2],VideoInfo *card);
  146. void ReportRGBGains(FILE *o[2],Boolean quickly,Boolean isGray,VideoInfo *card);
  147. long GDColors(GDHandle device);
  148. char setEntriesString[][18]={"cscSetEntries","SetEntriesQuickly"};
  149. char colorGrayString[][6]={"color","gray"};
  150. char ColorGrayString[][6]={"Color","Gray"};
  151. #if UNIVERSAL_HEADERS
  152.     #include <Displays.h>
  153. #else
  154.     enum{kDMDriverNotDisplayMgrAwareErr = -6228};
  155.     extern pascal OSErr DMSetDisplayMode(GDHandle theDevice,unsigned long mode
  156.         ,unsigned long *depthMode,unsigned long reserved,Handle displayState)
  157.          ={0x303C,0x0A11,0xABEB};
  158.     extern pascal OSErr DMCheckDisplayMode(GDHandle theDevice,unsigned long mode
  159.         ,unsigned long depthMode,unsigned long *switchFlags,unsigned long reserved
  160.         ,Boolean *modeOk)={0x303C,0x0C12,0xABEB};
  161.     enum {
  162.         gestaltDisplayMgrAttr        = 'dply',    /* Display Manager attributes */
  163.         gestaltDisplayMgrPresent    = 0            /* True if Display Mgr is present */
  164.     };
  165. #endif
  166.  
  167. /* 
  168. These enum definitions for use with the cscGetNextResolution driver status call 
  169. are taken from the A7 draft (Feb 10,'95) of Apple's Designing PCI Cards and Drivers for
  170. Power Mac Computers. Undoubtedly these enum definitions will appear in some future 
  171. version of Video.h, perhaps with CodeWarrior 6, at which time they can be deleted from here.
  172. */
  173. enum{
  174.     kDisplayModeIDCurrent=0
  175.     ,kDisplayModeIDInvalid=0xffffffff
  176.     ,kDisplayModeIDFindFirstResolution=0xfffffffe
  177.     ,kDisplayModeIDNoMoreResolutions=0xfffffffd
  178. };
  179.  
  180. #define VERSION "3.7.0"
  181.  
  182. void SaveAndRestoreDevice(GDHandle device);
  183.  
  184. void main(void)
  185. {
  186.     StackGrow(30000L+MAX_SCREENS*sizeof(VideoInfo));
  187.     Require(gestaltOriginalQD);
  188.     TimeVideo();
  189. }
  190.  
  191. void TimeVideo(void)
  192. {
  193.     long system;
  194.     static unsigned long v[256],colorMax;
  195.     FILE *o[2],*dataFile;
  196.     int newDataFile;
  197.     unsigned long time;
  198.     Str255 todayStr;
  199.     int i,j,d,error;
  200.     int cards,width,height;
  201.     int quickly,isGray,doTest,ok;
  202.     Rect r,screenRect;
  203.     WindowPtr window;
  204.     short doVisualTests,flags;
  205.     VideoInfo *card;
  206.     Handle rsrc;
  207.     int rsrcFile;
  208.     static char string[999],datafilename[]="TimeVideo results";
  209.     long value;
  210.     Boolean displayMgrOk,slotMgrPresent,testMultipleResolutions;
  211.     SpBlock spBlock;
  212.     
  213.     assert(StackSpace()>5000);
  214.     MaximizeConsoleHeight();
  215.     #if (THINK_C || THINK_CPLUS)
  216.         console_options.title="\pTimeVideo";
  217.     #endif
  218.     printf("\n");    // ask THINK C to initialize quickdraw
  219.     GetDateTime(&time);
  220.     srand(time);
  221.     srandU(time);
  222.     sprintf(string,"Welcome to TimeVideo " VERSION "\n\n"
  223.     "This program will thoroughly test all your video devices and save the "
  224.     "results in the text file “%s”. Don’t be alarmed by the strange "
  225.     "antics of your screens. Everything will soon be back to normal. Just sit back "
  226.     "and enjoy the show.",datafilename);
  227.     sprintf(string,"%s You may quit at any time by hitting Command-period.\n",string);
  228.     printf(BreakLines(string,78));
  229.     if(1)printf(BreakLines("\n"
  230.         "TimeVideo times everything: the video frames, interrupts, and cluts. And it "
  231.         "determines what fraction of the screen you can fill with a real-time movie shown "
  232.         "by CopyBits() or CopyBitsQuickly(). Then it does write-then-read tests of the "
  233.         "clut, to make sure the video hardware and software "
  234.         "are working correctly.\n",78));
  235.     doVisualTests=Choose(1,"\nWould you like the testing to pause for visual inspections?\n",noYes,2);
  236.     value=0;
  237.     Gestalt(gestaltDisplayMgrAttr,&value);
  238.     displayMgrOk=value&(1<<gestaltDisplayMgrPresent);
  239.     if(displayMgrOk)
  240.         testMultipleResolutions=Choose(0,"Test multiple resolutions of each display?\n",noYes,2);
  241.     else testMultipleResolutions=0;
  242.  
  243.     printf("\n");
  244.     dataFile=fopen(datafilename,"r");
  245.     newDataFile=(dataFile==NULL);
  246.     if(newDataFile){
  247.         // try to copy SimpleText style resource from TimeVideo application into our document.
  248.         rsrc=GetResource('styl',128);
  249.         if(rsrc!=NULL){
  250.             c2pstr(datafilename);
  251.             CreateResFile((unsigned char *)datafilename);
  252.             rsrcFile=OpenResFile((unsigned char *)datafilename);
  253.             p2cstr((unsigned char *)datafilename);
  254.             if(rsrcFile!=-1){
  255.                 DetachResource(rsrc);
  256.                 UseResFile(rsrcFile);
  257.                 AddResource(rsrc,'styl',128,(ConstStr255Param)"/pTimeVideo report style");
  258.                 CloseResFile(rsrcFile);
  259.             }else ReleaseResource(rsrc);
  260.         }
  261.     }else fclose(dataFile);
  262.     o[0]=stdout;
  263.     o[1]=dataFile=fopen(datafilename,"a");    /* Append to data file */
  264.     if(dataFile==NULL){
  265.         printf("Could neither open nor create “%s”. Perhaps your disk is locked.\n"
  266.             ,datafilename);
  267.         newDataFile=0;
  268.     }
  269.     if(newDataFile){
  270.         SetFileInfo(datafilename,'TEXT','ttxt');
  271.         fprintf(dataFile,BreakLines(
  272.         "This file reports the timing and accuracy of all your video screens, "
  273.         "as measured by TimeVideo, a component of the VideoToolbox. "
  274.         "TimeVideo runs on all Macs, requiring only System 6.05 or better. To quickly "
  275.         "test a large number of computers, run TimeVideo from a floppy disk; "
  276.         "all the results will accumulate in a single results file.\n"
  277.         "\nTHE VIDEO TOOLBOX\n"
  278.         "The VideoToolbox is a collection of two hundred C subroutines and "
  279.         "several demo and utility programs that I and others have written to do "
  280.         "visual psychophysics with Macintosh computers. It is fully compatible "
  281.         "with 680x0 and PowerPC Macs and with Metrowerks CodeWarrior C 5 and "
  282.         "Symantec THINK C 7 compilers. It's free and may not be sold without "
  283.         "permission. It should be useful to anyone who wants to present "
  284.         "accurately specified visual stimuli or use the Mac for psychometric "
  285.         "experiments. The text file \"Video synch\" discusses all the ways of "
  286.         "synchronizing programs to video displays and the many pitfalls to avoid. "
  287.         "The TimeVideo application checks out the timing of all video devices in "
  288.         "anticipation of their use in critical real-time applications, e.g. "
  289.         "movies or lookup table animation. Low-level routines control video "
  290.         "timing and lookup tables, display real-time movies, and implement the "
  291.         "luminance-control algorithms suggested by Pelli and Zhang (1991). (D.G. "
  292.         "Pelli and L. Zhang, 1991, \"Accurate control of contrast on "
  293.         "microcomputer displays.\" Vision Research, 31, 1337-1350. Reprints are "
  294.         "available.) In particular, GetPixelsQuickly and SetPixelsQuickly peek "
  295.         "and poke pixels in bitmaps and pixmaps, CopyBitsQuickly and CopyWindows "
  296.         "faithfully copy between bit/pixmaps and the screen, WindowToEPS saves an "
  297.         "image to disk, for later printing or incorporation into a document, and "
  298.         "SetEntriesQuickly and GDSetEntries load the screen's color lookup table, "
  299.         "all without any of QuickDraw's color translations. High-level routines "
  300.         "help analyze psychophysical experiments (e.g. graphing or "
  301.         "maximum-likelihood fitting of psychometric data). Assign.c is a runtime "
  302.         "C interpreter for C assignment statements, which is useful for "
  303.         "controlling experiments and sharing calibration data. "
  304.         "Many of the routines are Mac-specific, but some very "
  305.         "useful routines, e.g. the luminance-control, statistics, "
  306.         "maximum-likelihood fitting algorithms, and the runtime interpreter are "
  307.         "written in Standard C and will work on any computer. "
  308.         "Documentation is in the source files themselves. "
  309.         "This collection has been continually updated since 1991. "
  310.         "You can download the latest version of "
  311.         "\"video-toolbox\" from a public archive, e.g.:\n"
  312.         "ftp://sumex-aim.stanford.edu/info-mac/dev/src/\n"
  313.         "ftp://mirrors.aol.com/pub/info-mac/dev/src/\n"
  314.         "ftp://grind.isca.uiowa.edu/mac/infomac/dev/src/\n"
  315.         "ftp://ftp.uu.net/archive/systems/mac/info-mac/dev/src/\n"
  316.         "ftp://amug.org/pub/ftp1/info-mac/dev/src/\n"
  317.         "ftp://wuarchive.wustl.edu/systems/mac/info-mac/dev/src/\n"
  318.         "ftp://src.doc.ic.ac.uk/packages/mac/info-mac/dev/src/\n"
  319.         "ftp://ftp.stolaf.edu/pub/macpsych/\n"
  320.         "CompuServe://MacDev forum/Library 4 \"C and Pascal\"/VIDEOT.SEA\n"
  321.         "Or you can request a file by email; for instructions send a query to "
  322.         "Info-Mac-Request@sumex-aim.stanford.edu."
  323.         "\n\nTo get future versions automatically, just send me your name and email address. "
  324.         "Each time I post a new version of the VideoToolbox to the Info-Mac "
  325.         "Archives, I email a copy to everyone on the subscription list; there are "
  326.         "currently over one hundred subscribers.\n",78));
  327.     fprintf(dataFile,
  328.         "Denis Pelli, denis@xp.psych.nyu.edu\n"
  329.         "Until July, 1995: Institute for Sensory Research, Syracuse University, "
  330.         "Syracuse, NY 13244-5290, USA.\n"
  331.         "Thereafter: Department of Psychology, New York University, "
  332.         "6 Washington Place, New York, NY 10003, USA\n"
  333.         "\n");
  334.     fprintf(dataFile,BreakLines(
  335.         "\nTIME VIDEO\n"
  336.         "For each video card, TimeVideo measures the video frame rate, frequency of VBL "
  337.         "interrupts (ought to be one per frame), how long it takes to load the clut "
  338.         "(ought to be one frame or less), "
  339.         "and how much of the screen you can fill with a real-time one-image-per-frame "
  340.         "movie shown by CopyBits() or CopyBitsQuickly(). It then performs a random "
  341.         "write-then-read test of the Color Lookup Table (clut). This tests the clut "
  342.         "memory hardware and the software used to write and read the clut. We test "
  343.         "writing by GDSetEntries(), which makes a cscSetEntries call to the video driver, and, "
  344.         "if possible, we also test writing by SetEntriesQuickly(), which accesses the hardware "
  345.         "directly. (SetEntriesQuickly supports only a few video cards.) "
  346.         "In either case, the clut is read by GDGetEntries, "
  347.         "which makes a cscGetEntries call to the video driver. "
  348.         "The testing is thorough; many video devices fail "
  349.         "at least part of the test. All the driver errors uncovered to date appear in the "
  350.         "VideoToolbox \"Video bugs\" text file, and have been reported to the video card's "
  351.         "manufacturer. Add your results by emailing this file to "
  352.         "denis@xp.psych.nyu.edu\n"
  353.         "\nHappily, we don't know of any cases of errors in cscSetEntries itself, "
  354.         "and we've never run across a hardware failure of the CLUT memory. "
  355.         "Our experience is that errors in the cscSetEntries/cscGetEntries write-then-read "
  356.         "test of the CLUT occur in two ways: "
  357.         "\n1. The driver does not implement cscSetGamma and the fixed gamma table is "
  358.         "not the identity transformation, i.e. \"uncorrected gamma table\". "
  359.         "TimeVideo always calls cscSetGamma, requesting an identity transform. "
  360.         "In all drivers, the RGB values supplied in a cscSetEntries call "
  361.         "are transformed by the gamma table before being loaded into the CLUT. "
  362.         "The presence of a non-identity "
  363.         "gamma table is usually obvious from a glance at the color matrix, since the gains "
  364.         "in the matrix will exceed 1 by about twice the fractional rms error indicated by ±%%. "
  365.         "\n2. The CLUT is set correctly, but the driver incorrectly implements cscGetEntries. "
  366.         "Bugs in cscGetEntries are usually obvious from a glance at the color matrix, "
  367.         "e.g. nonzero gains off the diagonal, or the pattern of errors.\n"
  368.         "\nErrors reported by TimeVideo are usually due to bugs in the video driver software "
  369.         "in the ROM of the video card (or built-in video device). If the bug will "
  370.         "interfere with your experiments, "
  371.         "then to use the card (or built-in video) you must either fix/replace the driver or "
  372.         "bypass the driver, using SetEntriesQuickly to access the hardware directly "
  373.         "(if SetEntriesQuickly supports it). "
  374.         "I suggest that you try replacing the driver, because this will keep your "
  375.         "software hardware-independent. The VideoToolbox \"Video synch\" document explains "
  376.         "how to fix the the Mac IIci video driver, patching or replacing the buggy version "
  377.         "0 .Display_Video_Apple_RBV1 driver by copying the bug-free version 1 of the same "
  378.         "driver from the Mac IIsi. It is very likely that an analogous approach "
  379.         "could be used to fix/replace the buggy version 0, 1, and 2 .Display_Video_Apple_DAFB "
  380.         "drivers in the Quadra 700, 750, and 900, by the bug-free version 3 or 5 of that driver "
  381.         "in the Centris 650 or the LC 475. And please report your bugs; the bug-free revised drivers "
  382.         "are probably the result of our past bug reports.\n"
  383.         "\nGLOSSARY\n"
  384.         "A video frame is a complete refresh of your video screen. (With interlacing it takes "
  385.         "two fields to do a complete refresh, i.e. a frame, but graphics displays usually are "
  386.         "not interlaced and have a single field per frame.) To show a movie, you will want "
  387.         "to reload the image once per frame; the table shows how big that image can be, "
  388.         "as a fraction of the screen area, and still be reloaded once per frame. "
  389.         "(Some video cards have multiple video \"pages\"--call GDGetPageCnt()--that "
  390.         "can be switched by calling GDSetPageDrawn() and GDSetPageShown().) "
  391.         "A \"VBL\" "
  392.         "interrupt is produced by your video card, nominally once per frame, but "
  393.         "some video cards produce more, which is poor, but not serious. (The "
  394.         "VBLInstall.c program will deal with it.) Suppressed interrupts during clut "
  395.         "updates are bad. It means that the driver disables the VBL interrupt for too "
  396.         "long while it's loading the clut. This will throw off any interrupt-based "
  397.         "attempt to count frames. (The clut is the color lookup table of your video card.) "
  398.         "Lookup table animation, e.g. for temporal modulation of contrast, requires that "
  399.         "you reload the clut once per frame, so it's very important that this be fast "
  400.         "enough. "
  401.         "The first call to SetEntriesQuickly() for each device is slow--a cache is "
  402.         "filled; the reported times are for subsequent calls. "
  403.         "Each video card can be in \"Color\" or \"Gray\" mode, as set by the Control "
  404.         "Panel:Monitors or the Macintosh Toolbox call SetDepth(). "
  405.         "In \"Gray\" mode all colors are transformed to luminance-equivalent "
  406.         "grays. This is done by the video driver, when loading the clut, "
  407.         "but only if the pixelSize≤8. "
  408.         "TimeVideo does a linear regression on the results of write-then-read tests of the CLUT "
  409.         "to measure the driver's color transformation matrix. It reports the matrix "
  410.         "if it is other than the identity transformation:\n"
  411.         "(ROut) (1 0 0) (RIn)\n"
  412.         "(GOut)=(0 1 0)x(GIn)\n"
  413.         "(BOut) (0 0 1) (BIn)\n"
  414.         "The clut tests try loading the clut serially, one entry at a time, and "
  415.         "all at once; some video drivers fail the serial test. For more explanation see "
  416.         "the text file called \"Video synch\" on the VideoToolbox disk.\n"
  417.         "\n"
  418.         "\"cscSetEntries ... NAN ... frames\"= the driver refuses to load the CLUT.\n" 
  419.         "\"ok\"= passed all tests.\n"
  420.         "\"!gray\"= passed the color test, but is supposed to be in gray mode.\n"
  421.         "\"!color\"= passed the gray test, but is supposed to be in color mode.\n"
  422.         "\"!serial\"= passed when loaded all at once, but failed when loaded serially.\n"
  423.         "\"bad\"= read did not equal write and the error is reported explicitly.\n"
  424.         "We know that SetEntriesQuickly is \"!serial\" on the Quadra, alas.\n"
  425.         "\nThis is a SimpleText document using the Monaco font to line up the \n"
  426.         "columns properly.\n\n",78));
  427.     }
  428.     ffprintf(o,"TimeVideo version " VERSION "\n");
  429.     GetDateTime(&time);
  430.     IUDateString(time,longDate,todayStr);
  431.     ffprintf(o,"%s.\n",p2cstr(todayStr));
  432.     ffprintf(o,"%s\n",IdentifyCompiler());
  433.  
  434.     // Timer.c requires the Revised Time Manager, which appeared in System 6.0.3.
  435.     // SetDepth() is part of the "new" Palette Manager, which appeared in System 6.0.5.
  436.     Gestalt(gestaltSystemVersion,&system);
  437.     if(system<0x605)PrintfExit("Sorry. Your System is too old; I need at least System 6.0.5.\n");
  438.     card=(VideoInfo *)NewPtrClear(MAX_SCREENS*sizeof(*card));
  439.     if(card==NULL)PrintfExit("Need more memory. "
  440.         "Use Finder's File:Get Info to increase TimeVideo's allocation.\n");
  441.     ffprintf(o,"%s\n",BreakLines(IdentifyMachine(),78));
  442.     ffprintf(o,"Tick rate is %.1f Hz.",TickRate());
  443.     ffprintf(o," System-based VBL rate is %.1f Hz.\n",GDFrameRate(NULL));
  444.     if(QD8Exists())_atexit(RestoreCluts);// In case user quits prematurely.
  445.     if(TrapAvailable(_SlotManager))slotMgrPresent=(SVersion(&spBlock)==noErr);
  446.     else slotMgrPresent=0;
  447.     spBlock.spSlot=0;
  448.     spBlock.spID=0;
  449.     for(i=0;;i++){
  450.         if(QD8Exists()){
  451.             if(testMultipleResolutions){ // index through the display modes, one by one
  452.                 unsigned long currentDisplayModeID,depthModeUL,switchFlags;
  453.                 Boolean modeOk;
  454.                 unsigned long horizontalPixels,verticalLines;    // not used
  455.                 Fixed refreshRate;                                // not used
  456.                 unsigned short maxDepthMode;                    // not used
  457.                 static int deviceCounter=0;
  458.                 static unsigned long displayModeID=kDisplayModeIDFindFirstResolution;
  459.             
  460.                 if(slotMgrPresent){                    
  461.                     spBlock.spExtDev=0;
  462.                     spBlock.spHwDev=0;
  463.                     spBlock.spCategory=catDisplay;
  464.                     spBlock.spCType=typeVideo;
  465.                 }
  466.             nextDisplayModeID:
  467.                 if(slotMgrPresent){
  468.                     // use slot manager to find every driver displayModeID
  469.                     spBlock.spTBMask=3;        // ignore DrvrHW and DrvrSW
  470.                     spBlock.spParamData=1;    // next resource, any slot, whether enabled or disabled
  471.                     error=SGetTypeSRsrc(&spBlock);
  472.                     if(error){
  473.                         // done
  474.                         SaveAndRestoreDevice(NULL);
  475.                         break;
  476.                     }
  477.                     displayModeID=(unsigned char)spBlock.spID;    // "resource reference number"
  478.                     if(spBlock.spRefNum==0){
  479.                         spBlock.spTBMask=2;        // ignore DrvrSW
  480.                         spBlock.spParamData=2;    // find enabled resource in same slot with same DrvrHW
  481.                         spBlock.spID=0;
  482.                         error=SGetTypeSRsrc(&spBlock);
  483.                         if(error)goto nextDisplayModeID;
  484.                         spBlock.spID=displayModeID;    // restore
  485.                     }
  486.                     card[i].device=GetDeviceByRefNum(spBlock.spRefNum);
  487.                     SaveAndRestoreDevice(card[i].device);
  488.                     if(card[i].device==NULL)goto nextDisplayModeID;
  489.                 }else{
  490.                     // PCI bus: use new driver calls to test each displayModeID of each driver
  491.                     card[i].device=GetScreenDevice(deviceCounter);
  492.                     SaveAndRestoreDevice(card[i].device);
  493.                     if(card[i].device==NULL)break;    // no more video devices; go home.
  494.                     error=GDGetNextResolution(card[i].device,displayModeID
  495.                         ,&displayModeID,&horizontalPixels,&verticalLines
  496.                         ,&refreshRate,&maxDepthMode);
  497.                     if(error || displayModeID==kDisplayModeIDNoMoreResolutions
  498.                         || displayModeID==kDisplayModeIDInvalid){
  499.                         deviceCounter++;
  500.                         displayModeID=kDisplayModeIDFindFirstResolution;
  501.                         // error merely indicates that driver doesn't support the Display Manager
  502.                         if(error)goto testDeviceAnyway;
  503.                         goto nextDisplayModeID;
  504.                     }
  505.                 }
  506.                 error=DMCheckDisplayMode(card[i].device,displayModeID,firstVidMode,&switchFlags,0,&modeOk);
  507.                 if(!modeOk)goto nextDisplayModeID;
  508.                 error=GDGetDisplayMode(card[i].device,¤tDisplayModeID,NULL,NULL,NULL);
  509.                 if(error || currentDisplayModeID!=displayModeID){
  510.                     depthModeUL=firstVidMode;
  511.                     error=DMSetDisplayMode(card[i].device,displayModeID,&depthModeUL,0,NULL);
  512.                     if(error==kDMDriverNotDisplayMgrAwareErr)goto testDeviceAnyway;
  513.                     if(error)goto nextDisplayModeID;
  514.                 }
  515.             testDeviceAnyway:;
  516.             }else{
  517.                 // index through the video devices
  518.                 card[i].device=GetScreenDevice(i);
  519.                 SaveAndRestoreDevice(card[i].device);
  520.                 if(card[i].device==NULL)break;
  521.             }
  522.         }else card[i].device=NULL;
  523.         ffprintf(o,"\n%s\n",BreakLines(IdentifyVideo(card[i].device),78));
  524.         printf("Getting card info. . ." "\r");
  525.         error=GDInfo(&card[i]);
  526.         
  527.         // Specify what tests we want.
  528.         for(d=0;d<6;d++)for(quickly=0;quickly<2;quickly++)for(isGray=0;isGray<2;isGray++){
  529.             card[i].depth[d].clut[quickly][isGray].read.doTest=1;
  530.         }
  531.         if(card[i].device!=NULL)isGray=!TestDeviceAttribute(card[i].device,gdDevType);
  532.         else isGray=0;
  533.         // Further test deepest directType and clutType modes
  534.         d=5;
  535.         while(card[i].depth[d].pixelSize>=0 && card[i].depth[d].pixelSize<16)d--;
  536.         if(d>=0)for(quickly=0;quickly<2;quickly++){
  537.             int notIsGray=!isGray;
  538.             card[i].depth[d].clut[quickly][isGray].hash.doTest=doVisualTests;
  539.             card[i].depth[d].clut[quickly][notIsGray].read.doTest=1;
  540.         }
  541.         d=3;
  542.         while(card[i].depth[d].pixelSize==0 || card[i].depth[d].pixelSize>8)d--;
  543.         if(d>=0)for(quickly=0;quickly<2;quickly++){
  544.             int notIsGray=!isGray;
  545.             card[i].depth[d].clut[quickly][isGray].hash.doTest=doVisualTests;
  546.             card[i].depth[d].clut[quickly][notIsGray].read.doTest=1;
  547.         }
  548.  
  549.         // Open window
  550.         if(QD8Exists()){
  551.             r=screenRect=(*card[i].device)->gdRect;
  552.         }else{
  553.             CopyQuickDrawGlobals();    // make sure qd is valid.
  554.             r=screenRect=qd.screenBits.bounds;
  555.         }
  556.         OffsetRect(&r,-r.left,-r.top);
  557.         width=(r.right/=3);
  558.         if(width>256)width=r.right=256;
  559.         height=r.bottom=width;
  560.         CenterRectInRect(&r,&screenRect);
  561.         if(QD8Exists())window=(WindowPtr)NewCWindow(NULL,&r,"\pCLUT Colors",TRUE,noGrowDocProc,(WindowPtr) -1L,0,0);
  562.         else window=NewWindow(NULL,&r,"\pTesting",TRUE,noGrowDocProc,(WindowPtr) -1L,0,0);
  563.             
  564.         for(d=0;d<6;d++)for(isGray=0;isGray<2;isGray++){
  565.             if(card[i].depth[d].pixelSize==0)continue;
  566.             doTest=0;
  567.             for(quickly=0;quickly<2;quickly++){
  568.                 doTest|=card[i].depth[d].clut[quickly][isGray].read.doTest;
  569.                 doTest|=card[i].depth[d].clut[quickly][isGray].hash.doTest;
  570.                 doTest|=card[i].depth[d].clut[quickly][isGray].visual.doTest;
  571.             }
  572.             if(!doTest)continue;
  573.             if(card[i].device!=NULL){
  574.                 if(card[i].depth[d].mode!=(**card[i].device).gdMode
  575.                     || isGray!=!TestDeviceAttribute(card[i].device,gdDevType)){
  576.                     // On Mac IIci, Sys 6.07, HasDepth returns "mode" of 0x100 
  577.                     // at all legal depths.
  578.                     if(card[i].depth[d].pixelSize>0)
  579.                         ok=HasDepth(card[i].device,card[i].depth[d].pixelSize,1,!isGray);
  580.                     else ok=1;
  581.                     // Mac IIci Sys 6.07: SetDepth only accepts mode, not pixelSize.
  582.                     if(ok)error=SetDepth(card[i].device,card[i].depth[d].mode,1,!isGray);
  583.                     if(card[i].depth[d].mode!=(**card[i].device).gdMode
  584.                         || isGray!=!TestDeviceAttribute(card[i].device,gdDevType))continue;
  585.                 }
  586.             }else if(card[i].depth[d].pixelSize!=1 || isGray)continue;
  587.             GDInfo(&card[i]);
  588.             
  589.             // Fill window with spectrum of all colors.
  590.             colorMax=GDColors(card[i].device)-1;
  591.             for(j=0;j<width;j++)v[j]=(j*colorMax+width/2)/(width-1);
  592.             for(j=0;j<height;j++)SetWindowPixelsQuickly(window,0,j,v,width);
  593.             
  594.             if(!card[i].depth[d].timeTested){
  595.                 error=GDInfoTime(&card[i]);
  596.                 for(j=0;j<height;j++)SetWindowPixelsQuickly(window,0,j,v,width);//refresh
  597.             }
  598.             for(quickly=0;quickly<2;quickly++){
  599.                 printf(BLANKLINE);
  600.                 printf("%d-bit %s pixels: testing clut: %s . . ." "\r"
  601.                     ,(int)card[i].depth[d].pixelSize,colorGrayString[isGray]
  602.                     ,setEntriesString[quickly]);
  603.                 if(quickly)flags=testClutQuicklyFlag;
  604.                 else flags=0;
  605.                 error=GDTestClut(o,flags,&card[i]);
  606.                 error=GDTestClut(o,flags|testClutSeriallyFlag,&card[i]);
  607.                 error=GDTestClutHash(flags,&card[i]);
  608.             }
  609.         }
  610.         DisposeWindow(window);
  611.         if(QD8Exists()){
  612.             // On Mac IIci, Sys 6.07, HasDepth returns "mode" of 0x100 at all legal depths.
  613.             // and SetDepth only accepts mode, not depth.
  614. //            ok=HasDepth(card[i].device,oldPixelSize,1,oldIsColor);
  615. //            if(ok)error=SetDepth(card[i].device,oldDepthMode,1,oldIsColor);
  616.         }
  617.         printf(BLANKLINE);
  618.         printf("Getting card info. . ." "\r");
  619.         error=GDInfo(&card[i]);
  620.         printf(BLANKLINE);
  621.         PrintVideoInfo(o,&card[i]);
  622.         if(dataFile!=NULL)fflush(dataFile);
  623.         if(kbhit())getcharUnbuffered();    // Give console a chance to detect Command-.
  624.         if(!QD8Exists())break;
  625.     }
  626.     cards=i;
  627.     if(GDVersion(card[i].device)==100
  628.         && EqualString("\p.Display_Video_Apple_RBV1",GDName(card[i].device),1,1)){
  629.             ffprintf(o,
  630.             "NOTE: the built-in driver in the Mac IIci (.Display_Video_Apple_RBV1 version 0)\n"
  631.             "has a bug that causes it to crash if you attempt to read the clut. A temporary\n"
  632.             "patch has been applied that has fixed the driver until the next reboot, as\n"
  633.             "explained in the VideoToolbox file \"Video synch\".\n");
  634.     }
  635.     if(dataFile!=NULL){
  636.         fprintf(dataFile,"\n\n");
  637.         fclose(dataFile);
  638.         sprintf(string,"\nThe text file \"%s\" explains all the results.\n",datafilename);
  639.         printf(BreakLines(string,78));
  640.     }
  641.     DisposePtr((Ptr)card);
  642. }
  643.  
  644. void PrintVideoInfo(FILE *o[2],VideoInfo *card)
  645. {
  646.     short i,d,tested,quickly,isGray,grayClut,reportRGB;
  647.     char string[100];
  648.     static char s1[]="%-33s",s2[]="%6s",s3[]="  %-9s\n";
  649.     VideoCardClutTest *clut;
  650.     
  651.     if(card->device!=NULL)isGray=!TestDeviceAttribute(card->device,gdDevType);
  652.     else isGray=0;
  653.     ffprintf(o,"%d-bit dacs. ",(int)card->dacSize);
  654.     ffprintf(o,"%dx%d pixels. ",(int)card->width,(int)card->height);
  655. //    ffprintf(o,"%s mode. ",ColorGrayString[isGray]);
  656.     ffprintf(o,"\n");
  657.  
  658.     if(card->basicTested){
  659.         ffprintf(o,s1,"pixel size");
  660.         for(d=0;d<6;d++)if(card->depth[d].pixelSize){
  661.             sprintf(string,"%d   ",(int)card->depth[d].pixelSize);
  662.             ffprintf(o,s2,string);
  663.         }
  664.         ffprintf(o,s3,"bits");
  665.     
  666.         if(QD8Exists()){
  667.             // I haven't tried to look for 1-bit QD's page swapping scheme
  668.             ffprintf(o,s1,"pages");
  669.             for(d=0;d<6;d++)if(card->depth[d].pixelSize){
  670.                 sprintf(string,"%d   ",(int)card->depth[d].pages);
  671.                 ffprintf(o,s2,string);
  672.             }
  673.             ffprintf(o,s3,"");
  674.     
  675.             // Meaningless in 1-bit QD
  676.             ffprintf(o,s1,"mode");
  677.             for(d=0;d<6;d++)if(card->depth[d].pixelSize){
  678.                 sprintf(string,"0x%x ",card->depth[d].mode);
  679.                 ffprintf(o,s2,string);
  680.             }
  681.             ffprintf(o,s3,"");
  682.         }
  683.     }
  684.  
  685.     if(card->timeTested){
  686.         ffprintf(o,s1,"frame rate");
  687.         for(d=0;d<6;d++)if(card->depth[d].pixelSize){
  688.             sprintf(string,"%.1f ",card->depth[d].frameRate);
  689.             ffprintf(o,s2,string);
  690.         }
  691.         ffprintf(o,s3,"Hz");
  692.     
  693.         ffprintf(o,s1,"interrupts per frame");
  694.         for(d=0;d<6;d++)if(card->depth[d].pixelSize){
  695.             sprintf(string,"%.1f ",card->depth[d].vblPerFrame);
  696.             ffprintf(o,s2,string);
  697.         }
  698.         ffprintf(o,s3,"");
  699.     
  700.         ffprintf(o,s1,"CopyBits movie size");
  701.         for(d=0;d<6;d++)if(card->depth[d].pixelSize){
  702.             sprintf(string,"%.2f",card->depth[d].movieRate/card->depth[d].frameRate);
  703.             ffprintf(o,s2,string);
  704.         }
  705.         ffprintf(o,s3,"screen");
  706.     
  707.         ffprintf(o,s1,"CopyBitsQuickly movie size");
  708.         for(d=0;d<6;d++)if(card->depth[d].pixelSize){
  709.             sprintf(string,"%.2f",card->depth[d].movieRateQuickly/card->depth[d].frameRate);
  710.             ffprintf(o,s2,string);
  711.         }
  712.         ffprintf(o,s3,"screen");
  713.     
  714.         ffprintf(o,s1,"CopyBits data rate");
  715.         for(d=0;d<6;d++)if(card->depth[d].pixelSize){
  716.             sprintf(string,"%.2f",card->depth[d].movieRate
  717.                 *card->depth[d].pixelSize
  718.                 *card->width*card->height/8./1024./1024.);
  719.             ffprintf(o,s2,string);
  720.         }
  721.         ffprintf(o,s3,"MB/s");
  722.     
  723.         ffprintf(o,s1,"CopyBitsQuickly data rate");
  724.         for(d=0;d<6;d++)if(card->depth[d].pixelSize){
  725.             sprintf(string,"%.2f",card->depth[d].movieRateQuickly
  726.                 *card->depth[d].pixelSize
  727.                 *card->width*card->height/8./1024./1024.);
  728.             ffprintf(o,s2,string);
  729.         }
  730.         ffprintf(o,s3,"MB/s");
  731.     }
  732.     
  733.     if(card->device!=NULL && (**card->device).gdType!=fixedType && card->timeTested){
  734.         ffprintf(o,s1,"cscSetEntries duration");
  735.         for(d=0;d<6;d++)if(card->depth[d].pixelSize){
  736.             sprintf(string,"%.2f",card->depth[d].framesPerClutUpdate);
  737.             ffprintf(o,s2,string);
  738.         }
  739.         ffprintf(o,s3,"frames");
  740.  
  741.         ffprintf(o,s1,"cscSetEntries suppresses ints. for");
  742.         for(d=0;d<6;d++)if(card->depth[d].pixelSize){
  743.             sprintf(string,"%.1f ",card->depth[d].missingFramesPerClutUpdate);
  744.             ffprintf(o,s2,string);
  745.         }
  746.         ffprintf(o,s3,"frames");
  747.  
  748.         ffprintf(o,s1,"GDSetEntriesHighPriority duration");
  749.         for(d=0;d<6;d++)if(card->depth[d].pixelSize){
  750.             sprintf(string,"%.2f",card->depth[d].framesPerClutUpdateHighPriority);
  751.             ffprintf(o,s2,string);
  752.         }
  753.         ffprintf(o,s3,"frames");
  754.  
  755.         if(card->setEntriesQuickly){
  756.             ffprintf(o,s1,"SetEntriesQuickly duration");
  757.             for(d=0;d<6;d++)if(card->depth[d].pixelSize){
  758.                 sprintf(string,"%.2f",card->depth[d].framesPerClutUpdateQuickly);
  759.                 ffprintf(o,s2,string);
  760.             }
  761.             ffprintf(o,s3,"frames");
  762.         }
  763.     }
  764.     if(card->device!=NULL && (**card->device).gdType!=fixedType && card->clutTested){
  765.         for(quickly=0;quickly<2;quickly++)for(isGray=0;isGray<2;isGray++){
  766.             tested=0;
  767.             for(d=0;d<6;d++)if(card->depth[d].pixelSize)
  768.                 if(card->depth[d].clut[quickly][isGray].hash.tested)tested=1;
  769.             if(tested){
  770.                 sprintf(string,"%s hash inspection",setEntriesString[quickly]);
  771.                 ffprintf(o,s1,string);
  772.                 for(d=0;d<6;d++)if(card->depth[d].pixelSize){
  773.                     clut=&card->depth[d].clut[quickly][isGray];
  774.                     if(clut->hash.tested){
  775.                         if(clut->hash.errors)
  776.                             sprintf(string,"fail");
  777.                         else sprintf(string,"ok");
  778.                     }else sprintf(string,"");
  779.                     ffprintf(o,s2,string);
  780.                 }
  781.                 ffprintf(o,s3,"");
  782.             }
  783.         }
  784.     
  785.         for(quickly=0;quickly<2;quickly++)for(isGray=0;isGray<2;isGray++){
  786.             tested=0;
  787.             for(d=0;d<6;d++)if(card->depth[d].pixelSize)
  788.                 if(card->depth[d].clut[quickly][isGray].read.tested)tested=1;
  789.             if(tested){
  790.                 reportRGB=0;
  791.                 sprintf(string,"%s: %s test"
  792.                     ,colorGrayString[isGray],setEntriesString[quickly]);
  793.                 ffprintf(o,s1,string);
  794.                 for(d=0;d<6;d++)if(card->depth[d].pixelSize){
  795.                     clut=&card->depth[d].clut[quickly][isGray];
  796.                     grayClut=isGray && card->depth[d].pixelSize<=8;
  797.                     if(clut->read.tested){
  798.                         if(clut->read.errors){
  799.                             if(clut->read.errorsAtOnce)sprintf(string,"bad");
  800.                             else sprintf(string,"!serial");
  801.                         }else if(grayClut!=clut->read.identity)sprintf(string,"ok");
  802.                         else sprintf(string,"!%s",colorGrayString[grayClut]);
  803.                     }else sprintf(string,"");
  804.                     ffprintf(o,s2,string);
  805.                     if(card->depth[d].pixelSize<=8)reportRGB=!clut->read.identity;
  806.                 }
  807.                 ffprintf(o,s3,"");
  808.                 if(reportRGB)ReportRGBGains(o,quickly,isGray,card);
  809.             }
  810.     
  811.             tested=0;
  812.             for(d=0;d<6;d++)if(card->depth[d].pixelSize)
  813.                 if(card->depth[d].clut[quickly][isGray].visual.tested)tested=1;
  814.             if(tested){
  815.                 sprintf(string,"%s visual inspection",setEntriesString[quickly]);
  816.                 ffprintf(o,s1,string);
  817.                 for(d=0;d<6;d++)if(card->depth[d].pixelSize){
  818.                     clut=&card->depth[d].clut[quickly][isGray];
  819.                     if(clut->visual.tested){
  820.                         if(clut->visual.errors){
  821.                             if(!clut->visual.errorsAtOnce)sprintf(string,"!serial");
  822.                             else sprintf(string,"bad");
  823.                         }else sprintf(string,"ok");
  824.                     }else sprintf(string,"");
  825.                     ffprintf(o,s2,string);
  826.                 }
  827.                 ffprintf(o,s3,"");
  828.             }
  829.         }
  830.     }
  831.     for(i=0;i<2;i++)if(o[i]!=NULL)fflush(o[i]);    // Save to disk, just in case.
  832. }
  833.  
  834. // Print a 3x3 color matrix representing a best fit to the observed relation between
  835. // the colors we read and the colors we write.
  836. void ReportRGBGains(FILE *o[2],Boolean quickly,Boolean isGray,VideoInfo *card)
  837. {
  838.     short j,k,d,depths;
  839.     VideoCardClutTest *clut;
  840.     double rgbGain[3][3],rgbError[3];
  841.     Boolean integralGains,bad;
  842.  
  843.     depths=0;
  844.     for(j=0;j<3;j++){
  845.         for(k=0;k<3;k++)rgbGain[j][k]=0.;
  846.         rgbError[j]=0.0;
  847.     }
  848.     integralGains=1;
  849.     for(d=0;d<6;d++)if(card->depth[d].pixelSize && card->depth[d].pixelSize<=8){
  850.         clut=&card->depth[d].clut[quickly][isGray];
  851.         bad=0;
  852.         for(j=0;j<3;j++)bad|=clut->read.rgbError[j]>2.0*(1<<(16-4));
  853.         if(bad)continue;
  854.         for(j=0;j<3;j++){
  855.             for(k=0;k<3;k++)rgbGain[j][k]+=clut->read.rgbGain[j][k];
  856.             rgbError[j]+=clut->read.rgbError[j];
  857.         }
  858.         depths++;
  859.     }
  860.     for(j=0;j<3;j++){
  861.         for(k=0;k<3;k++){
  862.             rgbGain[j][k]/=depths;
  863.             integralGains&=(rgbGain[j][k]==floor(rgbGain[j][k]));
  864.         }
  865.         rgbError[j]/=depths;
  866.     }
  867.     if(IsFinite(rgbGain[0][0]))for(j=0;j<3;j++){
  868.         ffprintf(o," (%cOut±%4.1f%%)%c"
  869.             ,"RGB"[j],rgbError[j]*100./USHRT_MAX," = "[j]);
  870.         if(integralGains)ffprintf(o,"(%1.0f %1.0f %1.0f)"
  871.             ,rgbGain[j][0],rgbGain[j][1],rgbGain[j][2]);
  872.         else ffprintf(o,"(%3.2f %3.2f %3.2f)"
  873.             ,rgbGain[j][0],rgbGain[j][1],rgbGain[j][2]);
  874.         ffprintf(o,"%c(%cIn)\n"," x "[j],"RGB"[j]);
  875.     }
  876. }
  877.  
  878. // On Mac IIci, Sys 6.07, HasDepth returns "mode" of 0x100 at all legal depths.
  879. // and SetDepth only accepts mode, not depth.
  880. //            ok=HasDepth(card[i].device,oldPixelSize,1,oldIsColor);
  881. //            if(ok)error=SetDepth(card[i].device,oldDepthMode,1,oldIsColor);
  882.  
  883. void SaveAndRestoreDevice(GDHandle device)
  884. {
  885.     static Boolean firstTime=1,displayMgrOk,colorQdOk;
  886.     static GDHandle oldDevice=NULL;
  887.     static unsigned short oldDepthMode=firstVidMode,oldIsColor=1;
  888.     static unsigned long oldDisplayModeID=kDisplayModeIDInvalid,displayModeID;
  889.     unsigned long depthModeUL;
  890.     int error;
  891.     long value;
  892.  
  893.     if(firstTime){
  894.         Gestalt(gestaltSystemVersion,&value);
  895.         assert(value>=0x605);    // need New Palette Manager for SetDepth
  896.         Gestalt(gestaltQuickdrawVersion,&value);
  897.         colorQdOk=value>=gestalt8BitQD;
  898.         value=0;
  899.         Gestalt(gestaltDisplayMgrAttr,&value);
  900.         displayMgrOk=value&(1<<gestaltDisplayMgrPresent);
  901.         firstTime=0;
  902.     }
  903.     if(colorQdOk && device!=oldDevice){
  904.         // restore old device to old state
  905.         if(oldDevice!=NULL){
  906.             if(displayMgrOk && oldDisplayModeID!=kDisplayModeIDInvalid){
  907.                 error=GDGetDisplayMode(oldDevice,&displayModeID,NULL,NULL,NULL);
  908.                 if(displayModeID!=oldDisplayModeID){
  909.                     depthModeUL=oldDepthMode;
  910.                     error=DMSetDisplayMode(oldDevice,oldDisplayModeID,&depthModeUL,0,NULL);
  911.                 }
  912.             }
  913.             error=SetDepth(oldDevice,oldDepthMode,1,oldIsColor);
  914.         }
  915.         // save old state of new device
  916.         oldDevice=device;
  917.         oldDisplayModeID=kDisplayModeIDInvalid;    // default, in case call fails
  918.         if(oldDevice!=NULL){
  919.             if(displayMgrOk)
  920.                 error=GDGetDisplayMode(oldDevice,&oldDisplayModeID,&oldDepthMode,NULL,NULL);
  921.             oldDepthMode=(**device).gdMode;
  922.             oldIsColor=TestDeviceAttribute(device,gdDevType);
  923.         }
  924.     }
  925. }
  926.  
  927.