TweetFollow Us on Twitter

Color Mixer
Volume Number:4
Issue Number:4
Column Tag:Basic School

Color Mixer Creates Custom Colors

By Dave Kelly, MadTutor Editorial Board, Ontario, California

ZBasic Does Mac II Color!

Yes, that’s right! The new ZBasic version 4.01 now supports the Mac II’s full 256 colors. There is no need to restrict yourself to the 8 colors of the old Quickdraw.

To use the 256 color mode, ZBasic now provides a LONG COLOR statement. The syntax is: LONG COLOR blue%, green%, red%, [ background]. LONG COLOR is used to set the colors and grey levels for subsequent graphic commands used on the Macintosh II. The command is ignored by other Macs.

The values of blue%, green% and red% may range from 0 to 65535. They may also be represented as long integers (65535 as a long integer is -32767 as a regular integer). The colors are used in RGBColor calls to the Mac II ROM where 0 is the darkest and 65535 is the lightest.

The background variable is used as a flag to indicate if the color should be set in the foreground or in the background. A background value of 0 causes the background color to be set to the blue%, green%, red% color indicated. Subsequent LONG COLOR statements that have no background variable or background is set to other than 0 will set the foreground color. The background color will be used the next time it is needed, when the screen gets updated or is cleared with CLS.

Inside Macintosh Volume V has the new color information we need to understand how the Mac II gets its color and how to use color in your applications. Before using color you should read the User Interface chapter of Inside Macintosh Vol. V. One of the most important thing you should try do is leave the selection and choices of color in the hands of the user. The study of color and how it affects people is not well defined. One of my co-workers is color-blind and has a totally different way of looking at color than I do. If color is not used carefully it could hinder instead of help to enhance your software.

Traditionally (and on that other computer) color has been used to help distinguish different things on the screen and show relationships between items on the screen. Some colors have special significance. For example: red means stop, green means go, yellow means caution. Colors can enhance in this way, however, remember that after the user has seen the same color combinations several dozen times, the color becomes commonplace and he might still make mistakes that the color was supposed to help him avoid. In fact, the bright colors used to warn a user may actually attract him to select that color.

Inside Mac encourages you to start out the design of your program in black and white and add color as a supplement to provide extra for people who have color capability. Color use should be limited to the content area of your windows. Let the user decide what color his menus, borders, controls etc. should be. The Colorizer application and CDEV let the user select his own colors for these items. If the user selects colors for somethings then your application comes along and changes part of these colors, there might be some pretty strange color combinations left over. Many suggestions are available in Inside Mac which you should know so that your applications will be consistent and won’t conflict with the user interface.

Fig. 1 Mixing colors, in this case white!

The blue%, green%, and red% that you specify in the LONG COLOR is used by the Color Manager to return the pixel value that best represents that color. The Color Manager searches through the color table for the RGB color that most closely matched the desired color. Color Quickdraw then places that color on the screen. The way that each pixel is assigned a color to display is by way of the Color Look-Up Table (CLUT). The video card takes each pixel and compares it to the CLUT to determine which RGB value that pixel represents. The RGB value is split off into three separate electrical signals (red, green, and blue) to the video monitor. By the way, when red=green=blue you get shades of gray. By using the Palette Manager (if you could from Basic) you could change the drawing environment to use a different palette.

Color Selection

Color Selection routines have been provided to the Macintosh II by Apple via the Color Picker routines. Here is the problem: ZBasic doesn’t support all the new calls for the Mac II yet. Zedcor has promised to send me format and structure information to add more calls to ZBasic as required, but Andy Gariepy has been to busy to send it to me. So that being the case I have no choice but to write my own color selection routines. Also the Color Picker is PACK_12 in system 4.2. I’m not sure it would be that easy to call a PACKage from ZBasic without it being defined by the language itself. Maybe we will have to wait for Zedcor to implement it. In the mean time I have made my own “quick and dirty” version of a “Color Picker”.

If you think about it, the Apple Color Picker routine really does do a lot! It allows you to type in the red, green, blue colors, but also will adjust these colors when you set the hue, saturation, and brightness. Proper adjustment of the red, green, and blue will result in the same hues, saturation, and brightness, but it just isn’t as convenient to setup.

The color wheel concept is interesting too. You can learn a lot about how colors can be mixed by watching the values of red, green, and blue while moving the mouse around the color wheel. Move more towards blue and watch how the numbers change! Amazing! The color wheel really is a good way to allow you to select colors. The only other good approach is to allow the user to pick from a color palette. The problem is how to decide which colors are defined in the palette.

My example suggests a simple way that colors could be selected by the user. By choosing the Pick Colors menu or button you are given a set of 3 scroll bars to adjust the amount of blue, green, and red. You can mix the amount of each color and see the effect of mixing each. This might even be useful for showing young children the effects of mixing colors. If you like the color then click on OK or else cancel to return to the original color setting.

The problem with my Color Selection demo is that because of the way ZBasic does event trapping it is difficult to make the routines be stand alone. My color mixer program provided here must become an integral part of the application because of the way that ZBasic “automatically” generates the event loop. I tried using separate ON DIALOG GOSUB traps, but it somehow didn’t work. I could only get one of the ON DIALOG statements to take effect.

There are a few problems that have shown up with my early version of ZBasic 4.01. First, the scroll bars don’t scroll properly when using the max and min values that are given in the ZBasic manual. If +32767 is used and you scroll to the right (or down) by clicking on the right (or down) arrow, when the bar reaches the max it will jump to the minimum! Also if you change the max value to between 32100 and 32766 and click in the scroll bar between the arrow and box, when the max is reached it also jumps down to the minimum. UGH! And if -32768 is used for the minimum the scroll bar returns a 0 when the box is set at the minimum. -32767 works fine. I am forced to adjust these values in the program, but it won’t matter much because the selected color will likely be the same anyway because we only have 256 possible.

Hierarchical Menu Notes

Using Hierarchical menus isn’t so simple with ZBasic. Hierarchical menus are stored as resources of the type MENU just as other menus may be stored. However, to use MENU resources with ZBasic AND have ZBasic be able to use them, you have to set up your own event loop using GETNEXTEVENT. Then you have to handle each event with the standard Macintosh way of programming and can’t use ZBasic’s event trapping routines (they get in the way). What we need is a way to use MENU, WINDOW, CONTROLs and other resources from ZBasic which can be invoked with ZBasic statements (which are integrated in with the ZBasic “automatic” event loop. It would also be useful to be able to automatically install a resource into an application when ZBasic compiles as an application. Maybe Zedcor can put these things on their “THINGS TO DO” list for version 4.02?

A submenu is associated with a menu item by using 2 fields of the MenuInfo data structure. When the itemCmd field is set to hex $1B, the itemMark field should contain the menuID (in hex) of the associated hierarchical menu. These values can be created/modified with ResEdit 1.1B3.

By using Menu Manager calls (pg. E-181 in ZBasic manual) you can find out which menu is selected in the GETNEXTEVENT loop as you would with regular type menus. More on this in a future column.

{1}
‘Professor Mac’s ZBasic Color Mixer
‘©MacTutor 1988
‘By Dave Kelly

WINDOW OFF
COORDINATE WINDOW
DIM Colorbox%(3)
red&=0
blue&=0
green&=0

DEF MOUSE=-1
false=0:true=NOT(false)
MENU 1,0,1,”File”
MENU 1,1,1,”Select Color”
MENU 1,2,1,”Quit”
EDIT MENU 2

‘Find out screen size.
CALL GETWMGRPORT(WMgrPort&)
PortTop=PEEK WORD(WMgrPort&+8)
PortLeft=PEEK WORD(WMgrPort&+10)
PortBottom=PEEK WORD(WMgrPort&+12)
PortRight=PEEK WORD(WMgrPort&+14)

WINDOW 1,”Main Window”,(10,44)-(PortRight-4,PortBottom-4)
TEXT ,,,0
BUTTON #6,1,”Quit”,(20,WINDOW(3)-50)-(85,                      
 WINDOW(3)-30),1
BUTTON #7,1,”Pick Color”,(120,WINDOW(3)-50)-(195,              
 WINDOW(3)-30),1
CALL SETRECT(Colorbox%(0),10,10,WINDOW(2)-10,                  
 WINDOW(3)-215)
PICTURE ON
LONG COLOR blue&,green&,red&
CALL PAINTRECT(Colorbox%(0))
CALL MOVETO(20,WINDOW(3)-100)
COLOR=7
PRINT “Blue:”;blue&;” Red:”;red&;” Green:”;green&;SPACE$(10)
PICTURE OFF,Pic1&
PICTURE, Pic1&
WINDOW PICTURE #1,Pic1&

ON DIALOG GOSUB “Event”
ON MENU GOSUB “MenuEvent”
DIALOG ON:MENU ON
“Loop”
GOTO “Loop”
DIALOG STOP:MENU STOP

“MenuEvent”
Menunumber=MENU(0)
Menuitem=MENU(1)
MENU
IF Menunumber<>1 THEN RETURN
SELECT Menuitem
 CASE 1
 GOSUB “ColorPick”
 CASE 2
 GOSUB “Quit”
END SELECT
RETURN

“Quit”
WINDOW PICTURE #1,0
KILL PICTURE Pic1&
END

“ColorPick”:’A Color Selection routine
done=false
min%=-32767:’Manual says that -32768 is Min. max%=32766:’Manual says 
that 32767 is Max. 
currentred&=red&
currentblue&=blue&
currentgreen&=green&
WINDOW 5,”Color Chooser”,(PortLeft+10,PortTop+30)-             (PortRight-10, 
PortBottom-10),-2
SCROLL BUTTON #1,currentblue&-32767,min%,max%,100,(20,
 WINDOW(3)-200)-(WINDOW(2)-20,WINDOW(3)-200+16),0
SCROLL BUTTON #2,currentgreen&-32767, min%, max%, 100,         (20, WINDOW(3)-150)-(WINDOW(2)-20, 
WINDOW(3)-150+16),0
SCROLL BUTTON #3,currentred&-32767, min%, max%, 100, (20,      
 WINDOW(3)-100)-(WINDOW(2)-20,WINDOW(3)-100+16),0
BUTTON #4,1,”OK”,(20,WINDOW(3)-50)-(85,WINDOW(3)-30),1
BUTTON #5,1,”Cancel”,(120,WINDOW(3)-50)-(185,                  
 WINDOW(3)-30),1
TEXT 0,12,0,0
CALL MOVETO(WINDOW(2)/2,WINDOW(3)-200+30)
String$=”Blue: “+STR$(currentblue&)
COLOR=4
CALL DRAWSTRING(String$)
CALL MOVETO(WINDOW(2)/2,WINDOW(3)-150+30)
String$=”Green: “+STR$(currentgreen&)
COLOR=2
CALL DRAWSTRING(String$)
CALL MOVETO(WINDOW(2)/2,WINDOW(3)-100+30)
String$=”Red: “+STR$(currentred&)
COLOR=6
CALL DRAWSTRING(String$)
GOSUB “UpdateColorBox”
FLUSHEVENTS
RETURN

“ButtonEvent”
Buttonnumber=DIALOG(1)
Buttonvalue&=BUTTON(Buttonnumber)+32767
SELECT Buttonnumber
 CASE 1
 GOSUB “Button1”:’set blue
 CASE 2
 GOSUB “Button2”:’set green
 CASE 3
 GOSUB “Button3”:’set red
 CASE 4
 GOSUB “Button4”:’ OK button was pressed
 CASE 5
 GOSUB “Button5”:’ Cancel button was pressed
 CASE 6
 GOSUB “Quit”
 CASE 7
 GOSUB “ColorPick”
END SELECT
RETURN

“UpdateColorBox”
LONG COLOR currentblue&,currentgreen&,currentred&
CALL SETRECT(Colorbox%(0),10,10,WINDOW(2)-10,                  
 WINDOW(3)-215)
CALL PAINTRECT(Colorbox%(0))
RETURN

“Button1”:’blue scroll bar
currentblue&=Buttonvalue&
CALL MOVETO(WINDOW(2)/2,WINDOW(3)-200+30)
String$=”Blue: “+STR$(currentblue&)+SPACE$(10)
COLOR=4:’set text color to blue
CALL DRAWSTRING(String$)
GOSUB “UpdateColorBox”
RETURN

“Button2”:’green scroll bar
currentgreen&=Buttonvalue&
CALL MOVETO(WINDOW(2)/2,WINDOW(3)-150+30)
String$=”Green: “+STR$(currentgreen&)+SPACE$(10)
COLOR=2:’set text color to green
CALL DRAWSTRING(String$)
GOSUB “UpdateColorBox”
RETURN

“Button3”:’red scroll bar
currentred&=Buttonvalue&
CALL MOVETO(WINDOW(2)/2,WINDOW(3)-100+30)
String$=”Red: “+STR$(currentred&)+SPACE$(10)
COLOR=6:’set text color to red
CALL DRAWSTRING(String$)
GOSUB “UpdateColorBox”
RETURN

“Button4”:’OK button
red&=currentred&
blue&=currentblue&
green&=currentgreen&
GOSUB “Closestuff”
RETURN

“Button5”:’Cancel button
GOSUB “Closestuff”
RETURN

“Closestuff”
FOR J=1 TO 5
 BUTTON CLOSE J
NEXT J
WINDOW CLOSE 5
PICTURE ON
LONG COLOR blue&,green&,red&
CALL PAINTRECT(Colorbox%(0))
CALL MOVETO(20,WINDOW(3)-100)
COLOR=7
PRINT “Blue:”;blue&;” Red:”;red&;” Green:”;green&;SPACE$(10)
PICTURE OFF,Pic1&
PICTURE, Pic1&
WINDOW PICTURE #1,Pic1&
RETURN

“Event”
D=DIALOG(0)
SELECT D
 CASE 1
 GOSUB “ButtonEvent”
 CASE 4
 GOSUB “Quit”:’if close box selected
END SELECT
RETURN

Hypercard Tidbits

At MacWorld Expo in San Francisco someone asked if we knew a way to effectively mask out the command-option keys in HyperCard. The following information was given in WINOID issue #1, a newsletter for the Apple HyperCard Users Group. I hope that this will answer your question.

How can I hide buttons from command-option key peek?

When you don’t want people peeking at your buttons, it is necessary to trap the command and option keys. While there are several ways of doing this, here is one that is simple and works about 99% of the time.

The basic idea is to take the user to another card when the command and option keys are both pressed. This can be a “no peeking” card or a rules card or some other kind of card. When the user releases both keys, you then return to the card the user was viewing before trying to peek. Following are the two scripts that accomplish this. Put the top one in your stack script and the other in the “no peeking” card script.

For the stack script:

{2}
On Idle
  if the commandkey is down and the optionkey is down then
      push this card
      go card “no peeking”
  end if
end Idle

For the “no peeking” card script:

On Idle
  if the commandkey is up and the optionkey is up then
      pop card
  end if
End Idle
 
AAPL
$119.00
Apple Inc.
+1.40
MSFT
$47.75
Microsoft Corpora
+0.28
GOOG
$540.37
Google Inc.
-0.71

MacTech Search:
Community Search:

Software Updates via MacUpdate

HoudahSpot 3.9.6 - Advanced file search...
HoudahSpot is a powerful file search tool built upon MacOS X Spotlight. Spotlight unleashed Create detailed queries to locate the exact file you need Narrow down searches. Zero in on files Save... Read more
RapidWeaver 6.0.3 - Create template-base...
RapidWeaver is a next-generation Web design application to help you easily create professional-looking Web sites in minutes. No knowledge of complex code is required, RapidWeaver will take care of... Read more
iPhoto Library Manager 4.1.10 - Manage m...
iPhoto Library Manager lets you organize your photos into multiple iPhoto libraries. Separate your high school and college photos from your latest summer vacation pictures. Or keep some photo... Read more
iExplorer 3.5.1.9 - View and transfer al...
iExplorer is an iPhone browser for Mac lets you view the files on your iOS device. By using a drag and drop interface, you can quickly copy files and folders between your Mac and your iPhone or... Read more
MacUpdate Desktop 6.0.3 - Discover and i...
MacUpdate Desktop 6 brings seamless 1-click installs and version updates to your Mac. With a free MacUpdate account and MacUpdate Desktop 6, Mac users can now install almost any Mac app on macupdate.... Read more
SteerMouse 4.2.2 - Powerful third-party...
SteerMouse is an advanced driver for USB and Bluetooth mice. It also supports Apple Mighty Mouse very well. SteerMouse can assign various functions to buttons that Apple's software does not allow,... Read more
iMazing 1.1 - Complete iOS device manage...
iMazing (was DiskAid) is the ultimate iOS device manager with capabilities far beyond what iTunes offers. With iMazing and your iOS device (iPhone, iPad, or iPod), you can: Copy music to and from... Read more
PopChar X 7.0 - Floating window shows av...
PopChar X helps you get the most out of your font collection. With its crystal-clear interface, PopChar X provides a frustration-free way to access any font's special characters. Expanded... Read more
Carbon Copy Cloner 4.0.3 - Easy-to-use b...
Carbon Copy Cloner backups are better than ordinary backups. Suppose the unthinkable happens while you're under deadline to finish a project: your Mac is unresponsive and all you hear is an ominous,... Read more
ForeverSave 2.1.3 - Universal auto-save...
ForeverSave auto-saves all documents you're working on while simultaneously doing backup versioning in the background. Lost data can be quickly restored at any time. Losing data, caused by... Read more

Latest Forum Discussions

See All

Make Way for Fat Chicken, from the Maker...
Make Way for Fat Chicken, from the Makers of Scrap Squad Posted by Jessica Fisher on November 26th, 2014 [ permalink ] Relevant Games has announced they will be releasing their reverse tower defense game, | Read more »
Tripnary Review
Tripnary Review By Jennifer Allen on November 26th, 2014 Our Rating: :: TRAVEL BUCKET LISTiPhone App - Designed for the iPhone, compatible with the iPad Want to create a travel bucket list? Tripnary is a fun way to do exactly that... | Read more »
Ossian Studios’ RPG, The Shadow Sun, is...
Ossian Studios’ RPG, The Shadow Sun, is Now Available for $4.99 Posted by Jessica Fisher on November 26th, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Mmmm, Tasty – Having the Angry Birds for...
The very first Angry Birds debuted on iOS back in 2009. When you sit back and tally up the number of Angry Birds games out there and the impact they’ve had on pop culture as a whole, you just need to ask yourself: “How would the birds taste... | Read more »
Rescue Quest Review
Rescue Quest Review By Jennifer Allen on November 26th, 2014 Our Rating: :: PATH BASED MATCH-3Universal App - Designed for iPhone and iPad Guide a wizard to safety by matching gems. Rescue Quest might not be an entirely original... | Read more »
You Can Play the Final Chapter of Lone W...
You Can Play the Final Chapter of Lone Wolf: Dawn Over V’taag Right Now Posted by Jessica Fisher on November 26th, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Swords of Anima (Games)
Swords of Anima 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: A new tactical turn-based RPG experience. Command the Savior Rex Squad in an epic journey of courage and deception. Can you... | Read more »
Audio Defence: Zombie Arena
Audio Defence: Zombie Arena By Lee Hamlet on November 26th, 2014 Our Rating: :: DRAGS ITS FEETUniversal App - Designed for iPhone and iPad From the makers of Papa Sangre comes a defense game that forces players to listen carefully... | Read more »
Tales from the Borderland​s Will be Comi...
Tales from the Borderland​s Will be Coming to iOS by the End of the Year Posted by Jessica Fisher on November 26th, 2014 [ permalink ] Telltale Games has announced | Read more »
Sunburn! Review
Sunburn! Review By Campbell Bird on November 26th, 2014 Our Rating: :: DON'T DIE ALONEUniversal App - Designed for iPhone and iPad Platform through the depths of space to make sure your entire crew dies together in this satisfying... | Read more »

Price Scanner via MacPrices.net

2014 1.4GHz Mac mini on sale for $449, save $...
 B&H Photo has the new 1.4GHz Mac mini on sale for $449.99 including free shipping plus NY tax only. Their price is $50 off MSRP, and it’s the lowest price available for this new model. Adorama... Read more
Early Black Friday pricing on 27-inch 5K iMac...
 B&H Photo continues to offer Black Friday sale prices on the 27″ 3.5GHz 5K iMac, in stock today and on sale for $2299 including free shipping plus NY sales tax only. Their price is $200 off MSRP... Read more
Early Black Friday sale prices on iPad Air 2,...
 MacMall is discounting iPad Air 2s by up to $75 off MSRP as part of their Black Friday sale. Shipping is free: - 16GB iPad Air WiFi: $459 $40 off - 64GB iPad Air WiFi: $559 $40 off - 128GB iPad Air... Read more
Early Black Friday MacBook Air sale prices, $...
 MacMall has posted early Black Friday MacBook Air sale prices. Save $101 on all models for a limited time: - 11″ 1.4GHz/128GB MacBook Air: $798 - 11″ 1.4GHz/256GB MacBook Air: $998 - 13″ 1.4GHz/... Read more
Why iPhone 6 Tablet/Laptop Cannibalization Is...
247wallst.com blogger Douglas A. McIntyre noted last week that according to research posted on the Applovin blog site the iPhone 6 is outselling the iPhone 6 Plus by a wide margin . Hardly a surprise... Read more
Worldwide Tablet Growth Expected to Slow to 7...
The global tablet market is expected to record massive deceleration in 2014 with year-over-year growth slowing to 7.2%, down from 52.5% in 2013, according to a new forecast from International Data... Read more
Touchscreen Glove Company Announces New Produ...
Surrey, United Kingdom based TouchAbility specializes in design and manufacture of a wide variety of products compatible with touchscreen devices including smartphones, tablets and computers. Their... Read more
OtterBox Alpha Glass Screen Protectors for iP...
To complement the bigger, sharper displays on the latest Apple devices, OtterBox has introduced Alpha Glass screen protectors to the iPhone 6 and iPhone 6 Plus. The fortified glass screen protectors... Read more
Early Black Friday Mac Pro sale, 6-Core 3.5GH...
 B&H Photo has the 6-Core 3.5GHz Mac Pro on sale today for $3499 including free shipping plus NY sales tax. Their price is $500 off MSRP, and it’s the lowest price available for this model from... Read more
Early Black Friday sale price: 15-inch 2.2GHz...
 B&H Photo has the 2014 15″ 2.2GHz Retina MacBook Pro on sale today for $1699.99. Shipping is free, and B&H charges NY sales tax only. Their price is $300 off MSRP, equalling Best Buy’s price... Read more

Jobs Board

*Apple* Solutions Consultant (ASC) - Apple (...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
Senior Event Manager, *Apple* Retail Market...
…This senior level position is responsible for leading and imagining the Apple Retail Team's global event strategy. Delivering an overarching brand story; in-store, Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Solutions Consultant (ASC) - Apple (...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
*Apple* Solutions Consultant (ASC) - Apple (...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.