TweetFollow Us on Twitter

Draw Picts
Volume Number:3
Issue Number:9
Column Tag:Basic Forum

Draw Picts from Basic

By Steven Leach, Chemical Engineer, Santa Clara, CA

Create PICT Files for MacDraw™ using MS Basic

This a solution to a problem that I was having when I was writing a rather complex figure in BASIC and wanted to save my very valuable work, but wouldn’t or couldn’t use the clipboard, or scrapbook. It seemed to me that the names for the BASIC pictures and the PICT file of the scrapbook seemed awful close so I thought why not bypass the scrapbook altogether ? My first step was to get the format for the MacDraw™ files. I located this on Compuserve in Tech Note 27. But beware there appears to be an error in the wording of this document for it states “If your application is going to create or modify information that you want to make available to MacDraw, you will want to create a data file in the PICT format.” The tech note goes on to explain the first 512 byte header, of which the first 4 bytes is supposed to be “DRWG”, or “PICT”, and if the next two bytes are not “MD” then the rest of the header can be zero bytes (chr$(0)). Well I have news for you this just does not work , the MacDraw™ page comes out blank.

However on examining the PICT files created by several programs like SuperPaint, and Cricket Draw I ascertained that the entire 512 byte header should be zeroed. Walah! my file is read properly. Now what about complex pictures that may be stored in your program as several picture strings. Well here we must concatonate them into a single picture string in order to get the file to be read properly, as is done in the short sample program presented in Listing 1.

This program will work with any MS Basic 2.0 or greater, but if you check, the line segments that make up the sine wave are individual objects in MacDraw™. This is fine for some cases but some of the items I wanted to appear as polygons, or grouped objects. The solution is available in the CLR libraries that are provided in MS Basic 3.0. If you wish to have a polygon in the PICT file, simply create one using the libraries. This adjustment is shown in Listing 2 for the sine wave picture that is later labeled as PICT2$. I also set the creator of the file to be MacDraw™.

I’m in heaven; I can save my pictures for all posterity. Wait what happened to my picture it’s the same and yet different. As usual there are some sobering quirks that you need to know about before you start celebrating. These quirks show up in version 1.9, I have not had a chance to use the version 1.95 that is being released now. The quirks are:

1) Any patterns that are used to draw lines are lost, the lines are solid lines in MacDraw.

2) As you guessed there is the usual problem with the fonts that are presented in MacDraw™.

3) Polygons saved to the PICT file as polygons can never be ungrouped, but they have all of the nice properties that polygons have, they can be smoothed and reshaped.

4) If you use an uneven pen , i.e. when the x and y dimensions of the pen are different; MacDraw will even the line out using the largest size. An example of this is given in listing 1&2 where the rectangle is framed with a pen that is (3,1). When you view the MacDraw picture you can see that the rectangle has a 3 pixel wide line on all sides.

Ok we can create MacDraw PICT files, is it possible to go the other way ? You bet. As a matter of fact it’s easy as long as we restrict the MacDraw picture to relatively simple things. This is required because the string variables that are used to store the pictures in BASIC are limited to 32767 characters. A BASIC program that is quite general is shown in listing 3.

This opens up the possibility of drawing anything in MacDraw and then reading it into BASIC and using it as you wish, perhaps a template for a complex user interface screen, or saving the picture as a resource to be used in your compiled program. It is possible to create dialogs with pictures in them to really wow those “C” programmers who consider BASIC a “toy” language.

Fig. 1 Draw PICT created from Basic

{1}
REM LISTING 1
REM THIS PROGRAM IS USABLE IN ALL MICROSOFT BASIC’S 
 VERSION 2.0 OR REM GREATER
REM try to create a macdraw PICT file
REM Tech Note # 27 specifies the PICT file structure 
 that is expected by MacDraw

    DIM Grey%(3)
    RESTORE PatternData
    FOR j% = 0 TO 3 : READ Grey%(j%) : NEXT

    PatternData:
        DATA -21931,-21931,-21931,-21931

REM define some objects that will be used for this       demonstration
REM read in the data that define the rectangle and 
 circle

DIM rect%(3),aCircle%(3)
RESTORE ObjectData
  READ rect%(0)
  READ rect%(1)
  READ rect%(2)
  READ rect%(3)
  READ aCircle%(0)
  READ aCircle%(1)
  READ aCircle%(2)
  READ aCircle%(3)

    ObjectData:
      DATA 10,10,110,150,100,100,200,200
      
     X.Offset = 0        
‘offset to be used in saving the picture in MacDraw
     Y.Offset = 0        
‘ if offsets not zero picture will have an upper 
‘ right corner at the location (X.Offset,Y.Offset)
  
    REM record first picture with pen on 
    PICTURE ON
     CALL SHOWPEN
     CALL PENSIZE(3,1)
     CALL FRAMERECT(VARPTR(rect%(0)))
     CALL PENNORMAL
     CALL PENPAT(VARPTR(Grey%(0)))
     CALL PAINTOVAL(VARPTR(aCircle%(0)))
     CALL PENSIZE(3,3)
     FOR indx% = 0 TO 3 : aCircle%(indx%) = aCircle%(indx%) + 50 : NEXT
         
     CALL FRAMEOVAL(VARPTR(aCircle%(0)))
     CALL PENNORMAL  
     CALL MOVETO  (10,10)
     CALL LINETO (100,200)
         
    PICTURE OFF
    pict1$ = PICTURE$
    
    REM now start the second picture
    PICTURE ON
        CALL MOVETO(100,100)
        FOR indx% = 1 TO 20
            CALL LINE(indx%,10*SIN(indx%))
        NEXT
    PICTURE OFF
    pict2$ = PICTURE$

REM we must now group all of the separate pictures as a REM single picture 
before they can be outputted to TRM the PICT file

    CALL HIDEPEN
    PICTURE ON
        PICTURE (X.Offset,Y.Offset), pict1$
‘use any valid offset you wish
        PICTURE (X.Offset,Y.Offset), pict2$
‘use same offset to get relationship right
    PICTURE OFF
    Pict$ = PICTURE$

    File.Pict$ = FILES$(0,”Name for this Picture ?”)
‘get the name of the file
    IF LEN(File.Pict$) <  5 THEN END
‘if no file name then quit

OPEN File.Pict$ FOR OUTPUT AS #1
FOR indx% = 1 TO 512 
 PRINT  #1,CHR$(0); 
 NEXT    ‘print out the header for the PICT file

PRINT  #1,Pict$;   ‘ Print out the picture to the file
CLOSE #1
NAME File.Pict$ AS File.Pict$,”PICT”     
‘type the file as PICT so can open from inside MacDraw™
{2}
REM This is listing 2 and is usable in MS BASIC 3.0 or greater
REM create a macdraw PICT file
REM Tech Note # 27 specifies the PICT file structure that is expected 
by MacDraw

LIBRARY “MSTools”

    DIM Grey%(3)
    RESTORE PatternData
    FOR j% = 0 TO 3 : READ Grey%(j%) : NEXT

    PatternData:
        DATA -21931,-21931,-21931,-21931

REM define some objects that will be used for this       demonstration
REM read in the data that define the rectangle and 
 circle

DIM rect%(3),aCircle%(3)
RESTORE ObjectData
  READ rect%(0)
  READ rect%(1)
  READ rect%(2)
  READ rect%(3)
  READ aCircle%(0)
  READ aCircle%(1)
  READ aCircle%(2)
  READ aCircle%(3)

    ObjectData:
      DATA 10,10,110,150,100,100,200,200
      
     X.Offset = 0        
‘offset to be used in saving the picture in MacDraw
     Y.Offset = 0        
‘ if offsets are not zero the picture will have an 
 upper right corner at that location
  
    REM record first picture with pen on 
     PICTURE ON
     CALL SHOWPEN
         CALL PENSIZE(3,1)
         CALL FRAMERECT(VARPTR(rect%(0)))
         CALL PENNORMAL
         
         CALL PENPAT(VARPTR(Grey%(0)))
         CALL PAINTOVAL(VARPTR(aCircle%(0)))

        CALL PENSIZE(3,3)
         FOR indx% = 0 TO 3 : aCircle%(indx%) = aCircle%(indx%) + 50 
: NEXT
         
         CALL FRAMEOVAL(VARPTR(aCircle%(0)))
         CALL PENNORMAL
         
         CALL MOVETO  (10,10)
         CALL LINETO (100,200)
         
    PICTURE OFF
    pict1$ = PICTURE$
    
    REM now start the second picture as polygon
    PGon! = 0
    openPGon PGon!
        CALL MOVETO(100,100)
        FOR indx% = 1 TO 20
            CALL LINE(indx%,10*SIN(indx%))
        NEXT
    CLOSEPGon
    
    PICTURE ON
    FramePgon PGon!
    PICTURE OFF
    pict2$ = PICTURE$

REM we must group all of the separate pictures as a 
 single picture
REM before they can be outputted to the MacDraw™ PICT 
 file
    CALL HIDEPEN
    PICTURE ON
        PICTURE (X.Offset,Y.Offset), pict1$
‘use any valid offset you wish
        PICTURE (X.Offset,Y.Offset), pict2$
‘use same offset to get relationship right
    PICTURE OFF
    Pict$ = PICTURE$

    File.Pict$ = FILES$(0,”Name for this Picture ?”)  ‘get the name of 
the file
    IF LEN(File.Pict$) <  5 THEN END
‘if no file name then quit

OPEN File.Pict$ FOR OUTPUT AS #1
FOR indx% = 1 TO 512     
 ‘print out the header for the PICT file
    PRINT  #1,CHR$(0); 
 ‘ note use of ; to prevent chr$(13)
NEXT 
PRINT  #1,Pict$;
‘ Print out the picture to the file
CLOSE #1
NAME File.Pict$ AS File.Pict$,”PICT”
 ‘type the file as PICT so can open  ‘from inside MacDraw™
Setcreate File.Pict$ , “MDRW”
{3}
‘ listing 3  
‘ This small routine reads MacDraw PICT FILES AND 
‘ displays the PICTURE

    
    File.Pict$ = FILES$(1,”PICT”)
 ‘Get the FileName
    IF LEN(File.Pict$) < 5 THEN END
 ‘if no file name then quit

    OPEN File.Pict$ FOR INPUT AS #1
 ‘ open the file for input
    FOR indx% = 1 TO 512   
 ‘read the the first 512 byte header
        tmp$ = INPUT$(1,#1) 
    NEXT       
    PICT$ = INPUT$(LOF(1)-512,#1)    
 ‘ read the rest of the file into a string
    CLOSE #1
 ‘  close the file
    CLS
 ‘ clear the screen and display the picture
    PICTURE , PICT$
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Duplicate Annihilator 5.7.7 - Find and d...
Duplicate Annihilator takes on the time-consuming task of comparing the images in your iPhoto library using effective algorithms to make sure that no duplicate escapes. Duplicate Annihilator... Read more
OS X Server 4.1.3 - For OS X 10.10 Yosem...
Designed for OS X and iOS devices, OS X Server makes it easy to share files, schedule meetings, synchronize contacts, develop software, host your own website, publish wikis, configure Mac, iPhone,... Read more
pwSafe 4.1 - Secure password management...
pwSafe provides simple and secure password management across devices and computers. pwSafe uses iCloud to keep your password databases backed-up and synced between Macs and iOS devices. It is... Read more
Kodi 15.0.rc1 - Powerful media center to...
Kodi (was XBMC) is an award-winning free and open-source (GPL) software media player and entertainment hub that can be installed on Linux, OS X, Windows, iOS, and Android, featuring a 10-foot user... Read more
Coda 2.5.11 - One-window Web development...
Coda is a powerful Web editor that puts everything in one place. An editor. Terminal. CSS. Files. With Coda 2, we went beyond expectations. With loads of new, much-requested features, a few surprises... Read more
Bookends 12.5.7 - Reference management a...
Bookends is a full-featured bibliography/reference and information-management system for students and professionals. Access the power of Bookends directly from Mellel, Nisus Writer Pro, or MS Word (... Read more
Maya 2016 - Professional 3D modeling and...
Maya is an award-winning software and powerful, integrated 3D modeling, animation, visual effects, and rendering solution. Because Maya is based on an open architecture, all your work can be scripted... Read more
RapidWeaver 6.2.3 - Create template-base...
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
MacFamilyTree 7.5.2 - Create and explore...
MacFamilyTree gives genealogy a facelift: it's modern, interactive, incredibly fast, and easy to use. We're convinced that generations of chroniclers would have loved to trade in their genealogy... Read more
Paragraphs 1.0.1 - Writing tool just for...
Paragraphs is an app just for writers. It was built for one thing and one thing only: writing. It gives you everything you need to create brilliant prose and does away with the rest. Everything in... Read more

Rage of Bahamut is Giving Almost All of...
The App Store isn't what it used to be back in 2012, so it's not unexpected to see some games changing their structures with the times. Now we can add Rage of Bahamut to that list with the recent announcement that the game is severely cutting back... | Read more »
Adventures of Pip (Games)
Adventures of Pip 1.0 Device: iOS iPhone Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: ** ONE WEEK ONLY — 66% OFF! *** “Adventures of Pip is a delightful little platformer full of charm, challenge and impeccable... | Read more »
Divide By Sheep - Tips, Tricks, and Stre...
Who would have thought splitting up sheep could be so involved? Anyone who’s played Divide by Sheep, that’s who! While we’re not about to give you complete solutions to everything (because that’s just cheating), we will happily give you some... | Read more »
NaturalMotion and Zynga Have Started Tea...
An official sequel to 2012's CSR Racing is officially on the way, with Zynga and NaturalMotion releasing a short teaser trailer to get everyone excited. Well, as excited as one can get from a trailer with no gameplay footage, anyway. [Read more] | Read more »
Grab a Friend and Pick up Overkill 3, Be...
Overkill 3 is a pretty enjoyable third-person shooter that was sort of begging for some online multiplayer. Fortunately the begging can stop, because its newest update has added an online co-op mode. [Read more] | Read more »
Scanner Pro's Newest Update Adds Au...
Scanner Pro is one of the most popular document scanning apps on iOS, thanks in no small part to its near-constant updates, I'm sure. Now we're up to update number six, and it adds some pretty handy new features. [Read more] | Read more »
Heroki (Games)
Heroki 1.0 Device: iOS Universal Category: Games Price: $7.99, Version: 1.0 (iTunes) Description: CLEAR THE SKIES FOR A NEW HERO!The peaceful sky village of Levantia is in danger! The dastardly Dr. N. Forchin and his accomplice,... | Read more »
Wars of the Roses (Games)
Wars of the Roses 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: | Read more »
TapMon Battle (Games)
TapMon Battle 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: It's time to battle!Tap! Tap! Tap! Try tap a egg to hatch a Tapmon!Do a battle with another tapmons using your hatched tapmons! *... | Read more »
Alchemic Dungeons (Games)
Alchemic Dungeons 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: ### Release Event! ### 2.99$->0.99$ for limited time! ### Roguelike Role Playing Game! ### Alchemic Dungeons is roguelike... | Read more »

Price Scanner via MacPrices.net

Seagate Backup Plus Drives Feature 200GB of C...
Seagate Technology plc has announced that its Backup Plus family of external storage offerings will now include 200GB of OneDrive cloud storage, a major added value, and the addition of Lyve’s photo... Read more
Canon PIXMA MG3620 Wireless Inkjet All-in-One...
Canon U.S.A., Inc. has announced the PIXMA MG3620 Wireless (1) Inkjet All-in-One (AIO) printer for high-quality photo and document printing. Built with convenience in mind for the everyday home user... Read more
July 4th Holiday Weekend 13-inch MacBook Pro...
Save up to $150 on the purchase of a new 2015 13″ Retina MacBook Pro at the following resellers this weekend. Shipping is free with each model: 2.7GHz/128GB MSRP $1299 2.7GHz/... Read more
27-inch 3.5GHz 5K iMac on sale for $2149, sav...
Best Buy has the 27″ 3.5GHz 5K iMac on sale for $2149.99. Choose free shipping or free local store pickup (if available). Sale price for online orders only, in-store prices may vary. Their price is $... Read more
Apple now offering refurbished 2015 11-inch...
The Apple Store is now offering Apple Certified Refurbished 2015 11″ MacBook Airs as well as 13″ MacBook Airs (the latest models), available for up to $180 off the cost of new models. An Apple one-... Read more
15-inch 2.5GHz Retina MacBook Pro on sale for...
Amazon.com has the 15″ 2.5GHz Retina MacBook Pro on sale for $2274 including free shipping. Their price is $225 off MSRP, and it’s the lowest price available for this model. Read more
Finally Safe To Upgrade To Yosemite’?
The reason I’ve held back from upgrading my MacBook Air from OS X 10.9 Mavericks to 10.10 Yosemite for nearly a year isn’t just procrastination. Among other bugs reported, there have been persistent... Read more
Logo Pop Free Vector Logo Design App For OS X...
128bit Technologies has released of Logo Pop Free 1.2 for Mac OS X, a vector based, full-fledged, logo design app available exclusively on the Mac App Store for the agreeable price of absolutely free... Read more
21-inch 1.4GHz iMac on sale for $999, save $1...
B&H Photo has new 21″ 1.4GHz iMac on sale for $999 including free shipping plus NY sales tax only. Their price is $100 off MSRP. Best Buy has the 21″ 1.4GHz iMac on sale for $999.99 on their... Read more
16GB iPad mini 3 on sale for $339, save $60
B&H Photo has the 16GB iPad mini 3 WiFi on sale for $339 including free shipping plus NY tax only. Their price is $60 off MSRP. Read more

Jobs Board

Frameworks Engineer, *Apple* Watch - Apple...
**Job Summary** Join the team that is shaping the future of software development for Apple Watch! As a software engineer on the Apple Watch Frameworks team you will Read more
Mobile Payments Counsel, *Apple* Pay (digit...
**Job Summary** Apple is looking for an atto ey to join Apple 's Legal Department to support Apple Pay. **Key Qualifications** 4+ years of relevant experience Read more
*Apple* Solutions Consultant - Retail Sales...
**Job Summary** The ASC is an Apple employee who serves as the Apple business manager and influencer in a hyper-business critical Reseller's store which delivers Read more
Partner Marketing Manager, Merchant- *Apple*...
**Job Summary** The Apple Pay partner marketing team is looking for a marketing manager to develop and drive US marketing programs with our merchant partners. The right Read more
*Apple* Solutions Consultant - Retail Sales...
**Job Summary** As an Apple Solutions Consultant (ASC) you are the link between our customers and our products. Your role is to drive the Apple business in a retail Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.