TweetFollow Us on Twitter

Color, DragRgn
Volume Number:4
Issue Number:1
Column Tag:Basic School

Color & DragGrayRgn Explored

By Dave Kelly, MacTutor Editorial Board

MAC II takes on BASIC

Yes, I know that it has been about a year since the Macintosh II was released and not a word from me on how the Basic works on the Mac II. The Mac II really is a wonderful machine, although there are still a few incompatibilities and inconveniences. But all in all I still give the Mac II an A+.

The curiosity lies in figuring out what works (or doesn’t work) on the Mac II. The Mac II has features that did not even exist when most of the versions of Basic were written. Some things like color and screen size aren’t supported properly, or at all, even though the software was capable before the Mac II came.

It’s fast. For example, just take a look at what it did for the Byte Magazine January 1983 Prime number benchmark program, known as the Sieve. ZBasic™ comes up with a 2 second time, MS Basic Binary interpreter with 129 second time (about the same as True Basic on the Mac Plus), and 15 seconds for the MS Basic compiler. Of course, everything is faster so it is all relative. Since we already know that the Mac II is faster and have a good idea about which versions of Basic are faster, there is no need to go into that here. For more information comparing the various versions of Basic, see MacTutor, Aug 1986, Feb. 1987 and Mar. 1987.

Screen Size: With the advent of the larger screen (also available for Mac Plus and SE) we see the need to be fully compatible with all size monitors. MS Basic opens its default windows to 512 X 342, the size of the SE and MacPlus screens. That works out alright since it still isn’t known what kind of Mac might be running the program. Double-clicking the title bar causes MS Basic windows to zoom to full screen size. The LIST windows won’t expand horizontally beyond the 512 limit, but will expand vertically to the bottom of the screen. The most annoying thing is that none of the windows can be moved below a certain point on the screen which is very close to the place where the bottom of the 9" screen would be (342). This means that you can never move the command window out of the way; you have to close it just like on a Mac Plus.

True Basic v. 1.1, which I haven’t looked at for awhile, opens the default window to full screen size. Of course, True Basic still has all the HFS problems and other limitations which I have discussed in past issues of MacTutor (Best of MacTutor Vol 2, pg 379 or August 1986). (Version 1.1 is the latest that I have).

ZBasic Ver. 4.1 windows also open to full screen size. There doesn’t appear to be any compatibility problems here at all. As I write this, the ZBasic promised editor has still not been completed.

Color support: This is only a big deal to those of you with a Mac II with a color monitor ( I wouldn’t have one any other way!!). As you know, the original Quickdraw supports 8 colors already. I feel that it shows short-sightedness to not at least support that much. But both MS Basic and True Basic have NO color support even though both languages include means to change color from black to white. Other versions (on other computers whose names we won’t say) of True Basic support a small set of colors. MS Basic uses color as a parameter in the syntax for the CIRCLE statement, yet you can’t get any colors except black and white.

ZBasic, however, does support the 8 colors in Quickdraw. That’s only 8 colors for now, but I would expect that they will make improvements to this in some later version (who knows when?). So meanwhile, if you want color you will have to settle with the 8 basic colors. There are a few differences between ZBasic color statements and Quickdraw color statements. In order to standardize ZBasic, Zedcor has numbered the colors from 0 to 7. Quickdraw, however, has its own designation for each color as the following chart shows:

The color codes in ZBasic and QuickDraw CANNOT be substituted for each other. You will have to either use Quickdraw graphics or ZBasic graphics or be careful not to mix the code with the wrong call. Sure, setting the color is easy, but be sure to use the right code with the right statement.

This month’s program demonstrates the colors available in ZBasic and gives you an example of its use. All you have to do is set the color before issuing a graphics drawing statement and either Quickdraw or ZBasic (which probably uses Quickdraw anyway) will use the color you selected.

What’s missing? Color QuickDraw™ that’s what. Fortunately, Zedcor has been very responsive to updating ZBasic. I’m sure that it isn’t easy for them to keep updating everyone so often. Let’s hope that the next version of ZBasic will include the long awaited editor, Color QuickDraw and other major improvements. Read on!

[The slow response by the Basic compiler makers to upgrade their products to meet the requirements of Mutifinder, System 4.2 and the Macintosh II, has been really disappointing! There is still a pressing need for a reliable, engineering oriented Basic that provides full access to the Macintosh capabilities and can function in a workstation environment (ie, it can do math correctly and quickly). We encourage both the present Basic compiler makers to address this issue, as well as those we haven't seen in this marketplace, like Borland, to enter it, and hopefully unite a fragmented and frustrated market. -Ed]

{1}
‘ColorBasic
‘MacTutor, 1988
‘By Dave Kelly

WINDOW OFF
COORDINATE WINDOW
‘A color chart for future reference
DIM rect%(3)
MENU 1,0,1,”File”
MENU 1,1,1,”Quit”
EDIT MENU 2
MENU 3,0,1,”Colors”
MENU 3,1,1,”ZBasic™ Commands”
MENU 3,2,1,”ToolBox Commands”
MENU 3,3,1,”Erase window”
theEnd=0:REM theEnd will never come.

‘Make QuickDraw Color Assignments
blackColor&=33
whiteColor&=30
redColor&=205
greenColor&=341
blueColor&=409
cyanColor&=273
magentaColor&=137
yellowColor&=69

‘Make ZBasic Color Assignments
white=0
yellow=1
green=2
cyan=3
blue=4
magenta=5
red=6
black=7
WINDOW 1,”Color Demo Window”,(4,38)-(450,200),4
GOSUB “ZBasic™ Colors”: ‘ Print something to start
ON MENU GOSUB “MenuEvent”
MENU ON
theEnd=0:REM theEnd will never come.
DO
 UNTIL theEnd

MENU OFF

“MenuEvent”
Menunumber%=MENU(0)
Menuitem%=MENU(1)
MENU
IF Menunumber%=1 AND Menuitem%=1 THEN “Quit”
IF Menunumber%=3 AND Menuitem%=1 THEN 
 GOSUB “ZBasic™ Colors”
IF Menunumber%=3 AND Menuitem%=2 THEN 
 GOSUB “QuickDraw™ Colors”
IF Menunumber%=3 AND Menuitem%=3 THEN CLS:PRINT@(1,3)”The Colors are 
now cleared!”
RETURN

“Quit”
END

“ZBasic™ Colors”
CLS
TEXT 2,14,0,0
PRINT%(170,20) “ZBasic™ Colors”
COLOR=white
BOX FILL 5,50 TO 55,100
COLOR=yellow
BOX FILL 60,50 TO 110,100
COLOR=green
BOX FILL 115,50 TO 165,100
COLOR=cyan
BOX FILL 170,50 TO 220,100
COLOR=blue
BOX FILL 225,50 TO 275,100
COLOR=magenta
BOX FILL 280,50 TO 330,100
COLOR=red
BOX FILL 335,50 TO 385,100
COLOR=black
BOX FILL 390,50 TO 440,100
BOX 5,50 TO 55,100
BOX 60,50 TO 110,100
BOX 115,50 TO 165,100
BOX 170,50 TO 220,100
BOX 225,50 TO 275,100
BOX 280,50 TO 330,100
BOX 335,50 TO 385,100
BOX 390,50 TO 440,100
TEXT 2,10
PRINT%(25,48) white
PRINT%(75,48) yellow
PRINT%(130,48) green
PRINT%(190,48) cyan
PRINT%(240,48) blue
PRINT%(300,48) magenta
PRINT%(355,48) red
PRINT%(410,48) black
PRINT%(25,112) whiteColor&
PRINT%(75,112) yellowColor&
PRINT%(130,112) greenColor&
PRINT%(190,112) cyanColor&
PRINT%(240,112) blueColor&
PRINT%(300,112) magentaColor&
PRINT%(350,112) redColor&
PRINT%(410,112) blackColor&
TEXT 2,14
PRINT%(150,140) “QuickDraw™ Colors”
RETURN

“QuickDraw™ Colors”
CLS
CALL MOVETO (170,20)
CALL TEXTFONT(2)
CALL TEXTSIZE(14)
CALL DRAWSTRING (“ZBasic™ Colors”)
CALL SETRECT(rect%(0),5,50,55,100)
CALL FORECOLOR(whiteColor&)
CALL PAINTRECT(rect%(0))
CALL SETRECT(rect%(0),60,50,110,100)
CALL FORECOLOR(yellowColor&)
CALL PAINTRECT(rect%(0))
CALL SETRECT(rect%(0),115,50,165,100)
CALL FORECOLOR(greenColor&)
CALL PAINTRECT(rect%(0))
CALL SETRECT(rect%(0),170,50,220,100)
CALL FORECOLOR(cyanColor&)
CALL PAINTRECT(rect%(0))
CALL SETRECT(rect%(0),225,50,275,100)
CALL FORECOLOR(blueColor&)
CALL PAINTRECT(rect%(0))
CALL SETRECT(rect%(0),280,50,330,100)
CALL FORECOLOR(magentaColor&)
CALL PAINTRECT(rect%(0))
CALL SETRECT(rect%(0),335,50,385,100)
CALL FORECOLOR(redColor&)
CALL PAINTRECT(rect%(0))
CALL SETRECT(rect%(0),390,50,440,100)
CALL FORECOLOR(blackColor&)
CALL PAINTRECT(rect%(0))
CALL SETRECT(rect%(0),5,50,55,100)
CALL FRAMERECT(rect%(0))
CALL SETRECT(rect%(0),60,50,110,100)
CALL FRAMERECT(rect%(0))
CALL SETRECT(rect%(0),115,50,165,100)
CALL FRAMERECT(rect%(0))
CALL SETRECT(rect%(0),170,50,220,100)
CALL FRAMERECT(rect%(0))
CALL SETRECT(rect%(0),225,50,275,100)
CALL FRAMERECT(rect%(0))
CALL SETRECT(rect%(0),280,50,330,100)
CALL FRAMERECT(rect%(0))
CALL SETRECT(rect%(0),335,50,385,100)
CALL FRAMERECT(rect%(0))
CALL SETRECT(rect%(0),390,50,440,100)
CALL FRAMERECT(rect%(0))
CALL TEXTSIZE (10)
CALL MOVETO (25,48)
PRINT white
CALL MOVETO (75,48)
PRINT yellow
CALL MOVETO (130,48)
PRINT green
CALL MOVETO (190,48)
PRINT cyan
CALL MOVETO (240,48)
PRINT blue
CALL MOVETO (300,48)
PRINT magenta
CALL MOVETO (355,48)
PRINT red
CALL MOVETO (410,48)
PRINT black
CALL MOVETO (25,112)
PRINT whiteColor&
CALL MOVETO (75,112)
PRINT yellowColor&
CALL MOVETO (130,112)
PRINT greenColor&
CALL MOVETO (190,112)
PRINT cyanColor&
CALL MOVETO (240,112)
PRINT blueColor&
CALL MOVETO (300,112)
PRINT magentaColor&
CALL MOVETO (350,112)
PRINT redColor&
CALL MOVETO (410,112)
PRINT blackColor&
CALL TEXTSIZE(14)
CALL MOVETO (150,140)
CALL DRAWSTRING (“QuickDraw™ Colors”)
RETURN

Basic Answers to Basic Questions

Concerning the comment in the Nov. 1987 issue of MacTutor where Steve Millman suggested a method of applying an event loop for reading disk events: The main problem here is that a disk event might be inserted while not in the GetNextEvent loop. The disk insert would be missed completely. I have been assured by Zedcor that in a future release of ZBasic they will add the Disk insert event to the DIALOG functions. This is easy for them to do since GETNEXTEVENT returns this to them anyway. For now, just do what Steve Millman suggests or don’t bother checking for disks at all until the new improvements come.

Q. I want to use in my program a DragGrayRect statement (the same as you see in MS Basic), but I want to use it in ZBasic. Is this possible?

A. DragGrayRect is only available as an MS Basic library call (previously known as a Clear Lake Research Library call). The alternative is to use DragGrayRgn where the region is in the shape of a rectangle. DragGrayRgn is a ROM call where as DragGrayRect is a library subroutine derived from ROM calls (probably uses DragGrayRgn). Another alternative that would require more work would be to write your own DragGrayRect function to use in any of your programs. The following program includes an example of this function. The function itself can be saved to the disk with SAVE+ and retrieved later for use in other programs with APPEND. Hope that this helps.

{2}
‘Drag Example
‘By Dave Kelly
‘©MacTutor, 1988

WINDOW OFF
COORDINATE WINDOW
DEF MOUSE=-1
DIM Rect%(3),pt%(1),pin%(3),bnd%(3),dir%,dis&
pt%(0)=mousey%:pt%(1)=mousex%
‘Create DragGrayRect function
LONG FN DragGrayRect&(RL%,RT%,RR%,RB%,  mousey,mousex, PL%,PT%,PR%,PB%,BL%,BT%,BR%, 
 BB%,dir%)
‘Rect%  = the rectangle to be moved
‘pt%    = the point where the mouse was pushed.
‘pin% = the rectangular limits in which outline can be
‘dragged.
‘bnd% = the rectangular boundary for a drag.
‘dir% = the direction to which the drag is constrained
‘0 = no constraint, 1 = horizontal, 2 = vertical
‘dis& = A point array that returns drag displacement.
 CALL SETRECT(Rect%(0),RL,RT,RR,RB)
 CALL SETRECT(pin%(0),PL,PT,PR,PB)
 CALL SETRECT(bnd%(0),BL,BT,BR,BB)
 RgnHand&=FN NEWRGN
 CALL OPENRGN
 CALL FRAMERECT(Rect%(0))
 CALL CLOSERGN(RgnHand&)
 pt%(0)=mousey%:pt%(1)=mousex%:Proc&=0:dis&=0
 dis&=FN DRAGGRAYRGN(RgnHand&, pt%(0), pin%(0), bnd%(0), dir%,Proc&)
 CALL DISPOSERGN(RgnHand&)
END FN=dis&
‘Find out monitor 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,”DragExample”,(PortLeft+4,PortTop+42)-                
 (PortRight-6, PortBottom-6),5
MENU 1,0,1,”File”
MENU 1,1,1,”Quit”
top=100:left=100
GOSUB “DrawBox”
MOUSE ON:MENU ON:DIALOG ON
ON MOUSE GOSUB “MouseEvent”
ON MENU GOSUB “MenuEvent”
ON DIALOG GOSUB “DialogEvent”
“Loop”
DO
UNTIL Done
MOUSE OFF:MENU OFF:DIALOG OFF

“DialogEvent”
D=DIALOG(0)
IF D=4 THEN END
RETURN

“MenuEvent”
Menunumber=MENU(0)
Menuitem=MENU(1)
IF Menunumber=1 AND Menuitem=1 THEN END
MENU
RETURN

“MouseEvent”
X=MOUSE(0)
mousey=MOUSE(2):mousex=MOUSE(1)
dir%=0
dis&= FN DragGrayRect&(left,top, left+100, top+100, mousey,    
 mousex, PortLeft, PortTop, PortRight, PortBottom,             PortLeft, 
PortTop, PortRight,PortBottom,dir%)
dy=FN HIWORD(dis&)
dx=FN LOWORD(dis&)
LONG IF dx<>0 AND dy<>0
 CALL ERASERECT(Rect%(0))
 top=top+dy:left=left+dx
 GOSUB “DrawBox”
END IF
RETURN

“DrawBox”
CALL SETRECT(Rect%(0),left,top,left+100,top+100)
CALL FORECOLOR(205): ‘ color = red
CALL PAINTRECT(Rect%(0))
RETURN
 
AAPL
$97.67
Apple Inc.
+1.41
MSFT
$43.63
Microsoft Corpora
+0.89
GOOG
$511.17
Google Inc.
-13.34

MacTech Search:
Community Search:

Software Updates via MacUpdate

Coda 2.5 - One-window Web development su...
Coda is a powerful Web editor that puts everything in one place. An editor. Terminal. CSS. Files. With Coda 2, we went beyond expectations. With loads of new, much-requested features, a few... Read more
Arq 4.6.1 - Online backup to Google Driv...
Arq is super-easy online backup for the Mac. Back up to your own Google Drive storage (15GB free storage), your own Amazon Glacier ($.01/GB per month storage) or S3, or any SFTP server. Arq backs up... Read more
Airfoil 4.8.10 - Send audio from any app...
Airfoil allows you to send any audio to AirPort Express units, Apple TVs, and even other Macs and PCs, all in sync! It's your audio - everywhere. With Airfoil you can take audio from any... Read more
Apple iMovie 10.0.6 - Edit personal vide...
With an all-new design, Apple iMovie lets you enjoy your videos like never before. Browse your clips more easily, instantly share your favorite moments, and create beautiful HD movies and Hollywood-... Read more
OnyX 2.8.8 - Maintenance and optimizatio...
OnyX is a multifunctional utility for OS X. It allows you to verify the startup disk and the structure of its System files, to run miscellaneous tasks of system maintenance, to configure the hidden... Read more
Parallels Desktop 10.1 - Run Windows app...
Parallels Desktop is simply the world's bestselling, top-rated, and most trusted solution for running Windows applications on your Mac. With Parallels Desktop for Mac, you can seamlessly run both... Read more
Apple Keynote 6.5 - Apple's present...
Apple Keynote makes it simple to create and deliver beautiful presentations. Powerful tools and dazzling effects bring your ideas to life. You can work seamlessly between Mac and iOS devices. And... Read more
OmniPlan 2.3.7 - Robust project manageme...
With OmniPlan, you can create logical, manageable project plans with Gantt charts, schedules, summaries, milestones, and critical paths. Break down the tasks needed to make your project a success,... Read more
Flavours 1.1.16 - Create and apply theme...
Flavours is a Mac application that allow users to create, apply and share beautifully designed themes. Classy Give your Mac a gorgeous new look by applying delicious themes! Easy Unleash your... Read more
Duplicate Annihilator 5.1.0 - Find and d...
Duplicate Annihilator takes on the time-consuming task of comparing the images in your iPhoto library using effective algorithms to make sure that no duplicate escapes. Duplicate Annihilator detects... Read more

Latest Forum Discussions

See All

My Very Hungry Caterpillar (Education)
My Very Hungry Caterpillar 1.0.0 Device: iOS Universal Category: Education Price: $3.99, Version: 1.0.0 (iTunes) Description: Care for your very own Very Hungry Caterpillar! My Very Hungry Caterpillar will captivate you as he crawls... | Read more »
Dungeon Dick (Games)
Dungeon Dick 1.1 Device: iOS Universal Category: Games Price: $.99, Version: 1.1 (iTunes) Description: Dungeon Dick is a fantasy adventure where you must discover the wicked plot to destroy the lands . 'Fling' at your foes and land... | Read more »
Here’s How the Apple Watch Could Transfo...
With the Apple Watch’s generic release date of, “early 2015” hovering on the horizon, it’s only a matter of time before gamers begin to ask “What’s in it for us?” The obvious choice would be to place entire games directly on the face of the watch,... | Read more »
Republique Episode 3: Ones & Zeroes...
Republique Episode 3: Ones & Zeroes is Available Now Posted by Rob Rich on October 17th, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Loot Raiders Review
Loot Raiders Review By Campbell Bird on October 17th, 2014 Our Rating: :: PRESS BUTTON, GET LOOTUniversal App - Designed for iPhone and iPad This menu-based loot game is suitable to compel those with pretty extreme loot lust.   | Read more »
Angry Birds are Crashing Puzzle & Dr...
Angry Birds are Crashing Puzzle & Dragons Next Week Posted by Rob Rich on October 17th, 2014 [ permalink ] Next week, Puzzle & Dragons is getting a little angry. Because, you know, Angry Birds. It’s a… a pun. I thought… never mind. | Read more »
Incandescence Review
Incandescence Review By Andrew Fisher on October 17th, 2014 Our Rating: :: ALL TAPPED OUTUniversal App - Designed for iPhone and iPad Incandescence promises intense tapping action, but isn’t particularly fun.   | Read more »
Lion Pig (Games)
Lion Pig 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: "Leaving aside the biology of how a pig and a lion might meet, fall in love, and create this curious cross-breed, Lion Pig is a... | Read more »
Zero Lives (Games)
Zero Lives 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Zero Lives is a puzzle game. Simple and elegant at its core but deep and captivating the more you play. Each puzzle will challenge... | Read more »
#SUPERHYPER (Games)
#SUPERHYPER 001 Device: iOS Universal Category: Games Price: $.99, Version: 001 (iTunes) Description: "This is a game that fans of challenging minimalist arcade games, not to mention pixel art, should keep an eye on" - Touch Arcade "... | Read more »

Price Scanner via MacPrices.net

Apple Pay Available to Millions of Visa Cardh...
Visa Inc. brings secure, convenient payments to iPad Air 2 and iPad mini 3as well as iPhone 6 and 6 Plus. Starting October 20th, eligible Visa cardholders in the U.S. will be able to use Apple Pay,... Read more
Textkraft Pocket – the missing TextEdit for i...
infovole GmbH has announced the release and immediate availability of Textkraft Pocket 1.0, a professional text editor and note taking app for Apple’s iPhone. In March 2014 rumors were all about... Read more
C Spire to offer iPad Air 2 and iPad mini 3,...
C Spire on Friday announced that it will offer iPad Air 2 and iPad mini 3, both with Wi-Fi + Cellular, on its 4G+ LTE network in the coming weeks. C Spire will offer the new iPads with a range of... Read more
Belkin Announces Full Line of Keyboards and C...
Belkin International has unveiled a new lineup of keyboard cases and accessories for Apple’s newest iPads, featuring three QODE keyboards and a collection of thin, lightweight folios for both the... Read more
Verizon offers new iPad Air 2 preorders for $...
Verizon Wireless is accepting preorders for the new iPad Air 2, cellular models, for $100 off MSRP with a 2-year service agreement: - 16GB iPad Air 2 WiFi + Cellular: $529.99 - 64GB iPad Air 2 WiFi... Read more
Price drops on refurbished Mac minis, now ava...
The Apple Store has dropped prices on Apple Certified Refurbished previous-generation Mac minis, with models now available starting at $419. Apple’s one-year warranty is included with each mini, and... Read more
Apple refurbished 2014 MacBook Airs available...
The Apple Store has Apple Certified Refurbished 2014 MacBook Airs available for up to $180 off the cost of new models. An Apple one-year warranty is included with each MacBook, and shipping is free.... Read more
Refurbished 2013 MacBook Pros available for u...
The Apple Store has Apple Certified Refurbished 13″ and 15″ MacBook Pros available starting at $929. Apple’s one-year warranty is standard, and shipping is free: - 13″ 2.5GHz MacBook Pros (4GB RAM/... Read more
WaterField Designs Unveils Outback iPad Slip...
Fresh on the heels of Apple’s announcement Thursday, WaterField Designs unveils its new Outback Slip Case for the iPad Air 2 and iPad mini 3 — a custom-fitted case for the just-announced Apple iPads... Read more
Apple Introduces iPad Air 2 & iPad mini 3...
Apple on Thursday introduced iPad Air 2, slimmed down again to just 6.1 mm, and weighing less than a pound. iPad Air 2 also features an improved Retina display claimed to deliver enhanced contrast... Read more

Jobs Board

Position Opening at *Apple* - Apple (United...
**Job Summary** At the Apple Store, you connect business professionals and entrepreneurs with the tools they need in order to put Apple solutions to work in their Read more
Position Opening at *Apple* - Apple (United...
**Job Summary** The Apple Store is a retail environment like no other - uniquely focused on delivering amazing customer experiences. As an Expert, you introduce people Read more
Position Opening at *Apple* - Apple (United...
**Job Summary** As businesses discover the power of Apple computers and mobile devices, it's your job - as a Solutions Engineer - to show them how to introduce these Read more
Position Opening at *Apple* - Apple (United...
…Summary** As a Specialist, you help create the energy and excitement around Apple products, providing the right solutions and getting products into customers' hands. You Read more
Project Manager, *Apple* Financial Services...
**Job Summary** Apple Financial Services (AFS) offers consumers, businesses and educational institutions ways to finance Apple purchases. We work with national and Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.