TweetFollow Us on Twitter

MacDraw Files
Volume Number:3
Issue Number:10
Column Tag:Programmer's Forum

MacDraw PICT Files from Basic

By Bob Andris, Lockheed Corp.

Why “Draw” a ‘PICT’ File?

This article should really have been titled “ ‘PICT’ing in ZBasic™ “, but that didn’t sound quite as clear. The ‘PICT’ file format is rapidly becoming the standard for transferring High Quality graphics between programs, and not just graphics programs. To name just a few, MacDraw™, MacDraft™, Cricket Draw™, and SuperPaint™ all will both read and write ‘PICT’ files. However, layout programs like PageMaker™ will also read ‘PICT’ files in directly with its “Place” command. In addition to all of the above a word processor like Word™ 3.0 will pass ‘PICT’ information back and forth through the clipboard and retain the individuality of each ‘PICT’ element. Why all of this compatibility? The answer to that one is simply called the “LaserWriter™”!

The LaserWriter with its PostScript™ language treats all ‘PICT’ elements as separate objects, not bit maps, and prints (or better yet, “draws”) them vectorially. That’s why a diagonal line has nice sharp edges, and not the “jaggies” that go with the individual pixels of a bit map. This even holds true for text! As the quest for higher and higher quality proliferates, the ‘PICT’ format will become even more prevalent. The ‘PICT’ format is also inherently faster than most because it is the format that ‘QuickDraw’ in the ROM is using to begin with!

All of the graphics programs mentioned previously also have their own proprietary file format, including MacDraw. Getting into those formats is not the purpose of this article. It is “ ‘PICT’ing “ that we’ll be covering in detail. And, as you will see, “draw”ing a ‘PICT’ file in ZBasic is even easier than “paint”ing a ‘PNTG’ file in ZBasic as I covered in a previous article.

What’s in the ‘PICT’ure?

First of all, there are several good references on the ‘PICT’ file format and ‘QuickDraw’ing a picture, so I’ll give them to you now.

MacDraw’s PICT File Format and Comments, Macintosh Technical Note #27, by Ginger Jernigan, Aug. 20, 1986.

QuickDraw’s Internal Picture Definition, Macintosh Technical Note #21, by Ginger Jernigan, June 20, 1986.

Optimizing for the LaserWriter--Picture Comments, Macintosh Technical Notes #91, by Ginger Jernigan, Mar. 2, 1987.

Inside Macintosh™ Volume I, chapter 6, QuickDraw, in particular Pictures and Polygons starting on p 158.

As Inside Mac says on page 158, “A picture in QuickDraw is a transcript of calls to routines that draw something--anything--in a bit image.”. Whoa ! ! ! What happened to all this elements, objects, and vector stuff this idiot was just talking about? Well, the bit image they’re talking about on page 158 is the screen. The things that get stored in the files and also sent to the LaserWriter are those calls friends, not a bit image!

Since pictures are all of varying size, i.e., length, as we could have guessed a Picture is really just a variable length record. The record always starts with the following two fixed-length fields:

picSize:INTEGER; {size of record in bytes}
picFrame: Rect;  {picture frame}

Immediately following the two fixed-length fields are the ‘QuickDraw’ calls to generate the picture. It is important to point out that the size (picSize) includes the first two fixed-length fields themselves. If we were to write out this picture record to a file we’d have what we need, right? Wrong! All of the programs mentioned previously would spit-up something terrible. So, what’s missing? Well, it’s a header of some kind . . . that’s what makes a picture record into a ‘PICT’ file. So let’s get into that now.

The MacDraw ‘PICT’ file format

Referring you to tech note #21, MacDraw gives you the option to use two file formats. They are DRWG and PICT. The DRWG format is the internal one that only MacDraw understands. The PICT format is the one we’ll look at in MacDraw. Rather than just drone on and on, it’s time for an example. I went into MacDraw, itself, drew a simple five-sided ‘closed’ polygon, saved it as a ‘PICT’ file and then went into Fedit+™ to take a look at it with tech note #27 in hand. Figure 1 shows the polygon as you normally see it in MacDraw.

Fig. 1 A draw figure created from Basic!

As we can see, there’s not much to it. Just an ordinary polygon. The total file size, as stored by MacDraw, is just 570 bytes. That’s good, since the actual ‘PICT’ure part of it is only 58 bytes long. A quick mental calculation tells us the header is our old friend, 512-bytes, long! Same length as the ‘Paint’ file headers were. Now let’s view what you find in Fedit+ and take a close look at the header.

Fig. 2 ‘Fedit+’ View of the “MacDraw”ed Polygon File

Figure 2 is the “ Fedit+ ”ed look at both sectors of the MacDraw ‘PICT’ file called “Polygon”. The breaks in the sector views are where they become all zero from then on. The numbers in the left halves are the hex representation of the code and to the right is the ASCII representation. Here’s what we find in the header (refer to tech note #27):

MacDraw PICT File Header

4452  5747fType  ‘DRWG’ in ASCII for
 MacDraw 1.7 & 1.9
 4D44 hdrID ‘MD’ in ASCII 
 0006 version  file format version
0003 to prRec  120 byte print record
 0000   (ends with position 000079)

0000  0000xOrigindrawing origin
0000  0000yOrigindrawing origin
0048  0000xScale screen res (=72 dots/inch)
0048  0000yScale screen res (=72 dots/inch)
0000 to atrState state of drwg attributes
 0000   (ends with position 0000CD)

 0001 lCntno. of top-level objects
 0001 lTottotal no. of all objects
0000  0066lSiz total size of list
000A  0000top  box of all objects (= 10)
0055  0000left box of all objects (= 85)
0046  0000bottom box of all objects (= 70)
00E1  0000right  box of all objects (=225)
0007 to filler 282 unused bytes
 0000   (ends with position 0001FF)

Creating this header for each different file would be quite time consuming and also subject to error. Fortunately we’re in luck! Tech note #27 says “If MacDraw opens a PICT file and finds that it has a different hdrID than MacDraw expects, or that the first block is zeroed, it ignores the header and uses its own default document settings.”. So all we will have to do to create a “MacDraw” ‘PICT’ file in ZBasic is to start it out with 512 bytes of zero (0)! The second part of Figure 2 is the data for the actual QuickDraw ‘PICT’ure of the polygon. Let’s get into that now.

Pic comments are Helpful

MacDraw makes extensive use of picture comments [CALL PICCOMMENT( . . . ) in ZBasic] to gain more functions than are available with the standard QuickDraw calls. They are also used to guide the LaserWriter in “drawing” a complex set of figures and text. A good example is using piccomments to tie arrowheads and lines together in order to make the combination a single entity, the arrowhead-line. There are two types of piccomments available, the so-called ‘shortComment’ and its companion the ‘longComment’. The long one allows you to specify a variable-length data record to be executed, while the ‘shortComment’ has simply one operation, like “picPlyClo”, which means we’re drawing a “closed” polygon. The only ones we‘ll be needing here are the short comments. They are characterized by a one (1) byte ‘opcode’, which is ‘A0’, followed by a two (2) byte ‘kind’ which describes the action desired.

The first item in the QuickDraw picture is always 2 bytes of record size, which includes the 2 bytes themselves. Then comes the picture frame, of type ‘Rectangle’, which means 8 bytes (4 words or integers) of rectangle description. This is followed with the picture definition. What we do now is look at the first byte, the ‘opcode’ (operation code), which tells us what is going to be described and then the descriptions will follow. Then we look for the next ‘opcode’ and the process keeps repeating until the picture is finished. Now we can take a look at that “PICT’ure data in the second half of Figure 2:

Quickdraw Picture Format

003A  picSize  size of entire picture, in bytes
 (   58 decimal, in this case)
0000  picToploc of top of entire picture
 (    0 decimal, in this case)
0000  picLeft  loc of left of entire picture
 (    0 decimal, in this case)
02D0  picBottom  loc of bottom of entire picture
 (720 decimal, in this case)
0240  picRight loc of right of entire picture
 (576 decimal, in this case)

 11opcode for ‘picVersion’(1 byte )
 01version number for this picture

 A0opcode for ‘shortComment’(2 bytes)
0082    kind for ‘picDwgBegin’
 (begin a MacDraw pict)

 A0opcode for ‘shortComment’(2 bytes)
00A0    kind for ‘PolyBegin’
 (begin a special polygon)

 A0opcode for ‘shortComment’(2 bytes)
00A5    kind for ‘picPlyClo’
 (the poly’n is to be closed)

 01opcode for ‘clipRgn’(10 bytes, or more)
000A  rgnSize  size of entire region(10 bytes)
0000  top top of ‘clipping’ rgn       (    0 dec)
0000  leftleft of ‘clipping’ rgn       (    0 dec)
02D0  bottombottom of ‘clipping’ rgn (720 dec)
0240  right right of ‘clipping’ rgn     (576 dec)

 22opcode for ‘short line’ (st.v,st.h,dh,dv)
000A  start.v  vert start pt for line  (10 dec)
0055  start.h  horiz start pt for line(85 dec)
 00dh horz line length        (  0 dec)
 23dv vert line length         (35 dec)

 23opcode for ‘short line from’(dh,dv)
 63dh horiz line length(99 dec)
 19dv vert line length  (25 dec)

 23opcode for ‘short line from’(dh,dv)
 29dh horiz line length(41 dec)
 C4dv vert line length  (196-256=-60 *)

 23opcode for ‘short line from’(dh,dv)
 A6dh horiz line length(166-256=-90 *)
 19dv vert line length  (25 dec)

 23opcode for ‘short line from’(dh,dv)
 CEdh horiz line length(206-256=-50 *)
 E7dv vert line length  (231-256=-25 *)

 A0opcode for ‘shortComment’(2 bytes)
00A1    kind for ‘PolyEnd’
 (end a special polygon)

 A0opcode for ‘shortComment’
 (2 bytes to follow)
0083    kind for ‘picDwgEnd’
 (end a MacDraw pict)

 FFopcode for ‘EndofPicture’
 (nothing to follow)

 * dh & dv are both (-128 . . . +127), so if
 number is greater than +127 decimal,
 subtract 256 from it to get true neg. no’s.

Now let’s take a break from all of this and get into some programming.

The “MacDraw/ZBasic” Polygon Program

The first ZBasic program at the end of this article is called “MacDrawPoly.BAS”. It is the shortest and simplest of the three, and was written to try a couple of different approaches to creating the same figure. We begin by defining the ‘opcodes’ for the ‘short’ piccomments we’ll be needing, and then we define the picture rectangle and CALL SETRECT( . . . ) to initialize it. After this, we ‘open’ the picture and get a ‘handle’ to it (PicHand&); and then ‘begin’ the picture with a piccomment. I should point out here that the ‘picDwgBeg’ and its converse ‘picDwgEnd’ are really not necessary, but they do make the QuickDraw description of the picture much more efficient.

The first file created uses piccomments to tell it a ‘polygon’ is coming, that the polygon is of the ‘closed’ type, and that the polygon description is completed. The second file use the more standard QuickDraw calls to open, close, frame, and ‘kill’ the polygon. Now we open a file and give it a type of ‘PICT’ and creator of ‘MDRW’ (for MacDraw). As discussed previously, the first thing we do is write-out a 512 byte header of zeroes. Then we get the ‘pointer’ to the picture data from the ‘handle’ we got at the beginning of the program.

As you can see from the coding, PicLength%=PEEK WORD(PicPtr&+0), the length of the entire picture record is contained in the first 2 bytes (one word or integer) of the record itself. We need this to know how much data to write-out to the files. The ‘monkeying’ around you see to get the number of words (integers) from this length-of-record is merely to insure we’ll include the ‘FF’ (EndofPicture) at the end of the record. I’ll point out that with this method, sometimes you’ll get an extra byte after the ‘FF’, before the file is actually closed (50-50 chance). This won’t hurt anything, because “MacDraw”, and all the rest, know that ‘FF’ means it’s all done drawing your picture! Figure 3 compares the ‘polygons’ as done by “MacDraw” itself, and as done by the ZBasic program.

Fig. 3 Comparison of the Polygons

Compare the Actual Polygon File Data

As we can see, all three polygons in Figure 3 sure look the same. But the proof of the pudding is to use Fedit+ again and take a look at the actual data. Figure 4 does this for “MacDraw.poly1”, the first of our ZBasic files.

Well, the first thing we notice is the 512 byte header of zeroes. And since “MacDraw” read it in, we know that part of the approach works. In comparing Figure 2 to Figure 4, we find that our ZBasic polygon’s ‘PICT’ data is also 58 bytes long - so far so good. As a matter of fact, the match is perfect except for the “bottom” and “right” of the ‘clip’ rectangle. These numbers are $0117(279 dec) and $01E7(487 dec) which happens to be the ‘vis’ and also the ‘clip’ regions of ZBasic’s default window! We could change the clipping region in our program to get them to match perfectly - but as we will see later, the only thing affected is what is visible on the screen when the picture is being generated. “MacDraw” and all the rest ignore this when they read in a “default-header” file and reset the ‘clip’ region as necessary. As a matter of fact, it changes constantly with how much reduction or expansion you are using at the time. The ‘PICT’ data for “MacDraw.poly2” was 65 bytes long and was constructed slightly differently. Figure 5 shows us those differences.

Fig. 4 ZBasic’s ‘PICT’ Polygon File

The first thing we notice is that the ‘PolyBegin’, ‘PolyEnd’, and ‘picPlyClo’ piccomments are missing, just as we coded the program. However there is a new ‘opcode’ at position 00021A; it is ‘$70’ which is the opcode for ‘framePoly’. Our ZBasic CALL FRAMEPOLY( . . . ) produced this for us. This opcode is followed by ‘polySize’, ‘polyBBox’, and ‘polyPoints’ which are the size of the polygon record, the bounding box, or rectangle, and the array of points, respectively. The method used in “poly1” is more efficient than that used in “poly2”, but for just a few points per polygon the payoff is not that great. Now let’s get on to something with a little more visual appeal.

Fig. 5 ZBasic Version of a ‘Conventional’ Polygon

Fill and Pen Patterns

The second program at the end of this article, “MacDrawPat.BAS”, will look like Figure 6 when you run it “interactively” in ZBasic. Referring to the listing you’ll see a CALL SHOWPEN, which allows us to see what is going on while running. As mentioned in Inside Mac and the ZBasic manual, when we ‘open’ a ‘PICT’ure QuickDraw makes the pen ‘invisible’. Conversely, when we ‘close’ it, the pen gets turned back on. So if you want to watch, do a ‘showpen’ after opening the picture. Just be sure to ‘hidepen’ before you hit the ‘closepicture’.

This program gets us into patterns in QuickDraw. A pattern is simply an 8 by 8 array of pixels, or data, which can be used for ‘filling’, ‘painting’, and for ‘drawing’ by the pen. If you remember back when we did ‘Paint’ing in ZBasic, we simply did PEN ,,,,32 and got the thirty-secondth pen pattern to use. Well we can do the same thing with our “MacDraw” ‘PICT’ files. But, BE CAREFUL! MacDraw does NOT use the same patterns as the ‘Paint’ programs. It has its own patterns, while the ‘Paint’ programs use a set that resides in the System File. If you use a pattern that MacDraw does not have it will do one of three things:

(1) default to black

(2) default to white

(3) spit-up all over itself

So, we will have to get the exactly correct patterns to use. There are three ways to do this that I know of. First, there is a [Not in ROM] procedure on p 473 of Inside Mac, Vol. I, called ‘GetIndPattern’ which would do it. But that procedure is not yet implemented in ZBasic. Second, by using ZBasic’s FN GETRESOURCE( . . . ) and a little manipulation you could probably get the patterns. The third way is to look at the patterns, convert them to hex-strings, and use CALL STUFFHEX( . . . ) to put them into a real pattern record. The third way is shown pictorially in Figure 7. First fire-up “ResEdit”, open up MacDraw, and find the resource ‘PAT#’. That’s where the 36 ‘fill’ patterns reside. The first one is ‘None’, the second is ‘white’, the third is ‘black’, etc. Watch that first one (None)! I haven’t found a pattern for ‘None’ yet, so I just don’t do a ‘fill’ if the desired pattern is ‘None’.

Fig. 6 ZBasic Run of “MacDrawPat.BAS”

In order to save you the work of converting 36 patterns, they are all listed as ‘DATA’ statements at the end of the program. There are a couple of other points of interest in “MacDrawPat.BAS”. First is the sequence of the graphics calls. Referring to the listing you will notice that they appear in the following order:

(1) draw the single-weight line

(2) draw the ‘brick’ filled rectangle

(3) draw the ‘diamond’ filled oval

(4) draw the double-weight line

(5) draw the ‘inverted-V’ filled round-rectangle

Now looking back at Figure 6, you see that’s how they are stacked on the screen. This is the same effect that the “Bring to Front” and “Send to Back” commands under the “Arrange” menu in “MacDraw” will produce. You can use this to your advantage.

Fig. 7 ‘FillPattern’ Conversion

‘Fill’ and ‘Paint’ are NOT the Same

The second item of interest, is that ‘filling’ and ‘painting’ are not the same action in QuickDraw. If you CALL FILLRECT( . . . ) and then follow it with CALL FRAMERECT( . . . ) you get a ‘filled’ rectangle that has the pattern and the frame “GROUPED” as MacDraw does with its ‘Fill’ menu. The top half of the file “MacDraw.demo” is generated this way. However, if you CALL PAINTRECT( . . . ) and then follow it with CALL FRAMERECT( . . . ) you get a ‘painted’ rectangle that is “NOT GROUPED”. In other words, the ‘paint’ can “spill” out of the frame. I took the file “MacDraw.demo” into MacDraw to demonstrate this, as shown in Figure 8.

As you can see, the bottom three figures have their ‘paint’ selected and then dragged out of the frames. You can get this same effect in “MacDraw”, itself, by drawing your shape, ‘filling’ it with your selected pattern, and then changing its frame line to 0-weight (the ‘dashed’ line under the ‘Lines’ menu). The only reason to do it this way in our program is that ‘paint’ing avoids the ‘stuffhex’ call to set up the pattern and get a pointer to it.

The “MacDrawFiles.BAS” Program

The last program of the three is the largest and incorporates all of the features of “MacDraw” itself. It won’t let you work interactively, like ‘selecting’ lines and moving them around. I’ll let that to MacDraw and the others. But it will give you the tools to create a MacDraw compatible file inside of your ZBasic program and get the full benefit of:

(1) any selected font family

(2) all 8 “MacDraw” font sizes

(3) all 6 “MacDraw” font styles & combinations

(4) all 36 “MacDraw” fill/pen patterns

(5) all 5 “MacDraw” line weights

(6) all 3 “MacDraw” arrowhead lines

(7) all 9 “MacDraw” tools along the ‘left pallete’, i.e.,:

a. text

b. orthogonal lines

c. diagonal lines

d. rectangles

e. rounded-corner rectangles

f. ovals

g. arcs

h. freehand

i. polygons

Fig. 8 Effects of ‘Painting’

Figure 9 shows two different parts of the “MacDraw.text” file. The upper half has several different fonts, all in 12 pt Bold. It also contains the 6 basic font styles and a combination of Bold-through-Shadow.

The lower half uses Helvetica, in Bold, to illustrate all 8 “MacDraw” font sizes. Although you can invoke any font size in your ZBasic program, MacDraw only allows these eight sizes. If you give it a size it doesn’t have, say 16 pt, it will “default” to 12 pt. The moral of the story is . . . if you are going to bring your drawing into MacDraw, itself, use these sizes only - even if you ‘fudged’ it (“Tiny 9” is an example).

The upper left portion of Figure 10 shows most of the 36 ‘fill’ patterns and the upper right shows a portion of the 36 ‘pen’ patterns. ‘Scrolling’ around in MacDraw will give you a better look at all of them. The center portion of the upper half of Figure 10 contains the different line weights and the start of the ‘arrowhead’ lines. Some more of these ‘arrowhead’ lines are shown down the center of the lower half of the figure. The geometric shapes are along the left and right sides of the lower half.

Having mentioned ‘scrolling’ you should also be aware that if you extend your ‘work of art’ past the boundaries you set up for your ‘picRect’ the info is still there. Just go down to the bottom of the “Layout” menu in MacDraw to the “Drawing Size” item and select a few more pages to look at. You’ll then be able to scroll around and see the ‘missing’ portions.

Fig. 9 ‘text’ Output of “MacDrawFiles.BAS”

Items of Special Interest

If you look at the listing of “MacDrawFiles.BAS” there are several things of special interest you should note. First of all, as mentioned earlier, don’t even bother to call ‘fillrect’, ‘filloval’, etc., if you want ‘None’ for the fill. Even though it is in the fill data, it’s just there for completeness of the data set. Second, the 0 pen size does produce ‘invisible’ lines, but you’ll never find them. QuickDraw does not bother to save ‘invisible’ lines. You can verify this by going directly into MacDraw, drawing a line, making it invisible, and saving the drawing in the ‘PICT’ format. Quit out of it, load the drawing, and “Select All” under the “Edit” menu. Nothing. Note, the MacDraw proprietary format, however, will save those invisible lines!

Fig. 10 ‘graphics’ Output of “MacDrawFiles.BAS”

The third thing to take a look at is the ovalWidth and ovalHeight for the rounded-corner rectangles. They are both shown as 20 pixels in size. I’ve tried several different size and aspect-ratio rounded-corner rectangles in MacDraw, itself, and they always come back 20-by-20 if you leave it’s default settings alone. You can go under the ‘Edit’ menu and change the corners to any one of 6 different settings. Our fourth item of interest is the so-called freehand tool. MacDraw uses the ‘polygon’ to describe freehand drawing . . . but not exactly. It really is a polygon, but I don’t know what algorithm MacDraw uses to decide when to add a new point to the polygon. When you ‘draw’ freehand in your programs, you’ll probably use a lot more points than MacDraw ever would.

The last item is arrowheads! These were the toughest of all to nail down. Finally, I created a special subroutine called, naturally, “ArrowHeads”. Just feed it the x & y coordinates of both end points of the line (xahl1%, yahl1%, xahl2%, & yahl2%) and the type of arrowhead desired (ArrwPt%=1 for end-pt 1, 2 for 2, & 3 for both) and it will figure out the angles and adjust the line length for the proper match with the arrowhead(s). Study the subroutine coding (it’s heavily commented) and it will become clear what it has to do.

ZBasic configuration

Since ZBasic can be “configured” to just about any range of variables imagined, I’ve elected to include the configuration that was used for running the programs in Figure 11. All three will run with version 3.03 or higher.

Fig. 11 ZBasic 3.03 Configuration

The MacDrawPoly Program
REM
REM  (MacDrawPoly.BAS)
REM
REM  CREATES A ‘MACDRAW(PICT)’ CLOSED-POLYGON 
REM
 WINDOW OFF
 COORDINATE WINDOW
REM
REM  DEFINE ‘SHORT’ PICCOMMENTS
REM
 NIL&=0
 noData%=0
 picDwgBeg%=130
 picDwgEnd%=131
 PolyBegin%=160
 PolyEnd%=161
 picPlyClo%=165
REM
REM  DEFINE PICTURE RECTANGLE (A FULL-SIZE ‘DRAW’ PAGE)
REM
 picRect=0.
 picTop%=0
 picLeft%=0
 picBottom%=720
 picRight%=576
REM
REM  ‘INITIALIZE’ PICTURE
REM
 CALL SETRECT(picRect,picLeft%,picTop%,picRight%,picBottom%)
REM
REM  CREATE THE ‘MACDRAW’ POLYGONS
REM
 FOR File%=1 TO 2
 PicHand&=FN OPENPICTURE(picRect)
REM
REM  ‘BEGIN’ A ‘MACDRAW’ PICTURE
REM
 CALL PICCOMMENT(picDwgBeg%,noData%,NIL&)
 IF File%=2 THEN “poly2”
REM
REM  *  CREATE ‘MACDRAW-TYPE’ CLOSED-POLYGON * 
REM
“poly1”
 CALL PICCOMMENT(PolyBegin%,noData%,NIL&)
 CALL PICCOMMENT(picPlyClo%,noData%,NIL&)
 CALL MOVETO(85,10)
 CALL LINETO(85,45)
 CALL LINETO(184,70)
 CALL LINETO(225,10)
 CALL LINETO(135,35)
 CALL LINETO(85,10)
 CALL PICCOMMENT(PolyEnd%,noData%,NIL&)
 GOTO “EndPicture”
REM
REM  * * * CREATE CONVENTIONAL CLOSED-POLYGON * * *
REM
“poly2”
 PolyHandle&=FN OPENPOLY
 CALL MOVETO(85,10)
 CALL LINETO(85,45)
 CALL LINETO(184,70)
 CALL LINETO(225,10)
 CALL LINETO(135,35)
 CALL LINETO(85,10)
 CALL CLOSEPOLY
 CALL FRAMEPOLY(PolyHandle&)
 CALL KILLPOLY(PolyHandle&)
REM
REM  ‘END’ A ‘MACDRAW’ PICTURE
REM
“EndPicture”
 CALL PICCOMMENT(picDwgEnd%,noData%,NIL&)
REM
REM  CREATE THE ‘MACDRAW’ PICT FILE
REM
 DEF OPEN “PICTMDRW”
 IF File%=1 THEN OPEN “O”,#1,”MacDraw.poly1"
 IF File%=2 THEN OPEN “O”,#1,”MacDraw.poly2"
REM
REM  WRITE-OUT A 512 BYTE (256 WORDS OR INTEGERS) HEADER OF ZEROES
REM
 A%=0
 FOR I%=1 TO 256
 WRITE #1,A%
 NEXT I%
REM
REM  CLOSE THE PICTURE & WRITE-OUT THE ‘PICT’ DATA
REM
 CALL CLOSEPICTURE
 PicPtr&=PEEK LONG(PicHand&)
 PicLength%=PEEK WORD(PicPtr&+0)
 NumWords%=PicLength%/2
 doubleNumWords%=2*NumWords%
 IF doubleNumWords%<PicLength% THEN NumWords%=NumWords%+1
 FOR I%=1 TO NumWords%
 J%=2*(I%-1)
 A%=PEEK WORD(PicPtr&+J%)
 WRITE #1,A%
 NEXT I%
 CALL KILLPICTURE(PicHand&)
 CLOSE #1
 NEXT File%
 END
The MacDrawPat Program
REM
REM  (MacDrawPat.BAS)
REM
REM  CREATES A ‘MACDRAW(PICT)’ GRAPHICS-DEMO FILE
REM
 WINDOW OFF
 COORDINATE WINDOW
REM
REM  DEFINE ‘SHORT’ PICCOMMENTS
REM
 NIL&=0
 noData%=0
 picDwgBeg%=130
 picDwgEnd%=131
REM
REM  READ-IN ALL 36 ‘MACDRAW’ FILL/PEN PATTERNS AS HEX STRINGS
REM
 DIM MacDrawPat$(36)
 FOR I%=1 TO 36
 READ patID%,MacDrawPat$(I%)
 NEXT I%
REM
REM  DEFINE PICTURE RECTANGLE (A FULL-SIZE ‘MACDRAW’ PAGE)
REM
 picRect=0.
 picTop%=0
 picLeft%=0
 picBottom%=720
 picRight%=576
REM
REM  ‘INITIALIZE’ QUICKDRAW RECTANGLE
REM
 DIM qdRect,qdTop%,qdLeft%,qdBottom%,qdRight%
REM
REM  ‘INITIALIZE’ QUICKDRAW ‘FILL’ PATTERN
REM
 DIM fillPat,row12%,row34%,row56%,row78%
 fillPatPtr&=VARPTR(fillPat)
REM
REM  ‘INITIALIZE’ PICTURE
REM
 CALL SETRECT(picRect,picLeft%,picTop%,picRight%,picBottom%)
REM
REM  * * * CREATE A GRAPHICS-DEMO FILE * * *
REM
 PicHand&=FN OPENPICTURE(picRect)
REM
REM  ‘BEGIN’ A ‘MACDRAW’ PICTURE
REM
 CALL PICCOMMENT(picDwgBeg%,noData%,NIL&)
REM
REM  TURN ON THE ‘PEN’ SO WE CAN SEE WHAT’S HAPPENING
REM
 CALL SHOWPEN
REM
REM  DRAW A ‘SINGLE-WEIGHT’ LINE
REM
 CALL MOVETO(25,25)
 CALL LINETO(325,125)
REM
REM  CREATE A ‘FILLRECT’ - NOTE: FILL & FRAME ARE ‘GROUPED’
REM
 qdTop%=25
 qdLeft%=50
 qdBottom%=125
 qdRight%=100
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 CALL STUFFHEX(fillPatPtr&,MacDrawPat$(11))
 CALL FILLRECT(qdRect,fillPat)
 CALL FRAMERECT(qdRect)
REM
REM  CREATE A ‘FILLOVAL’ - NOTE: FILL & FRAME ARE ‘GROUPED’
REM
 qdTop%=25
 qdLeft%=250
 qdBottom%=125
 qdRight%=300
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 CALL STUFFHEX(fillPatPtr&,MacDrawPat$(34))
 CALL FILLOVAL(qdRect,fillPat)
 CALL FRAMEOVAL(qdRect)
REM
REM  DRAW A ‘DOUBLE-WEIGHT’ LINE
REM
 PEN 2,2,,,
 CALL MOVETO(25,125)
 CALL LINETO(325,25)
 CALL PENNORMAL
REM
REM  CREATE A ‘FILLROUNDRECT’ - NOTE: FILL & FRAME ARE ‘GROUPED’
REM
 qdTop%=25
 qdLeft%=150
 qdBottom%=125
 qdRight%=200
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 ovalWidth%=10
 ovalHeight%=10
 CALL STUFFHEX(fillPatPtr&,MacDrawPat$(30))
 CALL FILLROUNDRECT(qdRect,ovalWidth%,ovalHeight%,fillPat)
 CALL FRAMEROUNDRECT(qdRect,ovalWidth%,ovalHeight%)
REM
REM  DRAW A ‘SINGLE-WEIGHT’ LINE
REM
 CALL MOVETO(25,150)
 CALL LINETO(325,250)
REM
REM  CREATE A ‘PAINTRECT’ - NOTE: PAINT & FRAME ARE NOT! ‘GROUPED’
REM
 qdTop%=150
 qdLeft%=50
 qdBottom%=250
 qdRight%=100
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 PEN ,,,,11
 CALL PAINTRECT(qdRect)
 CALL PENNORMAL
 CALL FRAMERECT(qdRect)
REM
REM  CREATE A ‘PAINTOVAL’ - NOTE: PAINT & FRAME ARE NOT! ‘GROUPED’
REM
 qdTop%=150
 qdLeft%=250
 qdBottom%=250
 qdRight%=300
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 PEN 2,2,,,37
 CALL PAINTOVAL(qdRect)
 CALL PENNORMAL
 CALL FRAMEOVAL(qdRect)
REM
REM  DRAW A ‘DOUBLE-WEIGHT’ LINE
REM
 PEN 2,2,,,
 CALL MOVETO(25,250)
 CALL LINETO(325,150)
 CALL PENNORMAL
REM
REM  CREATE A ‘PAINTROUNDRECT’ - NOTE: PAINT & FRAME ARE NOT! ‘GROUPED’
REM
 qdTop%=150
 qdLeft%=150
 qdBottom%=250
 qdRight%=200
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 ovalWidth%=10
 ovalHeight%=10
 PEN ,,,,32
 CALL PAINTROUNDRECT(qdRect,ovalWidth%,ovalHeight%)
 CALL PENNORMAL
 CALL FRAMEROUNDRECT(qdRect,ovalWidth%,ovalHeight%)
REM
REM  RESET THE ‘PEN’, DUE TO THE ‘SHOWPEN’ CALL
REM
 CALL HIDEPEN
REM
REM  ‘END’ A ‘MACDRAW’ PICTURE
REM
“EndPicture”
 CALL PICCOMMENT(picDwgEnd%,noData%,NIL&)
REM
REM  CREATE THE ‘MACDRAW’ PICT FILE
REM
 DEF OPEN “PICTMDRW”
 OPEN “O”,#1,”MacDraw.demo”
REM
REM  WRITE-OUT A 512 BYTE (256 WORDS OR INTEGERS) HEADER OF ZEROES
REM
 A%=0
 FOR I%=1 TO 256
 WRITE #1,A%
 NEXT I%
REM
REM  CLOSE THE PICTURE & WRITE-OUT THE ‘PICT’ DATA
REM
 CALL CLOSEPICTURE
 PicPtr&=PEEK LONG(PicHand&)
 PicLength%=PEEK WORD(PicPtr&+0)
 NumWords%=PicLength%/2
 doubleNumWords%=2*NumWords%
 IF doubleNumWords%<PicLength% THEN NumWords%=NumWords%+1
 FOR I%=1 TO NumWords%
 J%=2*(I%-1)
 A%=PEEK WORD(PicPtr&+J%)
 WRITE #1,A%
 NEXT I%
 CALL KILLPICTURE(PicHand&)
REM
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*
REM
REM  DATA FOR ALL 36 ‘MACDRAW’ FILL/PEN PATTERNS AS HEX STRINGS
REM
 DATA  1,”0000000000000000"
 DATA  2,”0000000000000000"
 DATA  3,”FFFFFFFFFFFFFFFF”
 DATA  4,”77DD77DD77DD77DD”
 DATA  5,”AA55AA55AA55AA55"
 DATA  6,”8822882288228822"
 DATA  7,”8800220088002200"
 DATA  8,”8000080080000800"
 DATA  9,”8000000008000000"
 DATA 10,”8080413E080814E3"
 DATA 11,”FF808080FF080808"
 DATA 12,”8142241881422418"
 DATA 13,”8040201008040201"
 DATA 14,”E070381C0E0783C1"
 DATA 15,”77BBDDEE77BBDDEE”
 DATA 16,”8844221188442211"
 DATA 17,”99CC663399CC6633"
 DATA 18,”2040800008040200"
 DATA 19,”FF00FF00FF00FF00"
 DATA 20,”FF000000FF000000"
 DATA 21,”CC00000033000000"
 DATA 22,”F0F0F0F00F0F0F0F”
 DATA 23,”FF888888FF888888"
 DATA 24,”AA44AA11AA44AA11"
 DATA 25,”0102040810204080"
 DATA 26,”83070E1C3870E0C1"
 DATA 27,”EEDDBB77EEDDBB77"
 DATA 28,”1122448811224488"
 DATA 29,”3366CC993366CC99"
 DATA 30,”40A00000040A0000"
 DATA 31,”AAAAAAAAAAAAAAAA”
 DATA 32,”8888888888888888"
 DATA 33,”0101101001011010"
 DATA 34,”0008142A552A1408"
 DATA 35,”FF80808080808080"
 DATA 36,”8244281028448201"
 END
The MacDrawFiles Program
REM
REM  (MacDrawFiles.BAS)
REM
REM  CREATES A ‘MACDRAW(PICT)’ TEXT-FILE & GRAPHICS-FILE
REM
REM  REFER TO Macintosh Technical Note #27: MacDraw’s PICT File
REM  Format and Comments, August 20, 1986 BY Ginger Jernigan;
REM  #21: QuickDraw’s Internal Picture Definition, June 20, 1986
REM  BY Ginger Jernigan; AND #91: Optimizing for the LaserWriter
REM  --Picture Comments, March 2, 1987 BY Ginger Jernigan 
REM
REM  DISABLE ZBASIC’S DEFAULT WINDOW
REM
 WINDOW OFF
REM
REM  SET THE COORDINATE SYSTEM TO WINDOW ‘PIXEL’ COORDINATES
REM
 COORDINATE WINDOW
REM
REM  ESTABLISH A ‘STATUS’ WINDOW
REM
 WINDOW #1,”MacDrawFiles.BAS”,(4,41)-(506,337),261
 CALL MOVETO(144,50)
 PRINT “Now creating the ‘MacDraw’ files . . .”
REM
REM  DEFINE ‘SHORT’ PICCOMMENTS
REM
 NIL&=0
 noData%=0
 picDwgBeg%=130
 picDwgEnd%=131
 PolyBegin%=160
 PolyEnd%=161
 picPlyClo%=165
REM
REM  READ-IN SELECTED FONT FAMILIES
REM
 DIM fontNo%(13),fontName$(13)
 FOR I%=1 TO 13
 READ fontNo%(I%),fontName$(I%)
 NEXT I%
REM
REM  READ-IN ALL 8 ‘MACDRAW’ FONT SIZES
REM
 DIM fontSize%(8)
 FOR I%=1 TO 8
 READ fontSize%(I%)
 NEXT I%
REM
REM  READ-IN ALL 6 ‘MACDRAW’ FONT STYLES
REM
 DIM fontStyle%(6),fontStyle$(6)
 FOR I%=1 TO 6
 READ fontStyle%(I%),fontStyle$(I%)
 NEXT I%
REM
REM  READ-IN ALL 36 ‘MACDRAW’ FILL/PEN PATTERNS AS HEX STRINGS
REM
 DIM MacDrawPat$(36)
 FOR I%=1 TO 36
 READ patID%,MacDrawPat$(I%)
 NEXT I%
REM
REM  READ-IN ALL 5 ‘MACDRAW’ LINE WEIGHTS
REM
 DIM penWidth%(5),penHeight%(5)
 FOR I%=1 TO 5
 READ penWidth%(I%),penHeight%(I%)
 NEXT I%
REM
REM  DEFINE PICTURE RECTANGLE (A FULL-SIZE ‘MACDRAW’ PAGE)
REM
 picRect=0.
 picTop%=0
 picLeft%=0
 picBottom%=720
 picRight%=576
REM
REM  ‘INITIALIZE’ QUICKDRAW RECTANGLE
REM
 DIM qdRect,qdTop%,qdLeft%,qdBottom%,qdRight%
REM
REM  ‘INITIALIZE’ QUICKDRAW ‘FILL’ PATTERN
REM
 DIM fillPat,row12%,row34%,row56%,row78%
 fillPatPtr&=VARPTR(fillPat)
REM
REM  ‘INITIALIZE’ PICTURE
REM
 CALL SETRECT(picRect,picLeft%,picTop%,picRight%,picBottom%)
REM
REM  CREATE A ‘MACDRAW’ TEXT-DEMO FILE & A GRAPHICS-DEMO FILE
REM
 FOR File%=1 TO 2
 PicHand&=FN OPENPICTURE(picRect)
REM
REM  ‘BEGIN’ A ‘MACDRAW’ PICTURE
REM
 CALL PICCOMMENT(picDwgBeg%,noData%,NIL&)
REM
REM  CHECK FOR TEXT(File%=1) OR GRAPHICS(File%=2)
REM
 IF File%=2 THEN “graphics”
REM
REM  . . . CREATE TEXT FILE . . .
REM
“text”
REM
REM  * * ‘SAMPLE’ FONT FAMILIES (USE 12 PT BOLD) * *
REM
 x%=10
 FOR I%=1 TO 13
 y%=25*(I%+1)
 CALL MOVETO(x%,y%)
 TEXT fontNo%(I%),fontSize%(3),fontStyle%(2),1
 CALL DRAWSTRING(fontName$(I%))
 CALL DRAWSTRING(“ 12 pt Bold”)
 NEXT I%
REM
REM  * * ‘SAMPLE’ FONT STYLES (USE ‘HELVETICA’ 12 PT) * *
REM
 x%=180
 FOR I%=1 TO 6
 y%=25*(I%+1)
 CALL MOVETO(x%,y%)
 TEXT fontNo%(4),fontSize%(3),fontStyle%(I%),1
 CALL DRAWSTRING(fontName$(4))
 CALL DRAWSTRING(“ 12 pt “)
 CALL DRAWSTRING(fontStyle$(I%))
 NEXT I%
 y%=y%+25
 CALL MOVETO(x%,y%)
 Style%=0
 Style$=””
 FOR I%=2 TO 6
 Style%=Style%+fontStyle%(I%)
 Style$=Style$+fontStyle$(I%)+” “
 NEXT I%
 TEXT fontNo%(4),fontSize%(3),Style%,1
 CALL DRAWSTRING(fontName$(4))
 CALL DRAWSTRING(“ 12 pt “)
 CALL DRAWSTRING(Style$)
REM
REM  * * ‘SAMPLE’ FONT SIZES (USE ‘HELVETICA’ BOLD) * *
REM
 x%=10
 yold%=391
 FOR I%=1 TO 8
 y%=yold%+fontSize%(I%)
 yold%=y%
 CALL MOVETO(x%,y%)
 TEXT fontNo%(4),fontSize%(I%),fontStyle%(2),1
 CALL DRAWSTRING(fontName$(4))
 CALL DRAWSTRING(“”)
 Size$=STR$(fontSize%(I%))
 CALL DRAWSTRING(Size$)
 CALL DRAWSTRING(“ pt Bold”)
 NEXT I%
 GOTO “EndPicture”
REM
REM  . . . CREATE GRAPHICS FILE . . .
REM
“graphics”
REM
REM  * * ‘SAMPLE’ ALL 36 ‘MACDRAW’ FILL PATTERNS * *
REM  NOTE: FILL & FRAME ARE ‘GROUPED’ AUTOMATICALLY
REM
 FOR I%=1 TO 3
 qdBottom%=20
 FOR J%=1 TO 12
 K%=(I%-1)*12+J%
 qdTop%=qdBottom%+5
 qdLeft%=10+(I%-1)*30
 qdBottom%=qdTop%+25
 qdRight%=qdLeft%+25
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 CALL STUFFHEX(fillPatPtr&,MacDrawPat$(K%))
 IF K%>1 CALL FILLRECT(qdRect,fillPat)
 CALL FRAMERECT(qdRect)
 NEXT J%
 NEXT I%
REM
REM  * * ‘SAMPLE’ ALL 5 ‘MACDRAW’ LINE WEIGHTS * *
REM
 TEXT fontNo%(4),fontSize%(1),fontStyle%(2),1
 x%=150
 FOR I%=1 TO 5
 y%=10+30*I%
 CALL MOVETO(x%,y%)
 Width$=STR$(penWidth%(I%))
 Height$=STR$(penHeight%(I%))
 Note$=”  Line Width,Height = “+Width$+”,”+Height$
 CALL DRAWSTRING(Note$)
 CALL MOVE(10,-penHeight%(I%))
 CALL PENSIZE(penWidth%(I%),penHeight%(I%))
 CALL LINE(41-penWidth%(I%),0)
 CALL PENNORMAL
 NEXT I%
REM
REM  * * ‘SAMPLE’ ALL 3 ‘MACDRAW’ ARROWHEADS * *
REM
REM  USE HORIZ LINES
REM
 dx%=50
 dy%=0
 x%=90
REM
REM  USE RIGHT(I%=1), LEFT(I%=2), & BOTH(I%=3) ARROWHEADS
REM
 FOR I%=1 TO 3
 x%=x%+65
REM
REM  USE ALL 5 LINE WEIGHTS
REM
 FOR J%=1 TO 5
 y%=150+30*J%
 CALL PENSIZE(penWidth%(J%),penHeight%(J%))
 xahl1%=x%
 yahl1%=y%
 xahl2%=x%+dx%
 yahl2%=y%+dy%
REM
REM  ADJUST LENGTHS FOR PENSIZE
REM
 IF I%=1 THEN xahl2%=xahl2%+1-penWidth%(J%)
 IF I%=2 THEN xahl1%=xahl1%+1
 ArrwPt%=I%
 GOSUB “ArrowHeads”
 NEXT J%
 NEXT I%
REM
REM  USE VERT LINES
REM
 dx%=0
 dy%=50
 y%=270
REM
REM  USE RIGHT(I%=1), LEFT(I%=2), & BOTH(I%=3) ARROWHEADS
REM
 FOR I%=1 TO 3
 y%=y%+65
REM
REM  USE ALL 5 LINE WEIGHTS
REM
 FOR J%=1 TO 5
 x%=140+30*J%
 CALL PENSIZE(penWidth%(J%),penHeight%(J%))
 xahl1%=x%
 yahl1%=y%
 xahl2%=x%+dx%
 yahl2%=y%+dy%
REM
REM  ADJUST LENGTHS FOR PENSIZE
REM
 IF I%<>2 THEN yahl1%=yahl1%-1
 IF I%=1 THEN yahl2%=yahl2%-penHeight%(J%)
 ArrwPt%=I%
 GOSUB “ArrowHeads”
 NEXT J%
 NEXT I%
REM
REM  USE 45 DEG. LINES
REM
 dx%=INT(50./SQR(2.))
 dy%=INT(50./SQR(2.))
 y%=490
REM
REM  USE RIGHT(I%=1), LEFT(I%=2), & BOTH(I%=3) ARROWHEADS
REM
 FOR I%=1 TO 3
 y%=y%+50
REM
REM  USE ALL 5 LINE WEIGHTS
REM
 FOR J%=1 TO 5
 x%=125+30*J%
 CALL PENSIZE(penWidth%(J%),penHeight%(J%))
 xahl1%=x%
 yahl1%=y%
 xahl2%=x%+dx%
 yahl2%=y%+dy%
REM
REM  ADJUST LENGTHS FOR PENSIZE
REM
 IF I%=1 THEN “df1”
 IF I%=2 THEN “df2”
 GOTO “df3”
“df1” xahl2%=xahl2%-1-INT(penWidth%(J%)/SQR(2.))
 yahl2%=yahl2%-1-INT(penHeight%(J%)/SQR(2.))
 IF J%<5 THEN “df3”
 xahl2%=xahl2%+1
 yahl2%=yahl2%+1
 GOTO “df3”
“df2” xahl1%=xahl1%+1+INT(penWidth%(J%)/SQR(2.))
 yahl1%=yahl1%+1+INT(penHeight%(J%)/SQR(2.))
 IF J%<3 THEN “df3”
 xahl1%=xahl1%-1
 yahl1%=yahl1%-1
 IF J%<5 THEN “df3”
 xahl1%=xahl1%-1
 yahl1%=yahl1%-1
“df3” ArrwPt%=I%
 GOSUB “ArrowHeads”
 NEXT J%
 NEXT I%
 CALL PENNORMAL
REM
REM  * * ‘SAMPLE’ ALL 36 ‘MACDRAW’ PEN PATTERNS * *
REM
 CALL PENSIZE(penWidth%(5),penHeight%(5))
 FOR I%=1 TO 3
 y%=5
 FOR J%=1 TO 12
 K%=(I%-1)*12+J%
 x%=385+(I%-1)*50
 y%=y%+30
 CALL MOVETO(x%,y%)
 CALL STUFFHEX(fillPatPtr&,MacDrawPat$(K%))
 CALL PENPAT(fillPat)
 CALL LINE(40,0)
 NEXT J%
 NEXT I%
 CALL PENNORMAL
REM
REM  * * ‘SAMPLE’ ALL 8 GRAPHICS ‘TOOLS’ * *
REM
 CALL PENSIZE(penWidth%(3),penHeight%(3))
REM
REM  USE ORTHOGONAL LINES
REM
 CALL MOVETO(10,420)
 CALL LINETO(50,420)
 CALL MOVETO(80,400)
 CALL LINETO(80,440)
 CALL MOVETO(110,400)
 CALL LINETO(150,440)
REM
REM  USE UNCONSTRAINED LINES
REM
 CALL MOVETO(10,450)
 CALL LINETO(75,490)
 CALL MOVETO(85,490)
 CALL LINETO(150,450)
REM
REM  USE RECTANGLES
REM
 qdTop%=510
 qdLeft%=10
 qdBottom%=qdTop%+40
 qdRight%=qdLeft%+40
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 CALL FRAMERECT(qdRect)
 qdTop%=520
 qdLeft%=60
 qdBottom%=qdTop%+20
 qdRight%=qdLeft%+60
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 CALL FRAMERECT(qdRect)
 qdTop%=500
 qdLeft%=130
 qdBottom%=qdTop%+60
 qdRight%=qdLeft%+20
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 CALL FRAMERECT(qdRect)
REM
REM  USE ROUNDED-CORNER RECTANGLES
REM
 ovalWidth%=20
 ovalHeight%=20
 qdTop%=580
 qdLeft%=10
 qdBottom%=qdTop%+40
 qdRight%=qdLeft%+40
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 CALL FRAMEROUNDRECT(qdRect,ovalWidth%,ovalHeight%)
 qdTop%=590
 qdLeft%=60
 qdBottom%=qdTop%+20
 qdRight%=qdLeft%+60
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 CALL FRAMEROUNDRECT(qdRect,ovalWidth%,ovalHeight%)
 qdTop%=570
 qdLeft%=130
 qdBottom%=qdTop%+60
 qdRight%=qdLeft%+20
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 CALL FRAMEROUNDRECT(qdRect,ovalWidth%,ovalHeight%)
REM
REM  USE OVALS
REM
 qdTop%=650
 qdLeft%=10
 qdBottom%=qdTop%+40
 qdRight%=qdLeft%+40
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 CALL FRAMEOVAL(qdRect)
 qdTop%=660
 qdLeft%=60
 qdBottom%=qdTop%+20
 qdRight%=qdLeft%+60
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 CALL FRAMEOVAL(qdRect)
 qdTop%=640
 qdLeft%=130
 qdBottom%=qdTop%+60
 qdRight%=qdLeft%+20
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 CALL FRAMEOVAL(qdRect)
REM
REM  USE ARCS
REM
 startAngle%=225
 arcAngle%=150
 qdTop%=410
 qdLeft%=385
 qdBottom%=qdTop%+40
 qdRight%=qdLeft%+40
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 CALL FRAMEARC(qdRect,startAngle%,arcAngle%)
 qdTop%=420
 qdLeft%=435
 qdBottom%=qdTop%+20
 qdRight%=qdLeft%+60
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 CALL FRAMEARC(qdRect,startAngle%,arcAngle%)
 qdTop%=400
 qdLeft%=505
 qdBottom%=qdTop%+60
 qdRight%=qdLeft%+20
 CALL SETRECT(qdRect,qdLeft%,qdTop%,qdRight%,qdBottom%)
 CALL FRAMEARC(qdRect,startAngle%,arcAngle%)
REM
REM  USE THE ‘FREEHAND’ TOOL (‘MACDRAW’ USES A POLYGON)
REM
 PolyHandle&=FN OPENPOLY
 PI=4.*ATN(1.)
 PIO20=PI/20.
 THETA=0.
 R=50.*COS(2.*THETA)
 X%=455+INT(R*COS(THETA))
 Y%=510+INT(R*SIN(THETA))
 CALL MOVETO(X%,Y%)
 FOR I%=1 TO 20
 THETA=I%*PIO20
 R=50.*COS(2.*THETA)
 X%=455+INT(R*COS(THETA))
 Y%=510+INT(R*SIN(THETA))
 CALL LINETO(X%,Y%)
 NEXT I%
 CALL CLOSEPOLY
 CALL FRAMEPOLY(PolyHandle&)
 CALL KILLPOLY(PolyHandle&)
REM
REM  USE A POLYGON
REM
 PolyHandle&=FN OPENPOLY
 CALL MOVETO(385,540)
 CALL LINETO(385,575)
 CALL LINETO(485,600)
 CALL LINETO(525,540)
 CALL LINETO(435,565)
 CALL CLOSEPOLY
 CALL FRAMEPOLY(PolyHandle&)
 CALL KILLPOLY(PolyHandle&)
REM
REM  USE A ‘FORCED-CLOSE’ POLYGON
REM  NOTE: THE ‘PICCOMMENTS’ WILL FORCE CLOSURE
REM
 CALL PICCOMMENT(PolyBegin%,noData%,NIL&)
 CALL PICCOMMENT(picPlyClo%,noData%,NIL&)
 CALL MOVETO(385,610)
 CALL LINETO(385,645)
 CALL LINETO(485,670)
 CALL LINETO(525,610)
 CALL LINETO(435,635)
 CALL LINETO(385,610)
 CALL PICCOMMENT(PolyEnd%,noData%,NIL&)
 CALL PENNORMAL
REM
REM  ‘END’ A ‘MACDRAW’ PICTURE
REM
“EndPicture”
 CALL PICCOMMENT(picDwgEnd%,noData%,NIL&)
REM
REM  CREATE THE ‘MACDRAW’ PICT FILE
REM
 CURSOR=4
 DEF OPEN “PICTMDRW”
 IF File%=1 THEN OPEN “O”,#1,”MacDraw.text”
 IF File%=2 THEN OPEN “O”,#1,”MacDraw.graphics”
REM
REM  WRITE-OUT A 512 BYTE (256 WORDS OR INTEGERS) HEADER OF ZEROES
REM
 A%=0
 FOR I%=1 TO 256
 WRITE #1,A%
 NEXT I%
REM
REM  CLOSE THE PICTURE & WRITE-OUT THE ‘PICT’ DATA
REM
 CALL CLOSEPICTURE
 PicPtr&=PEEK LONG(PicHand&)
 PicLength%=PEEK WORD(PicPtr&+0)
 NumWords%=PicLength%/2
 doubleNumWords%=2*NumWords%
 IF doubleNumWords%<PicLength% THEN NumWords%=NumWords%+1
 FOR I%=1 TO NumWords%
 J%=2*(I%-1)
 A%=PEEK WORD(PicPtr&+J%)
 WRITE #1,A%
 NEXT I%
 CALL KILLPICTURE(PicHand&)
 CLOSE #1
 CURSOR=0
 NEXT File%
 GOTO “Exit”
REM
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*
 “ArrowHeads”
REM
REM  SUBROUTINE TO CONSTRUCT A ‘MACDRAW’ ARROWHEAD(S) LINE
REM
REM  DEFINE ARROWHEAD PARAMETERS
REM
 DIM ArrwRect,ArrwRT%,ArrwRL%,ArrwRB%,ArrwRR%
 NIL&=0
 noData%=0
 picArrwR%=170
 picArrwL%=171
 picArrwB%=172
 picArrwEnd%=173
 arcAngle%=48
REM
REM  GET PEN SIZE & ARROWHEAD RECTANGLE SIZE
REM
 DIM pnLocV%,pnLocH%,pnSizeV%,pnSizeH%,pnMode%
 DIM pnPat12%,pnPat34%,pnPat56%,pnPat78%
 CALL GETPENSTATE(pnLocV%)
 IF pnSizeV%=0 THEN RETURN
 IF pnSizeV%=1 THEN ArrwWH%=20
 IF pnSizeV%=2 THEN ArrwWH%=30
 IF pnSizeV%=4 THEN ArrwWH%=40
 IF pnSizeV%=6 THEN ArrwWH%=50
REM
REM  DETERMINE LINE PROPERTIES
REM
 dxahl=xahl2%-xahl1%
 dyahl=yahl2%-yahl1%
 lineLength=SQR(dxahl*dxahl+dyahl*dyahl)
 xcorr%=INT((dyahl/lineLength)*pnSizeV%/2)
 ycorr%=INT(ABS(dxahl/lineLength)*pnSizeV%/2)
 IF xahl1%=xahl2% THEN “ah1”
 tanAnglw=dyahl/dxahl
 Angle=57.2957795*ATN(tanAngle)
 IF xahl1%>xahl2% THEN Angle=Angle+180.
 lineAngle%=INT(Angle)+90
 GOTO “ah3”
“ah1” IF yahl1%>yahl2% THEN “ah2”
 lineAngle%=90+90
 GOTO “ah3”
“ah2” lineAngle%=-90+90
REM
REM  DETERMINE WHICH ARROWHEAD(S) TO DRAW
REM  (ArrwPt%=1 FOR PT 1, 2 FOR 2, 3 FOR BOTH)
REM
“ah3” short=(ArrwWH%/2)/lineLength
 IF ArrwPt%=2 THEN “ah4”
REM
REM  ARROWHEAD AT PT 1
REM
 bothFlag%=1
 xahlc%=xahl1%
 yahlc%=yahl1%
 xahl1%=xahlc%+INT(short*dxahl)
 yahl1%=yahlc%+INT(short*dyahl)
 startAngle%=lineAngle%-arcAngle%/2
 IF xahl1%>xahl2% THEN “ah6”
 IF xahl1%<xahl2% THEN “ah5”
 IF yahl1%>yahl2% THEN “ah6”
 GOTO “ah5”
REM
REM  ARROWHEAD AT PT 2
REM
“ah4” bothFlag%=2
 xahlc%=xahl2%
 yahlc%=yahl2%
 xahl2%=xahlc%-INT(short*dxahl)
 yahl2%=yahlc%-INT(short*dyahl)
 startAngle%=lineAngle%+180-arcAngle%/2
 IF startAngle%>360 THEN startAngle%=startAngle%-360
 IF xahl1%<xahl2% THEN “ah6”
 IF xahl1%>xahl2% THEN “ah5”
 IF yahl1%<yahl2% THEN “ah6”
“ah5” picArrw%=picArrwL%
 IF ArrwPt%=3 THEN picArrw%=picArrwB%
 GOTO “ah7”
“ah6” picArrw%=picArrwR%
 IF ArrwPt%=3 THEN picArrw%=picArrwB%
REM
REM  ‘QUICKDRAW’ THE ARROWHEAD(S) WITH ‘PAINTARC’ &
REM  USE PICCOMMENTS TO ‘TIE’ IT(THEM) TO THE LINE
REM
“ah7” ArrwRT%=yahlc%-ArrwWH%/2
 ArrwRB%=ArrwRT%+ArrwWH%
 ArrwRL%=xahlc%-ArrwWH%/2
 ArrwRR%=ArrwRL%+ArrwWH%
 CALL SETRECT(ArrwRect,ArrwRL%,ArrwRT%,ArrwRR%,ArrwRB%)
 IF ArrwPt%<3 THEN “ah8”
 IF bothFlag%<2 THEN “ah8”
 GOTO “ah9”
“ah8” CALL PICCOMMENT(picArrw%,noData%,NIL&)
“ah9” CALL PAINTARC(ArrwRect,startAngle%,arcAngle%)
 IF ArrwPt%<3 THEN “ah10”
 IF bothFlag%<2 THEN “ah4”
“ah10”  xahl1%=xahl1%-xcorr%
 yahl1%=yahl1%-ycorr%
 xahl2%=xahl2%-xcorr%
 yahl2%=yahl2%-ycorr%
 CALL MOVETO(xahl1%,yahl1%)
 CALL LINETO(xahl2%,yahl2%)
 CALL PICCOMMENT(picArrwEnd%,noData%,NIL&)
 RETURN
REM
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*
REM
REM  DATA FOR SELECTED FONT FAMILIES
REM
 DATA   0,”Chicago”
 DATA  22,”Courier”
 DATA   3,”Geneva”
 DATA  21,”Helvetica”
 DATA   6,”London”
 DATA   4,”Monaco”
 DATA  15,”N Helvetica Narrow”
 DATA   2,”New York”
 DATA  16,”Palatino”
 DATA  23,”Symbol”
 DATA  20,”Times”
 DATA   5,”Venice”
 DATA  18,”Zapf Chancery”
REM
REM  DATA FOR ALL 8 ‘MACDRAW’ FONT SIZES
REM
 DATA  9
 DATA 10
 DATA 12
 DATA 14
 DATA 18
 DATA 24
 DATA 36
 DATA 48
REM
REM  DATA FOR ALL 6 ‘MACDRAW’ FONT STYLES
REM
 DATA  0,”Plain Text”
 DATA  1,”Bold”
 DATA  2,”Italic”
 DATA  4,”Underline”
 DATA  8,”Outline”
 DATA 16,”Shadow”
REM
REM  DATA FOR ALL 36 ‘MACDRAW’ FILL/PEN PATTERNS AS HEX STRINGS
REM
 DATA  1,”0000000000000000"
 DATA  2,”0000000000000000"
 DATA  3,”FFFFFFFFFFFFFFFF”
 DATA  4,”77DD77DD77DD77DD”
 DATA  5,”AA55AA55AA55AA55"
 DATA  6,”8822882288228822"
 DATA  7,”8800220088002200"
 DATA  8,”8000080080000800"
 DATA  9,”8000000008000000"
 DATA 10,”8080413E080814E3"
 DATA 11,”FF808080FF080808"
 DATA 12,”8142241881422418"
 DATA 13,”8040201008040201"
 DATA 14,”E070381C0E0783C1"
 DATA 15,”77BBDDEE77BBDDEE”
 DATA 16,”8844221188442211"
 DATA 17,”99CC663399CC6633"
 DATA 18,”2040800008040200"
 DATA 19,”FF00FF00FF00FF00"
 DATA 20,”FF000000FF000000"
 DATA 21,”CC00000033000000"
 DATA 22,”F0F0F0F00F0F0F0F”
 DATA 23,”FF888888FF888888"
 DATA 24,”AA44AA11AA44AA11"
 DATA 25,”0102040810204080"
 DATA 26,”83070E1C3870E0C1"
 DATA 27,”EEDDBB77EEDDBB77"
 DATA 28,”1122448811224488"
 DATA 29,”3366CC993366CC99"
 DATA 30,”40A00000040A0000"
 DATA 31,”AAAAAAAAAAAAAAAA”
 DATA 32,”8888888888888888"
 DATA 33,”0101101001011010"
 DATA 34,”0008142A552A1408"
 DATA 35,”FF80808080808080"
 DATA 36,”8244281028448201"
REM
REM  DATA FOR ALL 5 ‘MACDRAW’ LINE WEIGHTS
REM
 DATA 0,0
 DATA 1,1
 DATA 2,2
 DATA 4,4
 DATA 6,6
“Exit”
 WINDOW CLOSE #1
 WINDOW #1,”MacDrawFiles.BAS”,(4,41)-(506,337),261
 TEXT 4,9,0,1
 CALL MOVETO(162,50)
 PRINT “Both ‘MacDraw’ files created ! !”
 CALL MOVETO(174,65)
 PRINT “Hit [Return] to exit . . .”
 BEEP
 INPUT ANS$
 WINDOW CLOSE #1
 END

 
AAPL
$102.47
Apple Inc.
+2.71
MSFT
$44.88
Microsoft Corpora
+0.80
GOOG
$526.54
Google Inc.
+5.70

MacTech Search:
Community Search:

Software Updates via MacUpdate

EyeTV 3.6.6 - Watch and record TV on you...
EyeTV brings a rich TV experience to your Mac. Watch live TV on your Mac. Pause, rewind, and record whenever you want. EyeTV gives you powerful control over what you watch and how you watch it. Put... Read more
RapidWeaver 6.0 - 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
NTFS 12.0.39 - Provides full read and wr...
Paragon NTFS breaks down the barriers between Windows and OS X. Paragon NTFS effectively solves the communication problems between the Mac system and NTFS, providing full read and write access to... Read more
RestoreMeNot 2.0.3 - Disable window rest...
RestoreMeNot provides a simple way to disable the window restoration for individual applications so that you can fine-tune this behavior to suit your needs. Please note that RestoreMeNot is designed... Read more
Macgo Blu-ray Player 2.10.9.1750 - Blu-r...
Macgo Mac Blu-ray Player can bring you the most unforgettable Blu-ray experience on your Mac. Overview Macgo Mac Blu-ray Player can satisfy just about every need you could possibly have in a Blu-ray... Read more
Apple iOS 8.1 - The latest version of Ap...
The latest version of iOS can be downloaded through iTunes. Apple iOS 8 comes with big updates to apps you use every day, like Messages and Photos. A whole new way to share content with your family.... Read more
TechTool Pro 7.0.5 - Hard drive and syst...
TechTool Pro is now 7, and this is the most advanced version of the acclaimed Macintosh troubleshooting utility created in its 20-year history. Micromat has redeveloped TechTool Pro 7 to be fully 64... Read more
PDFKey Pro 4.0.2 - Edit and print passwo...
PDFKey Pro can unlock PDF documents protected for printing and copying when you've forgotten your password. It can now also protect your PDF files with a password to prevent unauthorized access and/... Read more
Yasu 2.9.1 - System maintenance app; per...
Yasu was originally created with System Administrators who service large groups of workstations in mind, Yasu (Yet Another System Utility) was made to do a specific group of maintenance tasks... Read more
Hazel 3.3 - Create rules for organizing...
Hazel is your personal housekeeper, organizing and cleaning folders based on rules you define. Hazel can also manage your trash and uninstall your applications. Organize your files using a... Read more

Latest Forum Discussions

See All

Infuse Pro (Photography)
Infuse Pro 3.0 Device: iOS Universal Category: Photography Price: $9.99, Version: 3.0 (iTunes) Description: ** All-new version 3 includes fully licensed and certified DTS® and DTS-HD® audio! ** | Read more »
Swap Heroes (Games)
Swap Heroes 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: **Half price for a limited time only** Swap Heroes is a casual turn-based strategy adventure. Form a group of heroes and guide them... | Read more »
Ghost Blade (Games)
Ghost Blade 1.1 Device: iOS Universal Category: Games Price: $4.99, Version: 1.1 (iTunes) Description: Get the most outstanding 3D Action Game from App Store NOW! For those who dare pursue dreams. Masterpiece of Yu Shi Game ---China... | Read more »
Fiete – A Day on a Farm Review
Fiete – A Day on a Farm Review By Amy Solomon on October 21st, 2014 Our Rating: :: A MEMORABLE EXPERIENCEUniversal App - Designed for iPhone and iPad Fiete – A day on a farm in an interactive app for young children full of... | Read more »
Tilt to Live: Gauntlet’s Revenge is Almo...
Tilt to Live: Gauntlet’s Revenge is Almost Here Posted by Jessica Fisher on October 21st, 2014 [ permalink ] One Man Left has announced the official release date of Tilt to Live: Gauntlet’s Re | Read more »
Sago Mini Monsters Celebrates Halloween...
Sago Mini Monsters Celebrates Halloween with Fun Costumes and Special Treats. Posted by Jessica Fisher on October 21st, 2014 [ permal | Read more »
Inferno 2 Review
Inferno 2 Review By Andrew Fisher on October 21st, 2014 Our Rating: :: TWIN STICK GOODNESSUniversal App - Designed for iPhone and iPad With tight controls and awesome, stark visuals, Inferno 2 is loads of fun.   | Read more »
Clips Review
Clips Review By Jennifer Allen on October 21st, 2014 Our Rating: :: CONVENIENT PASTINGUniversal App - Designed for iPhone and iPad Making copying and pasting more powerful than usual, Clips is a great way to move stuff around.   | Read more »
MonSense Review
MonSense Review By Jennifer Allen on October 21st, 2014 Our Rating: :: ORGANIZED FINANCESiPhone App - Designed for the iPhone, compatible with the iPad Organize your finances with the quick and easy to use, MonSense.   | Read more »
This Week at 148Apps: October 13-17, 201...
Expert App Reviewers   So little time and so very many apps. What’s a poor iPhone/iPad lover to do? Fortunately, 148Apps is here to give you the rundown on the latest and greatest releases. And we even have a tremendous back catalog of reviews; just... | Read more »

Price Scanner via MacPrices.net

Select MacBook Airs $100 off MSRP, free shipp...
B&H Photo has 2014 a couple of MacBook Airs on sale for $100 off MSRP. Shipping is free, and B&H charges NY sales tax only. They also include free copies of Parallels Desktop and LoJack for... Read more
13-inch 2.5GHz MacBook Pro on sale for $100 o...
B&H Photo has the 13″ 2.5GHz MacBook Pro on sale for $999.99 including free shipping plus NY sales tax only. Their price is $100 off MSRP. Read more
Strong iPhone, Mac And App Store Sales Drive...
Apple on Monday announced financial results for its fiscal 2014 fourth quarter ended September 27, 2014. The Company posted quarterly revenue of $42.1 billion and quarterly net profit of $8.5 billion... Read more
Apple Posts How-To For OS X Recovery
OS X 10.7 Lion and later include OS X Recovery. This feature includes all of the tools you need to reinstall OS X, repair your disk, and even restore from a Time Machine backup. OS X Recovery... Read more
Mac OS X Versions (Builds) Supported By Vario...
Apple Support has posted a handy resource explaining which Mac OS X versions (builds) originally shipped with or are available for your computer via retail discs, downloads, or Software Update. Apple... Read more
Deals on 2011 13-inch MacBook Airs, from $649
Daily Steals has the Mid-2011 13″ 1.7GHz i5 MacBook Air (4GB/128GB) available for $699 with a 90 day warranty. The Mid-2011 13″ 1.7GHz i5 MacBook Air (4GB/128GB SSD) is available for $649 at Other... Read more
2013 15-inch 2.0GHz Retina MacBook Pro availa...
B&H Photo has leftover previous-generation 15″ 2.0GHz Retina MacBook Pros now available for $1599 including free shipping plus NY sales tax only. Their price is $400 off original MSRP. B&H... Read more
Updated iPad Prices
We’ve updated our iPad Air Price Tracker and our iPad mini Price Tracker with the latest information on prices and availability from Apple and other resellers, including the new iPad Air 2 and the... Read more
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

Jobs Board

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* 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
Project Manager / Business Analyst, WW *Appl...
…a senior project manager / business analyst to work within our Worldwide Apple Fulfillment Operations and the Business Process Re-engineering team. This role will work Read more
*Apple* Retail - Multiple Positions (US) - A...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Position Opening at *Apple* - Apple (United...
…customers purchase our products, you're the one who helps them get more out of their new Apple technology. Your day in the Apple Store is filled with a range of Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.