TweetFollow Us on Twitter

Foundation Of Quickdraw
Volume Number:1
Issue Number:2
Column Tag:features of Mac Pascal

QuickDraw Graphics

By Chris Derossi

One of the most valuable features of Mac Pascal is it ability to take advantage of the Macintosh’s powerful ROM capabilities. To do this, Mac Pascal must be able to access the various routines that are contained within the Mac Toolbox. In this month’s column, we will examine the interface between Mac Pascal and the ROM, and the necessary data structures for accessing quickdraw. Finally, a sample program is included which makes use of quickdraw’s graphics routines.

In order to communicate to the Toolbox, several data structures have to be defined. These data structures are all presented in Pascal format because the routines contained in the Mac ROM are constructed for a Pascal environment. Unlike other programming languages, this makes data compatiblitly pretty much straight forward for Mac Pascal users. But before we get into the details, let’s briefly describe some of the theory behind QuickDraw.

FOUNDATION OF QUICKDRAW

QuickDraw graphics exist in cartesian coordinate planes. What this means is that graphics may be present on any portion of a continuous surface. The QuickDraw planes are finite, and extend from values -32768 to 32767 in both the vertical and horizontal directions. The smallest unit of distance that QuickDraw can work with is 1. An area of 1 by 1 is, therefore, a point. The boundary separating two points at sequential locations of the plane is of size zero. This means that two points placed next to each other are continuous, and have no space between them. Keep in mind that these are theoretical concepts, not screen bit-map specifications.

QUICKDRAW DATA STRUCTURES

In Mac Pascal, the data structure ‘Point’ is a record with two components representing the coordinates of the upper left corner of a point. The two fields of Point are Point.h and Point.v which are the horizontal and vertical coordinates respectively. Each value is of type Integer.

The rectangle is a common object found in QuickDraw. Rectangles are frequently used to create windows, define drawing areas, and to provide parameters for manipualting other objects. A rectangle has four parameters. These are: Top, Left, Bottom, and Right. These parameters may be thought of as four integers, or as the two points TopLeft and BottomRight. In actuality, the second method is used, and the type ‘Rect’ is defined as a record with the two fields Rect.TopLeft and Rect.BotRight. Each of the fields is of type point.

Another object defined with points is the line. Although there is no Mac Pascal data type for this object, it can be characterized by two points, for the beginning and ending positions of the line.

The final data type we will examine this month is the pattern. QuickDraw allows regions to be filled with patterns, as is done with the paint bucket in MacPaint. A pattern is a set of sixty-four points either on or off, arranged in an eight by eight square. To fill an area larger than eight by eight, the Macintosh repeats the pattern both vertically and horizontally as many times as neccessary. The upper left corner of the pattern is aligned with the coordinate (0,0), and is independent of the coordinates of the area being filled.

Since a byte is eight bits, and a bit represents one point, patterns can be represented as a series of eight bytes. In Mac Pascal, the type ‘Pattern’ is an array [0..7] of 0..255, which is effectively eight sequential bytes. There are some predefined patterns including White, Black, and Grey.

DRAWING IN QUICKDRAW

The drawing mechanism in QuickDraw is the Pen. The pen has modifyable properties which include location, width, height, and pattern. There are further properties which will be covered in a later column. A pen of width and height of one, and a pattern of black will always draw with one-point wide, black lines.

In addition to the many objects of QuickDraw, many actions are available to be performed on or with them. Most objects may be Framed, Painted, Filled, and Erased. The QuickDraw actions are called QuickDraw verbs, and they are applied to objects. The verb Frame specifies that the outline of the given object should be drawn. The verb Paint means that the object is drawn completely filled. Each of these actions use the pen for drawing, and as such use the current pen pattern. The verb Erase does not use the pen pattern, but instead uses the pattern currently set for the background. Fill allows you to specify a pattern to use, and is therefore a little bit more versatile than Paint.

For example, FrameRect will draw the outline of a rectangle, while PaintRect will draw a solid rectangle. FillRect will draw a solid rectangle in the given pattern. EraseRect clears the given rectangle to the current background pattern.

Each verb-object combination is a procedure, and takes applicable parameters. The Rect procedures take a rectangle as their only parameter. The FillRect procedure needs a Rect first, and a Pattern second. The rectangle is drawn as a solid with the pattern.

A frequently encountered situation is one where the Macintosh needs to know if a given point is inside a particular rectangle. (i.e. is the mouse’s position inside a certain window?) To satisfy this need, a function titled PtInRect returns a boolean of True if the point is inside the rectangle, and False if not. The parameters of this function are a point first, and then a rectangle.

PROGRAMMING EXAMPLE

Now let us examine the example program that makes use of these data structures, procedures, and functions. The operation of the program is fairly simple and straight forward. The user is presented with a blank background and the mouse pointer. The user forms rectangles by pressing the mouse button when the pointer is at one of the rectangle’s corners, and holds the button down while dragging the mouse to the opposite diagonal corner. In order to provide some feedback about the shape of the rectangle, a ‘rubber banding’ diagonal line follows the mouse until the button is released. When the button is released, the rubber band line is removed, and the rectangle is drawn.

WHERE’S THE MOUSE?

After the rectangle is drawn, the user may place the mouse pointer inside the rectangle, and press the button. As long as the button is held, the Mac continually fills the rectangle with random, changing patterns. Once the mouse button is pressed outside of the rectangle, the pattern is frozen, and a new rectangle is begun. (Please see the sample output in fig. 1.)

The construction of the program is not complex. The variable declarations for the main program consist of three points and one rectangle. The points are used as work variables for reading the mouse location, and the rectangle is the one currently being drawn or filled.

The main program calls two procedures. The first one allows the user to create the rectangle, and provides the rubberbanding effect. The second one creates random patterns and fills the rectangle.

Since the value of a rectangle’s Top must be less than or equal to that of its bottom, two procedures called ‘Min’ and ‘Max’ help keep the points in the right order. The same holds true for the Left and Right values.

The key procedure calls in the Make_Rect procedure are Button, GetMouse, DrawLine, PenPat, FrameRect, and InsetRect. The function Button returns True if the mouse button is pressed, and False if not. GetMouse uses two VAR parameters for obtaining the current horizontal and vertical position of the mouse pointer.

Since we need to draw and erase the rubberbanding line, we use the two pen patterns of Black and White. This has the disadvantage of erasing whatever the line passes over, but you can’t have everything in a simple little program. The procedure PenPat sets the working pen pattern to the passed value.

DrawLine uses two points, this time in the form of four coordinates, to designate the starting and ending points of the line. DrawLine, of course, uses the current pen pattern.

Finally, after the mouse button is released, the rectangle is drawn with FrameRect. This is done with the pen pattern set to black. Since we don’t want to draw over the outline with subsequent FillRect calls, the procedure InsetRect is called to change the coordinates of the rectangle by one on each side, making it slightly smaller.

After the rectangle is drawn, the Fill_Rect procedure is called to fill it in. Note, please, that Fill_Rect is distinct from FillRect. Fill_Rect uses the calls Button, GetMouse, PtInRect, Random, and FillRect to perform its task. Button and GetMouse are used as before. PtInRect determines if the mouse is inside the new rectangle when the button is depressed.

A new pattern is created by calling the function Random eight times within a loop. Random returns a value from -32768 and 32767. Abs and Mod are used to bring the random number in the range 0..255. After the random pattern is created, FillRect is called to draw the pattern into the rectangle.

MODIFYING THE PROGRAM

The program runs forever, and the menu option Halt must be chosen to exit. In order to overcome this, you might want to modify the program to present you with a Black or Grey box (read rectangle) where you’d click the mouse to quit. Where in the program would you draw the rectangle? At what point or points would you have to check to see if it has been clicked? How will you handle rectangles that overlap your ‘exit’ box? These exercises are left to the student!

That’s it for this month. In the next column, we’ll further explore the powerful features of QuickDraw, and find out what makes it so unique and wonderful among graphic tools. We’ll also have another program that utilizes these terrific features. If you like our Pascal column or have programming ideas of your own to contribute, please feel free to write me care of MacTech. Ciao.

program MacTutor_QD_Demo;

{ This program will use the standard features of } {QuickDraw to introduce 
use of QuickDraw data} {structures and routine calls from MacPascal.} 

{ -- By Chris Derossi}

 var
  P1, P2, P3 : Point;
  WorkingRect : Rect;

 function Min (Num1, Num2 : integer) : integer;

{ return the minimum of the two numbers passed.}

 begin
  if Num1 < Num2 then
   Min := Num1
  else
    Min := Num2;
 end;

 function Max (Num1, Num2 : integer) : integer;

{ returns the maximum of two numbers passed.}

 begin
  if Num1 > Num2 then
  Max := Num1
  else
    Max := Num2;
 end;

 procedure Make_Rect (var theRect : Rect);

{ This is the first of the two main procedure. It} 
{allows the user to select diagonal corners of the} 
{rectangle to be drawn, using a ‘rubber band’ line.} 
{When the button is released, the recatangle is} 
{drawn.}

 begin
  repeat
   until Button;  {Wait till the button is pressed}
  GetMouse(P1.h, P1.v); {Where was the mouse?}
  P2 := P1;
  P3 := P1;
  while Button do  {update while button is down.}
   begin
      GetMouse(P3.h, P3.v);
    if (P2.h <> P3.h) or (P2.v <> p3.v) then  
 {the mouse has moved}
    begin
        PenPat(White);
      DrawLine(P1.h, P1.v, P2.h, P2.v);  
 {Erase the old line}
      PenPat(Black);
    DrawLine(P1.h, P1.v, P3.h, P3.v);  
 {Draw the new line}
    P2 := P3;
    end;
   end;

  PenPat(White);  {Erase line for the last time.}
  DrawLine(P1.h, P1.v, P2.h, P2.v);
  PenPat(Black);
  theRect.TopLeft.v := Min(P1.v, P2.v); 
  
{Set the rectangle, making sure}
  theRect.TopLeft.h := Min(P1.h, P2.h);   
{that the top is above the bottom}
  theRect.BotRight.v := Max(P1.v, P2.v); 
{and the left is less than the}
  theRect.BotRight.h := Max(P1.h, P2.h); {right.}

  FrameRect(theRect);   {Draw the rectangle}
  InsetRect(theRect, 1, 1);  
{Shrink it so that the pattern does not draw}
 {over the rectangle frame.}
 end;

 procedure Fill_Rect (theRect : Rect);

  var
   myPat : Pattern;
   Index : Integer;
   Done : Boolean;

 begin
  Done := False;
  while not Done do  
{continue until the mouse is outside of the}
   {new rectangle.}
   begin
    repeat
      until Button;   {Wait for the button}
    GetMouse(P1.h, P1.v);
    if PtInRect(P1, theRect) then  
{is the mouse in the rectangle?}
    begin
    for Index := 0 to 7 do
     myPat[Index] := Abs(Random) mod 256; {make a random pattern}
     FillRect(theRect, myPat);  {Fill the rectangle}
    end
    else
    Done := True;
   end; {While}
 end; {Fill_Rect}


begin  {Main Program}
 while true do
  begin
    Make_Rect(WorkingRect);
    Fill_Rect(WorkingRect);
  end;
end.   {Main}

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

ExpanDrive 5.4.4 - Access cloud storage...
ExpanDrive builds cloud storage in every application, acts just like a USB drive plugged into your Mac. With ExpanDrive, you can securely access any remote file server directly from the Finder or... Read more
Dash 3.4.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
Civilization VI 1.0.2 - Next iteration o...
Sid Meier’s Civilization VI is the next entry in the popular Civilization franchise. Originally created by legendary game designer Sid Meier, Civilization is a strategy game in which you attempt to... Read more
TurboTax 2016 - Manage your 2016 U.S. ta...
TurboTax guides you through your tax return step by step, does all the calculations, and checks your return for errors and overlooked deductions. It lets you file your return electronically to get... Read more
Microsoft Office 2016 15.30 - Popular pr...
Microsoft Office 2016 - Unmistakably Office, designed for Mac. The new versions of Word, Excel, PowerPoint, Outlook and OneNote provide the best of both worlds for Mac users - the familiar Office... Read more
FotoMagico 5.3 - Powerful slideshow crea...
FotoMagico lets you create professional slideshows from your photos and music with just a few, simple mouse clicks. It sports a very clean and intuitive yet powerful user interface. High image... Read more
Acorn 5.6.1 - Bitmap image editor.
Acorn is a new image editor built with one goal in mind - simplicity. Fast, easy, and fluid, Acorn provides the options you'll need without any overhead. Acorn feels right, and won't drain your bank... Read more
iMazing 2.1.8 - Complete iOS device mana...
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
Logic Pro X 10.3 - Music creation and au...
Logic Pro X is the most advanced version of Logic ever. Sophisticated new tools for professional songwriting, editing, and mixing are built around a modern interface that's designed to get creative... Read more
Microsoft Remote Desktop 8.0.37 - 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

Red's Kingdom (Games)
Red's Kingdom 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Mad King Mac has kidnapped your father and stolen your golden nut! Solve puzzles and battle goons as you explore and battle your... | Read more »
Turbo League Guide: How to tame the cont...
| Read more »
Fire Emblem: Heroes coming to Google Pla...
Nintendo gave us our first look at Fire Emblem: Heroes, the upcoming mobile Fire Emblem game the company hinted at last year. Revealed at the Fire Emblem Direct event held today, the game will condense the series' tactical RPG combat into bite-... | Read more »
ReSlice (Music)
ReSlice 1.0 Device: iOS Universal Category: Music Price: $9.99, Version: 1.0 (iTunes) Description: Audio Slice Machine Slice your audio samples with ReSlice and create flexible musical atoms which can be triggered by MIDI notes or... | Read more »
Stickman Surfer rides in with the tide t...
Stickson is back and this time he's taken up yet another extreme sport - surfing. Stickman Surfer is out this Thursday on both iOS and Android, so if you've been following the other Stickman adventures, you might be interested in picking this one... | Read more »
Z-Exemplar (Games)
Z-Exemplar 1.4 Device: iOS Universal Category: Games Price: $3.99, Version: 1.4 (iTunes) Description: | Read more »
5 dastardly difficult roguelikes like th...
Edmund McMillen's popular roguelike creation The Binding of Isaac: Rebirth has finally crawled onto mobile devices. It's a grotesque dual-stick shooter that tosses you into an endless, procedurally generated basement as you, the pitiable Isaac,... | Read more »
Last week on PocketGamer
Welcome to a weekly feature looking back on the past seven days of coverage on our sister website, PocketGamer. It’s taken a while for 2017 to really get going, at least when it comes to the world of portable gaming. Thank goodness, then, for... | Read more »
ROME: Total War - Barbarian Invasion set...
To the delight of mobile strategy fans, Feral Interactive released ROME: Total War just a few months ago. Now the game's expansion, Barbarian Invasion is marching onto iPads as a standalone release. [Read more] | Read more »
Yuri (Games)
Yuri 1.0 Device: iOS iPhone Category: Games Price: $3.99, Version: 1.0 (iTunes) Description: It's night. Yuri opens his eyes. He wakes up in a strange forest.The small, courageous explorer rides on his bed on casters in this... | Read more »

Price Scanner via MacPrices.net

Laptop Market – Flight To Quality? – The ‘Boo...
Preliminary quarterly PC shipments data released by Gartner Inc. last week reveal an interesting disparity between sales performance of major name PC vendors as opposed to that of less well-known... Read more
IBM and Bell Transform Canadian Enterprise Mo...
IBM and Bell Canada have announced they are joining forces to offer IBM MobileFirst for iOS market-ready enterprise applications for iPad, iPhone or Apple Watch. Bell, Canada’s largest communications... Read more
Otter Products is Closing… For a Day of Givin...
On Thursday, Feb. 9, Otter Products is closing doors to open hearts. In partnership with the OtterCares Foundation, the company is pausing operations for a day so all employees can volunteer with... Read more
15-inch 2.2GHz Retina MacBook Pro on sale for...
Amazon has 2015 15″ 2.2GHz Retina MacBook Pros (MJLQ2LL/A) available for $1799.99 including free shipping. Apple charges $1999 for this model, so Amazon’s price is represents a $200 savings. Read more
Back in stock: Apple refurbished 13-inch Reti...
Apple has Certified Refurbished 2015 13″ Retina MacBook Pros available for up to $360 off original MSRP, starting at $1099. An Apple one-year warranty is included with each model, and shipping is... Read more
CalcTape for macOS 1.2 Adding Machine App for...
schoettler Software has announced CalcTape 1.2, an update to their desktop calculator for macOS. When it comes to adding long columns of numbers, doing complex calculations or playing around with... Read more
New MacBooks And MacBook Pros WIth Kaby Lake...
Digitimes’ Joseph Tsai cites a Chinese-language Economic Daily News (EDN) report that unnamed market watchers are predicting Apple MacBook shipments to grow 10 percent in 2017, and projecting 15... Read more
New 2016 13-inch MacBook Pros on sale for up...
B&H Photo has the new 2016 13″ MacBook Pros in stock today and on sale for up to $150 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 2.9GHz/512GB Touch Bar MacBook Pro... Read more
New 15-inch Touch Bar MacBook Pros in stock a...
B&H Photo has the new 2016 15″ Apple Touch Bar MacBook Pros in stock today and on sale for up to $150 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 15″ 2.7GHz Touch Bar... Read more
Opera Announces Neon Concept Browser For Mac
Opera is inviting users to get a glimpse of what Opera for computers could become with its Opera Neon browser concept. Each Opera Neon feature is described as “an alternate reality” for the Opera... Read more

Jobs Board

*Apple* & PC Desktop Support Technician...
Apple & PC Desktop Support Technician job in Los Angeles, CA Introduction: We have immediate job openings for several Desktop Support Technicians with one of our Read more
*Apple* Retail - Multiple Positions - Apple,...
SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (Multi-L...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* & PC Desktop Support Technician...
Apple & PC Desktop Support Technician job in Stamford, CT We have immediate job openings for several Desktop Support Technicians with one of our most well-known Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.