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
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

MacUpdate Desktop 6.0.8 - Search and ins...
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
BitTorrent Sync 2.1.1 - Sync files secur...
BitTorrent Sync allows you to sync unlimited files between your own devices, or share a folder with friends and family to automatically sync anything. File transfers are encrypted. Your information... Read more
Quicksilver 1.3.0 - Application launcher...
Quicksilver is a light, fast and free Mac application that gives you the power to control your Mac with keystrokes alone. Quicksilver allows you to find what you need quickly and easily, then act... Read more
iWatermark Pro 1.72 - Easily add waterma...
iWatermark Pro is the essential watermarking app for professional, business, and personal use. iWatermark, is the number 1 and only watermarking tool available for all 4 platforms iPhone/iPad, Mac,... Read more
RapidWeaver 6.3 - Create template-based...
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
Adobe Photoshop CC 2015 16.0.1 - Profess...
Photoshop CC 2015 is available as part of Adobe Creative Cloud for as little as $19.99/month (or $9.99/month if you're a previous Photoshop customer). Photoshop CS6 is still available for purchase (... Read more
Together 3.4.6 - Store and organize all...
Together helps you organize your Mac, giving you the ability to store, edit and preview your files in a single clean, uncluttered interface. Smart storage. With simple drag-and-drop functionality,... Read more
Monosnap 3.1.0 - Versatile screenshot ut...
Monosnap lets you capture screenshots, share files, and record video and .gifs! Capture: Capture full screen, just part of the screen, or a selected window Make your crop area pixel perfect with... Read more
Cocktail 8.5.1 - General maintenance and...
Cocktail is a general purpose utility for OS X that lets you clean, repair and optimize your Mac. It is a powerful digital toolset that helps hundreds of thousands of Mac users around the world get... Read more
Vienna 3.0.6 :5eaf312: - RSS and Atom ne...
Vienna is a freeware and Open-Source RSS/Atom newsreader with article storage and management via a SQLite database, written in Objective-C and Cocoa, for the OS X operating system. It provides... Read more

Five Nights at Freddy's 4 has Been...
In keeping with tradition, Five Nights at Freddy's 4 has made its way to the App Store with zero warning fanfare. Honestly I'd be disappointed it if happened any other way at this point. [Read more] | Read more »
Doom & Destiny Advanced (Games)
Doom & Destiny Advanced 2.3.4.0 Device: iOS Universal Category: Games Price: $.99, Version: 2.3.4.0 (iTunes) Description: ---SUPER GIGA LAUNCH DISCOUNT! Get it now for cheap or pay more later!---An additional 143 MB download is... | Read more »
Five Nights at Freddys 4 (Games)
Five Nights at Freddys 4 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: This time, the terror has followed you home. | Read more »
This Week at 148Apps: July 27-31, 2015
Winding Down July With 148Apps How do you know what apps are worth your time and money? Just look to the review team at 148Apps. We sort through the chaos and find the apps you're looking for. The ones we love become Editor’s Choice, standing out... | Read more »
You'll Want to Keep an Eye Out for...
If you're the kind of person who had fun hunting down and completing all the codex puzzles in Assassin's Creed 2, then are you ever in for a treat. The Guides looks like it's going to be a very robust collection of similarily odd, seemingly... | Read more »
Vivid Games has Announced Real Boxing 2...
The original Real Boxing was a pretty impressive bit of fisticuffs, but if the trailer Vivid Games is showing off for GamesCom is any indication Real Boxing 2 is going to be even better. [Read more] | Read more »
PAC-MAN Championship Edition DX - Tips,...
[Read more] | Read more »
Card King: Dragon Wars - Tips, Tricks an...
[Read more] | Read more »
Pac-Man Championship Edition DX has brou...
Bandai Namco has released Pac-Man Championship Edition DX on iOS and Android, which features the classic arcade gameplay that we've all grown to love. Pac-Man Championship Edition DX can be enjoyed in much shorter bursts than the arcade versions... | Read more »
Cosmonautica (Games)
Cosmonautica 1.1 Device: iOS Universal Category: Games Price: $6.99, Version: 1.1 (iTunes) Description: Cast off! Are you ready for some hilarious adventures in outer space? | Read more »

Price Scanner via MacPrices.net

MacBook 12 Retina Pundit’s New Favorite Mac
If you’re eyeing the purchase of a new 12-inch Retina MacBook, but wondering if you can live with a single USB-C port, 2011-level CPU performance, and the unorthodox keyboard, you should find... Read more
PDF Element Tool Kit For PDF For Windows 10,...
South Surrey, British Columbia based software developer Wondershare has posted an interesting infographic tracking the development of Microsoft’s flagship Windows operating system over the years,... Read more
27-inch 3.5GHz 5K iMac on sale for $81 off MS...
Adorama has the 27″ 3.5GHz 5K iMac on sale for $2218, $81 off MSRP, including a free copy of Apple’s 3-Year AppleCare Protection Plan. Shipping is free, and Adorama charges sales tax in NY & NJ... Read more
Back-to-School with Tablet and Smartphone Acc...
Belkin helps you prepare for the coming school year with a wide variety of the latest mobile and tablet accessories to outfit both grade school and college students. The line-up includes charging... Read more
11-inch MacBook Airs on sale for $100 off MSR...
Best Buy has 11-inch MacBook Airs on sale for $100 off MSRP. Choose free shipping or free local store pickup (if available). Sale prices for online orders only, in-store prices may vary: - 11″ 1.6GHz... Read more
iPad Air 2 on sale for up to $100 off MSRP
Best Buy has iPad Air 2s on sale for up to $100 off MSRP on their online store for a limited time. Choose free shipping or free local store pickup (if available). Sale prices available for online... Read more
Sale! 13-inch MacBook Pros on sale for $100 o...
B&H Photo has 13″ MacBook Pros on sale for $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 2.5GHz/500GB MacBook Pro: $999.99 save $100 - 13″ 2.7GHz/128GB Retina... Read more
Sale! Save $100 on 13-inch MacBook Airs this...
B&H Photo has the 13″ 1.6GHz/128GB MacBook Air on sale for $899.99 including free shipping plus NY tax only. Their price is $100 off MSRP, and it’s the lowest price available for this model.... Read more
Worldwide Tablet Market Decline Continues, Ap...
The worldwide tablet market declined -7.0% year-over-year in the second quarter of 2015 (2Q15) with shipments totaling 44.7 million units according to preliminary data from the International Data... Read more
TP-LINK TL-PA8030P KIT Powerline Featuring Ho...
Consumer and business networking products provider TP-LINK is now shipping its TL-PA8030P KIT AV1200 3-Port Gigabit Passthrough Powerline Starter Kit that expands your home’s network over its... Read more

Jobs Board

*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
Infrastructure Engineer - *Apple* /Mac - Hil...
Infrastructure Engineer - Apple /Mac Job Code: 1608 # of openings: 1 Description Our fortune 500 client is looking to hire an experienced Infrastructure Engineer to join Read more
Executive Administrative Assistant, *Apple*...
…supporting presentation development for senior leadership. * User experience with Apple hardware and software is preferred. Additional Requirements The following list Read more
*Apple* Bus Company is now hirin - Apple Bus...
Apple Bus Company is now hiring school bus drivers in the Pettis County area. Class B CDL preferred. Free training provided. No nights or weekends required. Flexible Read more
*Apple* Certified Mac Technician - Updated 6...
…and friendly, hands-on technical support to customers troubleshooting and repairing Apple /Mac products with courtesy, speed and skill. Use your problem-solving skills Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.