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
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

OmniOutliner Pro 4.6 - Pro version of th...
OmniOutliner Pro is a flexible program for creating, collecting, and organizing information. Give your creativity a kick start by using an application that's actually designed to help you think. It's... Read more
Alfred 3.1 - Quick launcher for apps and...
Alfred is an award-winning productivity application for OS X. Alfred saves you time when you search for files online or on your Mac. Be more productive with hotkeys, keywords, and file actions at... Read more
OmniOutliner 4.6 - Organize your ideas,...
OmniOutliner is a flexible program for creating, collecting, and organizing information. Give your creativity a kick start by using an application that's actually designed to help you think. It's... Read more
Default Folder X 5.0.6 - Enhances Open a...
Default Folder X attaches a toolbar to the right side of the Open and Save dialogs in any OS X-native application. The toolbar gives you fast access to various folders and commands. You just click on... Read more
Adobe Creative Cloud 3.8.0.310 - Access...
Adobe Creative Cloud costs $19.99/month for a single app, or $49.99/month for the entire suite. Introducing Adobe Creative Cloud desktop applications, including Adobe Photoshop CC and Illustrator CC... Read more
MYStuff Pro 2.0.25 - Create inventories...
MYStuff Pro is the most flexible way to create detail-rich inventories for your home or small business. Add items to MYStuff by dragging and dropping existing information, uploading new images, or... Read more
Viber 6.2.0 - Send messages and make cal...
Viber lets you send free messages and make free calls to other Viber users, on any device and network, in any country! Viber syncs your contacts, messages and call history with your mobile device, so... Read more
Data Rescue 4.2.3 - Powerful hard drive...
Use Data Rescue to recover: crashed, corrupted or non-mounting hard drive deleted, damaged, or lost files reformatted or erased hard drive One powerful new feature found in Data Rescue 4 is... Read more
Microsoft Remote Desktop 8.0.34 - Connec...
With Microsoft Remote Desktop, you can connect to a remote PC and your work resources from almost anywhere. Experience the power of Windows with RemoteFX in a Remote Desktop client designed to help... Read more
Microsoft Remote Desktop 8.0.34 - Connec...
With Microsoft Remote Desktop, you can connect to a remote PC and your work resources from almost anywhere. Experience the power of Windows with RemoteFX in a Remote Desktop client designed to help... Read more

Find out the story behind League of Ange...
If you’re looking for a new thrilling MMORPG to play with your friends then you’ll be excited to hear that there is a sequel to one of the most well known titles in the genre – namely League of Angels 2. With a brand new 3D engine offering... | Read more »
Naruto Shippuden: Ultimate Ninja Blazing...
I'm not sure if it's possible to say you are an anime fan but also never have seen one episode of Naruto. If it is, then I resemble that remark, and if not, I offer a hearty apology. [Read more] | Read more »
5 mobile games that let you explore spac...
No Man's Sky hasn't exactly turned out to be everything it was promised. Though its core concept of exploring an unimaginably vast universe of different planets is an intriguing one, the execution has left many PS4 and PC gamers feeling like they... | Read more »
Mummy madness in new action game Tomb He...
Hot on the tail of Bump Hero, ZPlay is giving gamers another reason to get screen bashing with a brand new release. Tomb Heroes is a challenging action game in which you battle enemies in various tombs around the world. You can select from nine... | Read more »
Siralim 2 (RPG / Roguelike) (Games)
Siralim 2 (RPG / Roguelike) 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Siralim 2 is an old-school monster catching RPG. Summon and customize hundreds of creatures to fight for you as... | Read more »
Clean Text (Productivity)
Clean Text 1.0 Device: iOS Universal Category: Productivity Price: $3.99, Version: 1.0 (iTunes) Description: | Read more »
Gemini - A Journey of Two Stars (Games)
Gemini - A Journey of Two Stars 1.0.1 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.1 (iTunes) Description: *** SPECIAL LAUNCH SALE: $2.99 (25% off) *** "A mesmerizing and unexpectedly emotional journey." -- Los... | Read more »
How to get four NFL superstars for your...
Even though you're probably well on your way to building a top notch squad for the new season in Madden NFL Mobile, let's say you could beef it up by adding Rob Gronkowski, Antonio Brown, Von Miller, and Todd Gurley to your roster. That's... | Read more »
Cartoon Network Superstar Soccer: Goal!!...
Cartoon Network Superstar Soccer: Goal!!! – Multiplayer Sports Game Starring Your Favorite Characters 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Become a soccer superstar with your... | Read more »
NFL Huddle: What's new in Topps NFL...
Can you smell that? It's the scent of pigskin in the air, which either means that cliches be damned, pigs are flying in your neck of the woods, or the new NFL season is right around the corner. [Read more] | Read more »

Price Scanner via MacPrices.net

RESCUECOM 2016 Semi-Annual Computer Reliabili...
The beginning of a new school year is upon us again, in which students and parents have some very important choices to make, often including the purchase of a computer or tablet. Whether you are... Read more
VRS Design Damda Glide Series iPhone 7 and 7...
What makes the Damda Glide Series for the iPhone 7 and iPhone 7 Plus special? Case maker VRS Design says its Damda Glide Series is the first mobile case to incorporate a semi-automatic mechanism for... Read more
Apple refurbished iMacs available for up to $...
Apple has Certified Refurbished 2015 21″ & 27″ iMacs available for up to $350 off MSRP. Apple’s one-year warranty is standard, and shipping is free. The following models are available: - 21″ 3.... Read more
Clearance 2015 13-inch MacBook Airs available...
B&H Photo has clearance 2015 13″ MacBook Airs available for $350 off original MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 1.6GHz/4GB/128GB MacBook Air (MJVE2LL/A): $829... Read more
Check Apple prices on any device with the iTr...
MacPrices is proud to offer readers a free iOS app (iPhones, iPads, & iPod touch) and Android app (Google Play and Amazon App Store) called iTracx, which allows you to glance at today’s lowest... Read more
Save $120 with Apple refurbished Time Capsule...
Apple has certified refurbished Time Capsules available for $120 off MSRP. Apple’s one-year warranty is included with each Time Capsule, and shipping is free: - 2TB Time Capsule: $179, $120 off (not... Read more
9-inch 32GB iPad Pros on sale for $70 off MSR...
B&H Photo has 9″ 32GB WiFi Apple iPad Pros on sale for $70 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 9″ Space Gray 32GB WiFi iPad Pro: $529 $70 off MSRP - 9... Read more
Mac minis on sale for up to $140 off MSRP
Adorama has Mac minis on sale for up to $100 off MSRP including free shipping plus NY & NJ sales tax only: - 1.4GHz Mac mini: $449 $50 off MSRP - 2.6GHz Mac mini: $649 $50 off MSRP Amazon has the... Read more
Back To School with OtterBox Essentials
Back to school means back to an environment that is tough on tech. OtterBox has the back to school essentials you need to keep tech safe from drops, bumps, scratches and hallway havoc. Check out the... Read more
VRS Design Releases New iPhone 7 Plus Case Li...
With a device as large and costly as the iPhone 7 Plus, it is primal instinct to protect it from potential damage. According to a study by SquareTrade in 2012, iPhone damages cost Americans roughly $... Read more

Jobs Board

*Apple* Solutions Consultant - Apple (United...
# Apple Solutions Consultant Job Number: 51218354 Fredericksburg, Virginia, United States Posted: Aug. 18, 2016 Weekly Hours: 40.00 **Job Summary** As an Apple 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
*Apple* /Mac Support Engineer - GFI Digital,...
FI Digital, Inc. is currently seeking candidates for a full time Apple Support Engineer to add to our Maryland Heights, Missouri IT team. Candidates must be dynamic Read more
*Apple* Solutions Consultant - Apple (United...
Apple Solutions ConsultantJob Number: 51218534Pleasant Hill, California, United StatesPosted: Aug. 18, 2016Weekly Hours: 40.00Job SummaryAs an Apple Solutions Read more
*Apple* Solutions Consultant - Apple (United...
# Apple Solutions Consultant Job Number: 51443201 Mishawaka, Indiana, United States Posted: Aug. 25, 2016 Weekly Hours: 40.00 **Job Summary** As an Apple Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.