TweetFollow Us on Twitter

Color Capable
Volume Number:3
Issue Number:7
Column Tag:Macintosh II

Lazy Man's Color

By Steven Sheets, Hoffman Estates, IL

Newsbreak....Cupertino, Calif.....Color is here!

The new Macintosh // computer has color capabilities. Most color video cards will allow up to 256 specific colors out of a possible color palatte of 16,777,216 selections. A new Color Quickdraw has been designed with Color Tables, Pixel Maps, Pixel Patterns, Color Icons, Color Grafports and Color Picture Handles to work with the new machine. Three new Managers have been added to facilitate color; the Color Manager, the Color Picker Package and the Palette Manager.

Are you ready to program with this new Color Quickdraw?

Before you answer that, did you know there was an alternative way to display color on the Mac? Use the old Quickdraw color routine! You didn’t know the older Quickdraw had color? Well...

Old Color

The original Macintosh displays were in black & white. 21,888 bytes of memory were used to display the normal 512 by 342 pixel screen (1 bit per pixel). However, the original Quickdraw had the capability to draw in color. In the original Grafport record, there were 2 fields (fgColor and bkColor) that determined the settings of the Foreground and Background color.

Quickdraw predefined 8 colors (Black, White, Red, Green, Blue, Cyan, Magenta and Yellow). Each color had a long integer constant associated with it. By passing these constants to the procedures ForeColor and BackColor, the respective fields of the current Grafport were changed. When any Grafport was created, the default settings for the Foreground and Background were Black and White respectively.

Color fields were treated similar to the more often used Pen Pattern (pnPat) and Background Pattern (bkPat). Any drawing by the Pen was done in the Foreground color, any Erasing was done in the Background color. Also Foreground and Background color affect the Copybits call. When copying a bitmap onto a Grafport, any bit that was set in the source Bitmap would make the corresponding pixel appear in the Foreground color on the Grafport. Any unset bit would make the pixel appear in the Background color.

However on the black and white Macintosh, any color other than white appears as black. Thus drawing Red on White, Blue on White, or even Yellow on White has the same effect on the Pre-Mac // computers; Black on White. Interestingly the Imagewriter // printer driver does use the color commands, thus making the Imagewriter // with a color ribbon the first color Macintosh output device of any type. While the new Mac // also has the new Color Quickdraw commands, it also supports the old commands, including the use of Foreground and Background color.

Fig. 1 Our program uses classic color options

Why Use Old?

There are several reasons for not wanting to use Color Quickdraw for your first color program. It might prove simpler, until you get a handle on Color Quickdraw (and the three associated managers), to use the older Quickdraw routines. Color Quickdraw involves new conceptional models, new data structures, and new routines. While it is well worth the effort to learn (the graphic effects are stunning), there is a stiff learning curve.

The Color Quickdraw manual is even larger than the original Quickdraw manual. That is assuming that you have the new documentation. Inside Macintosh Vol. V is due out soon, but unless you currently have a beta version, you will have to wait for APDA’s final release.

Even if you have the new documentation and routines, your development system may not implement the new ROM calls. Lightspeed C, Lightspeed Pascal, MDS do not support the new Quickdraw, while MPW has to be updated to version 2.0. Many programmers will have to wait until the developers of their programming language come out with a new update until they can use the new routines. Some lucky users can input all the new calls themselves and do not need the updates. That means typing in dozens of new calls and data structures (again assuming they have the documentation). Lucky them! [Apple is still working on the equates file and rumor has it the Pallette Manager is still changing. -Ed]

Finally there is the actual code size and time in involved programming the new Quickdraw. Color Quickdraw does take more code to implement and it’s data structures are larger. The simple ForeColor and BackColor routines take very little code space.

Certainly Color Quickdraw should be used if someone is writing a color Drawing program for the Mac //. But if you only wish to add color to your existing programs, using Color Quickdraw requires you to rewrite your code, redo your graphics and in some cases, even redo your complicated bitmaps. Placing ForeColor and BackColor calls before your existing code segments is much simpler. If your Program is intended to run on any Macintosh, the older Quickdraw may be all you need or want to produce color.

The Code

The source example is an extremely simple, standard Macintosh program. It loads and displays any MacPaint document in any of the eight Foreground and eight Background colors. A few notes:

1) The CWindow (which will display the MacPaint document) is centered on large screens (like a SuperMac monitor) or placed in the offset position.

2) The actual picture is stored in two sets of Bitmaps and Data handles. Data is stored this way since the size of a MacPaint bitmap is too large to store in 1 set (32K limit). If there is not enough memory to create the bitmaps, the program will state this and not allow a MacPaint document to be loaded

3) ForeC and BackC store the selected menu number (1-8), not the predefined Color constant. GetColor is used to convert the menu number into the color constant.

4) DoColor is the pivotal procedure; it sets the new Foreground/Background colors. Then it causes an window update so the window is redrawn in the new colors.

{Lazy Man’s Color by Steve Sheets 4/20/87 }
{Simple Demonstration of Mac // Color using the 
{ForeColor & BackColor of classical Quickdraw. }
{This program Loads and displays a MacPaint document }
(in any 2 colors.}


{Various Constants:Menu ID Numbers, Window Size, }
{Window Placement, BitMap Size and Number of Colors. }
 AppleMenuID = 300;
 FileMenuID = 301;
 EditMenuID = 302;
 ForeMenuID = 303;
 BackMenuID = 304;

 OffV = 40;
 OffH = 40;
 AboutH = 300;
 AboutV = 140;
 SizeH = 576;
 SizeV1 = 360;
 SizeV2 = 720;
 BitW = 72;
 NumSec = 2;

 XColor = 8;

{Various Variables:Menus, Bitmaps, Window, Colors, }
{Done Flag & Title Name }
 Done : boolean;
 AppleMenu, FileMenu: EditMenu, 
 ForeMenu, BackMenu : MenuHandle;

 CWindow : windowptr;
 CMap : ARRAY[1..NumSec] OF bitmap;
 CData : ARRAY[1..NumSec] OF handle;

 ForeC, BackC : integer;
 Title : str255;

{Given Color Number ( 1 to XColor, as selected by Menu), }
{returns actual longint Color Number (for ForeColor or }
{BackColor). }
FUNCTION GetColor (N : integer) : longint;
 1 : 
 GetColor := BlackColor;
 2 : 
 GetColor := WhiteColor;
 3 : 
 GetColor := RedColor;
 4 : 
 GetColor := GreenColor;
 5 : 
 GetColor := BlueColor;
 6 : 
 GetColor := CyanColor;
 7 : 
 GetColor := MagentaColor;
 8 : 
 GetColor := YellowColor;
 GetColor := WhiteColor;

{Sets new ForeColor & BackColor and forces an Update} 
{so Window is redrawn in the new colors. }
PROCEDURE DoColor (F, B : integer);
 count : integer;
 tempPort : Grafptr;
 IF F <> ForeC THEN
 FOR count := 1 TO XColor DO
 CheckItem(ForeMenu, count, count = F);
 ForeC := F;
 IF B <> BackC THEN
 FOR count := 1 TO XColor DO
 CheckItem(BackMenu, count, count = B);
 BackC := B;

{ Loads MacPaint Picture in Bitmaps and displays it.}
 diskBlock = PACKED ARRAY[1..512] OF QDbyte;
 MyReply : SFReply;
 MyType : SFtypelist;
 tempPoint : point;
 count : longint;
 refNum, scanline, N : integer;
 error : OSErr;
 srcBuf : ARRAY[1..2] OF diskBlock;
 srcPtr, dstPtr : Ptr;
 tempPoint.v := 60;
 tempPoint.h := 60;
 MyType[0] := ‘PNTG’;
 SFGetFile(tempPoint, ‘’, NIL, 1, MyType, NIL, MyReply);
 IF MyReply.good THEN
 IF FSOpen(MyReply.fname, MyReply.vrefnum, refNum) = noErr THEN
 count := 512;
 error := FSRead(refNum, count, @srcBuf);
 count := 1024;
 error := FSRead(refNum, count, @srcBuf);
 srcPtr := @srcBuf;
 FOR N := 1 TO NumSec DO
 dstPtr := CData[N]^;
 FOR scanline := 1 TO SizeV1 DO
 UnpackBits(srcPtr, dstPtr, BitW);
 IF ord(srcPtr) > (ord(@srcBuf) + 512) THEN
 srcBuf[1] := srcBuf[2];
 count := 512;
 error := FSRead(refNum, count, @srcBuf[2]);
 srcPtr := pointer(ord(srcPtr) - 512);
 error := FSClose(refNum);
 DoColor(ForeC, BackC);

{Creates a Rectangle centered on Screen (if window }
{size is smaller then the screen) or starting at a }
{standard offset (if window size is larger then }
{screen). }
PROCEDURE CenterRect (VAR R : rect;
 H, V : integer);
 tempH : integer;
 IF H > Screenbits.bounds.right THEN
 tempH := OffH
 tempH := ((Screenbits.bounds.right - H) DIV 2);
 SetRect(R, tempH, OffV, H + tempH, V + OffV);

{Draws text, centered in a rectangle in the About}
{  Box window in a certain color with a certain }
{justification }
PROCEDURE DoLine (S : str255;
 H, Top, Bottom, J : integer;
 C : longint);
 tempInteger : integer;
 tempRect : rect;
 tempInteger := ((AboutH - H) DIV 2);
 SetRect(tempRect, tempInteger, Top, tempInteger + H, Bottom);
 TextBox(POINTER(ord(@S) + 1), LENGTH(S), tempRect, J);

{Displays About Box (in color) until someone presses } 
{the button down.}
 tempWindow : windowptr;
 tempRect : rect;
 tempStr : str255;
 CenterRect(tempRect, AboutH, AboutV);
 tempWindow := NewWindow(NIL, tempRect, ‘’, true, dBoxProc, POINTER(-1), 
false, 0);

 DoLine(CONCAT(Title, ‘ by Steve Sheets’), AboutH, 20, 39, teJustCenter, 
 DoLine(‘Sample Mac // Color Program’, AboutH, 40, 59, teJustCenter, 
 DoLine(‘This program uses the ForeColor and BackColor Quickdraw commands 
to display a MacPaint document in two colors.’, AboutH - 50, 60, AboutV, 
teJustLeft, RedColor);

 WHILE NOT button DO

{Standard main menu procedure that handles }
{menu selections.  Can show About Box, open Desk }
{Accessories, Load in MacPaint file, change }
{the Done Flag (so the program quits), handle} 
{edit commands (Cut,Copy,Paste,Clear), and change }
{Foreground or Background color of the picture.}
PROCEDURE MainMenu (tempResult : LONGINT);
 tempInteger : integer;
 tempBoolean : boolean;
 tempStr : STR255;
 tempInteger := LoWord(tempResult);
 CASE HiWord(tempResult) OF
 AppleMenuID : 
 IF tempInteger = 1 THEN
 GetItem(appleMenu, tempInteger, tempStr);
 tempInteger := OpenDeskAcc(tempStr);
 FileMenuID : 
 CASE tempInteger OF
 1 : 
 3 : 
 Done := true;
 EditMenuID : 
 tempBoolean := SystemEdit(tempInteger - 1);
 ForeMenuID : 
 IF (tempInteger > 0) AND (tempInteger <= XColor) THEN
 DoColor(tempInteger, BackC);
 BackMenuID : 
 IF (tempInteger > 0) AND (tempInteger <= XColor) THEN
 DoColor(ForeC, tempInteger);

{Setup for Menus, Window, Bitmaps,  Colors }
{settings, Title and Done flag.  }
 DD = PACKED ARRAY[1..32000] OF 0..255;
 PP = ^DD;
 HH = ^PP;
 tempStr : STR255;
 tempRect : rect;
 count : integer;
 tempLong : longint;
 tempH : HH;
 Title := ‘Lazy Man@s Color’;
 Title[9] := CHR(39);

 tempStr := ‘ ‘;
 tempStr[1] := CHR(appleMark);
 AppleMenu := NewMenu(AppleMenuID, tempStr);
 AppendMenu(AppleMenu, CONCAT(‘About ‘, Title, ‘...;(-’));
 AddResMenu(AppleMenu, ‘DRVR’);

 FileMenu := NewMenu(FileMenuID, ‘File’);
 AppendMenu(FileMenu, ‘Load MacPaint Documents/L;(-;Quit/Q’);

 EditMenu := NewMenu(EditMenuID, ‘Edit’);
 AppendMenu(EditMenu, ‘Undo/Z;(-;Cut/X;Copy/C; Paste/V;Clear’);

 ForeMenu := NewMenu(ForeMenuID, ‘Set Foreground’);
 AppendMenu(ForeMenu, ‘Black;White;Red;Green;Blue; Cyan;Magenta;Yellow’);

 BackMenu := NewMenu(BackMenuID, ‘Set Background’);
 AppendMenu(BackMenu, ‘Black;White;Red;Green;Blue;Cyan; Magenta;Yellow’);

 InsertMenu(AppleMenu, 0);
 InsertMenu(FileMenu, 0);
 InsertMenu(EditMenu, 0);
 InsertMenu(ForeMenu, 0);
 InsertMenu(BackMenu, 0);


 CenterRect(tempRect, SizeH, SizeV2);
 CWindow := NewWindow(NIL, tempRect, Title, true, 4, POINTER(-1), false, 

 CMap[1].rowBytes := BitW;
 SetRect(CMap[1].bounds, 0, 0, SizeH, SizeV1);
 CData[1] := NewHandle(BitW * SizeV1);
 IF CData[1] <> NIL THEN
 tempH := HH(CData[1]);
 FOR count := 1 TO BitW * SizeV1 DO
 tempH^^[count] := 0;
 CMap[2].rowBytes := BitW;
 SetRect(CMap[2].bounds, 0, SizeV1, SizeH, SizeV2);
 CData[2] := NewHandle(BitW * SizeV1);
 IF CData[2] <> NIL THEN
 tempH := HH(CData[2]);
 FOR count := 1 TO BitW * SizeV1 DO
 tempH^^[count] := 0;
 IF (CData[1] = NIL) OR (CData[2] = NIL) THEN
 SetWTitle(CWindow, ‘Not Enough Memmory’);
 DisableItem(FileMenu, 1);
 ForeC := 0;
 BackC := 0;
 DoColor(1, 2);
 Done := false;

{Standard main program loop that handles all }
{events (ie. mouse down, key downs & updates) until }
{the Done flag is set.  }
 tempEvent : EventRecord;
 tempWindow : windowptr;
 tempCode : integer;
 tempPort : Grafptr;
 tempRect : rect;
 IF GetNextEvent(everyEvent, tempEvent) THEN
 CASE tempEvent.what OF
 mouseDown : 
 tempCode := FindWindow(tempEvent.where, tempWindow);
 CASE tempCode OF
 inDrag, inContent : 
 IF tempWindow <> FrontWindow THEN
 IF Cwindow = tempWindow THEN
 IF CWindow <> FrontWindow THEN
 SetRect(tempRect, -25000, -25000, 25000, 25000);
 DragWindow(CWindow, tempEvent.where, tempRect);
 inMenuBar : 
 inSysWindow : 
 SystemClick(tempEvent, tempWindow);
 END; { of tempCode case }
 END; { of mouseDown }
 keydown, autoKey : 
 IF BitAnd(tempEvent.modifiers, cmdKey) <> 0 THEN
 MainMenu(MenuKey(CHR(tempEvent.message MOD 256)));
 updateEvt : 
 IF CWindow = WindowPtr(tempEvent.message) THEN
 IF CData[1] <> NIL THEN
 CMap[1].baseAddr := CData[1]^;
 CopyBits(CMap[1], CWindow^.portBits, CMap[1].bounds, CMap[1].bounds, 
srcCopy, NIL);
 IF CData[2] <> NIL THEN
 CMap[2].baseAddr := CData[2]^;
 CopyBits(CMap[2], CWindow^.portBits, CMap[2].bounds, CMap[2].bounds, 
srcCopy, NIL);
 UNTIL Done;

{***PROGRAM*** }

Community Search:
MacTech Search:

Software Updates via MacUpdate

Mactracker 7.7.1 - Database of all Mac m...
Mactracker provides detailed information on every Mac computer ever made, including items such as processor speed, memory, optical drives, graphic cards, supported OS X versions, and expansion... Read more
Spotify - Stream music, crea...
Spotify is a streaming music service that gives you on-demand access to millions of songs. Whether you like driving rock, silky R&B, or grandiose classical music, Spotify's massive catalogue puts... Read more
BetterTouchTool 2.332 - Customize multi-...
BetterTouchTool adds many new, fully customizable gestures to the Magic Mouse, Multi-Touch MacBook trackpad, and Magic Trackpad. These gestures are customizable: Magic Mouse: Pinch in / out (zoom... Read more
BetterTouchTool 2.332 - Customize multi-...
BetterTouchTool adds many new, fully customizable gestures to the Magic Mouse, Multi-Touch MacBook trackpad, and Magic Trackpad. These gestures are customizable: Magic Mouse: Pinch in / out (zoom... Read more
Capture One - RAW workflow sof...
Capture One is a professional RAW converter offering you ultimate image quality with accurate colors and incredible detail from more than 400 high-end cameras -- straight out of the box. It offers... Read more
Capture One - RAW workflow sof...
Capture One is a professional RAW converter offering you ultimate image quality with accurate colors and incredible detail from more than 400 high-end cameras -- straight out of the box. It offers... Read more
GraphicConverter 10.5.4 - $39.95
GraphicConverter is an all-purpose image-editing program that can import 200 different graphic-based formats, edit the image, and export it to any of 80 available file formats. The high-end editing... Read more
Dash 4.1.3 - Instant search and offline...
Dash is an API documentation browser and code snippet manager. Dash helps you store snippets of code, as well as instantly search and browse documentation for almost any API you might use (for a full... Read more
Microsoft OneNote 16.9 - Free digital no...
OneNote is your very own digital notebook. With OneNote, you can capture that flash of genius, that moment of inspiration, or that list of errands that's too important to forget. Whether you're at... Read more
DEVONthink Pro 2.9.17 - Knowledge base,...
Save 10% with our exclusive coupon code: MACUPDATE10 DEVONthink Pro is your essential assistant for today's world, where almost everything is digital. From shopping receipts to important research... Read more

Latest Forum Discussions

See All

Jydge hints, tips, and tricks - Everythi...
Just released on iOS, Jydge is a prequel to Neon Chrome and is set in the same universe. Not just that, but the games play in pretty similar ways with them both being twin stick shooters full of surprises. As you might expect from a 10tons game,... | Read more »
World of Warships Blitz: A guide to tact...
Ahoy mates! It's time to set out on the high seas for some PvP battles, and ... sorry, actually, World of Warships Blitz has nothing to do with pirates. Let's start over. [Read more] | Read more »
Around the Empire: What have you missed...
Around this time every week we're going to have a look at the comings and goings on the other sites in Steel Media's pocket-gaming empire. We'll round up the very best content you might have missed, so you're always going to be up to date with the... | Read more »
Everything about Hero Academy 2: Part 4...
In this part of our Hero Academy 2 guide, we're going to have a look at some of the tactics you're going to need to learn if you want to rise up the ranks. We're going to start off slow, then get more advanced in the next section. [Read more] | Read more »
All the best games on sale for iPhone an...
Another week has flown by. Sometimes it feels like the only truly unstoppable thing is time. Time will make dust of us all. But before it does, we should probably play as many awesome mobile videogames as we can. Am I right, or am I right? [Read... | Read more »
The 7 best games that came out for iPhon...
Well, it's that time of the week. You know what I mean. You know exactly what I mean. It's the time of the week when we take a look at the best games that have landed on the App Store over the past seven days. And there are some real doozies here... | Read more »
Popular MMO Strategy game Lords Mobile i...
Delve into the crowded halls of the Play Store and you’ll find mobile fantasy strategy MMOs-a-plenty. One that’s kicking off the new year in style however is IGG’s Lords Mobile, which has beaten out the fierce competition to receive Google Play’s... | Read more »
Blocky Racing is a funky and fresh new k...
Blocky Racing has zoomed onto the App Store and Google Play this week, bringing with it plenty of classic kart racing shenanigans that will take you straight back to your childhood. If you’ve found yourself hooked on games like Mario Kart or Crash... | Read more »
Cytus II (Games)
Cytus II 1.0.1 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0.1 (iTunes) Description: "Cytus II" is a music rhythm game created by Rayark Games. It's our fourth rhythm game title, following the footsteps of three... | Read more »
JYDGE (Games)
JYDGE 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: Build your JYDGE. Enter Edenbyrg. Get out alive. JYDGE is a lawful but awful roguehate top-down shooter where you get to build your... | Read more »

Price Scanner via

Clearance Apple refurbished iMacs available s...
Apple has previous-generation Certified Refurbished 2015 21″ & 27″ iMacs available starting at $849. Apple’s one-year warranty is standard, and shipping is free. The following models are... Read more
How to save $150-$420 on the purchase of a 20...
B&H Photo has 15″ MacBook Pros on sale for up to $200 off MSRP. Shipping is free, and B&H charges sales tax for NY & NJ residents only: – 15″ 2.8GHz Touch Bar MacBook Pro Space Gray (... Read more
How to save $100-$180 on the purchase of a 20...
B&H Photo has 13″ MacBook Airs on sale for $50-$120 off MSRP. Shipping is free, and B&H charges sales tax for NY & NJ residents only: – 13″ 1.8GHz/128GB MacBook Air (MQD32LL/A): $899, $... Read more
Save on Beats: $30-$80 off headphones, earpho...
Walmart has Beats by Dr. Dre on sale on their online store for $30-$80 off MSRP, depending on the item: – Powerbeats3 Wireless Earphones: $134, save $65 – BeatsX Earphones: $109, save $40 – Beats... Read more
Deals on clearance 15″ Apple MacBook Pros wit...
B&H Photo has clearance 2016 15″ MacBook Pros available for up to $800 off original MSRP. Shipping is free, and B&H charges NY & NJ sales tax only: – 15″ 2.7GHz Touch Bar MacBook Pro... Read more
Apple restocked Certified Refurbished 13″ Mac...
Apple has restocked a full line of Certified Refurbished 2017 13″ MacBook Airs starting at $849. An Apple one-year warranty is included with each MacBook, and shipping is free: – 13″ 1.8GHz/8GB/128GB... Read more
How to find the lowest prices on 2017 Apple M...
Apple has Certified Refurbished 13″ and 15″ 2017 MacBook Pros available for $200 to $420 off the cost of new models. Apple’s refurbished prices are the lowest available for each model from any... Read more
The lowest prices anywhere on Apple 12″ MacBo...
Apple has Certified Refurbished 2017 12″ Retina MacBooks available for $200-$240 off the cost of new models. Apple will include a standard one-year warranty with each MacBook, and shipping is free.... Read more
Apple now offering a full line of Certified R...
Apple is now offering Certified Refurbished 2017 10″ and 12″ iPad Pros for $100-$190 off MSRP, depending on the model. An Apple one-year warranty is included with each model, and shipping is free: –... Read more
27″ iMacs on sale for $100-$130 off MSRP, pay...
B&H Photo has 27″ iMacs on sale for $100-$130 off MSRP. Shipping is free, and B&H charges sales tax for NY & NJ residents only: – 27″ 3.8GHz iMac (MNED2LL/A): $2199 $100 off MSRP – 27″ 3.... Read more

Jobs Board

AppleCare Support Engineer for *Apple* Medi...
# AppleCare Support Engineer for Apple Media Products Job Number: 113222855 Santa Clara Valley, California, United States Posted: 14-Nov-2017 Weekly Hours: 40.00 Read more
QA Automation Engineer, *Apple* Pay - Apple...
# QA Automation Engineer, Apple Pay Job Number: 113202642 Santa Clara Valley, California, United States Posted: 11-Dec-2017 Weekly Hours: 40.00 **Job Summary** At Read more
*Apple* Video Partnerships - Apple (United S...
# Apple Video Partnerships Job Number: 113059126 Santa Clara Valley, California, United States Posted: 15-Nov-2017 Weekly Hours: 40.00 **Job Summary** Partnerships Read more
Sr. Engineering Manager- *Apple* Media Produ...
# Sr. Engineering Manager- Apple Media Products Job Number: 113335268 Santa Clara Valley, California, United States Posted: 17-Jan-2018 Weekly Hours: 40.00 **Job Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.