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

Microsoft Remote Desktop 8.0.34 - 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
Data Rescue 4.2.3 - Powerful hard drive...
Use Data Rescue to recover: crashed, corrupted or non-mounting hard drive deleted, damaged, or lost files reformatted or erased hard drive One powerful new feature found in Data Rescue 4 is... Read more
Viber 6.2.0 - Send messages and make cal...
Viber lets you send free messages and make free calls to other Viber users, on any device and network, in any country! Viber syncs your contacts, messages and call history with your mobile device, so... Read more
Lyn 1.7.2 - Lightweight image browser an...
Lyn is a fast, lightweight image browser and viewer designed for photographers, graphic artists, and Web designers. Featuring an extremely versatile and aesthetically pleasing interface, it delivers... Read more
Lyn 1.7.2 - Lightweight image browser an...
Lyn is a fast, lightweight image browser and viewer designed for photographers, graphic artists, and Web designers. Featuring an extremely versatile and aesthetically pleasing interface, it delivers... Read more
Tunnelblick 3.6.7beta02 - GUI for OpenVP...
Tunnelblick is a free, open source graphic user interface for OpenVPN on OS X. It provides easy control of OpenVPN client and/or server connections. It comes as a ready-to-use application with all... Read more
jAlbum Pro 13.4 - Organize your digital...
jAlbum Pro has all the features you love in jAlbum, but comes with a commercial license. You can create gorgeous custom photo galleries for the Web without writing a line of code! Beginner-friendly... Read more
calibre 2.65.1 - Complete e-book library...
Calibre is a complete e-book library manager. Organize your collection, convert your books to multiple formats, and sync with all of your devices. Let Calibre be your multi-tasking digital librarian... Read more
jAlbum 13.4 - Create custom photo galler...
With jAlbum, you can create gorgeous custom photo galleries for the Web without writing a line of code! Beginner-friendly, with pro results - Simply drag and drop photos into groups, choose a design... Read more
Backblaze 4.2.0.966 - Online backup serv...
Backblaze is an online backup service designed from the ground-up for the Mac. With unlimited storage available for $5 per month, as well as a free 15-day trial, peace of mind is within reach with... Read more

Mummy madness in new action game Tomb He...
Hot on the tail of Bump Hero, ZPlay is giving gamers another reason to get screen bashing with a brand new release. Tomb Heroes is a challenging action game in which you battle enemies in various tombs around the world. You can select from nine... | Read more »
Siralim 2 (RPG / Roguelike) (Games)
Siralim 2 (RPG / Roguelike) 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Siralim 2 is an old-school monster catching RPG. Summon and customize hundreds of creatures to fight for you as... | Read more »
Clean Text (Productivity)
Clean Text 1.0 Device: iOS Universal Category: Productivity Price: $3.99, Version: 1.0 (iTunes) Description: | Read more »
Gemini - A Journey of Two Stars (Games)
Gemini - A Journey of Two Stars 1.0.1 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.1 (iTunes) Description: *** SPECIAL LAUNCH SALE: $2.99 (25% off) *** "A mesmerizing and unexpectedly emotional journey." -- Los... | Read more »
How to get four NFL superstars for your...
Even though you're probably well on your way to building a top notch squad for the new season in Madden NFL Mobile, let's say you could beef it up by adding Rob Gronkowski, Antonio Brown, Von Miller, and Todd Gurley to your roster. That's... | Read more »
Cartoon Network Superstar Soccer: Goal!!...
Cartoon Network Superstar Soccer: Goal!!! – Multiplayer Sports Game Starring Your Favorite Characters 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Become a soccer superstar with your... | Read more »
NFL Huddle: What's new in Topps NFL...
Can you smell that? It's the scent of pigskin in the air, which either means that cliches be damned, pigs are flying in your neck of the woods, or the new NFL season is right around the corner. [Read more] | Read more »
FarmVille: Tropic Escape tips, tricks, a...
Maybe farming is passé in mobile games now. Ah, but farming -- and doing a lot of a other things too -- in an island paradise might be a little different. At least you can work on your tan and sip some pina coladas while tending to your crops. [... | Read more »
Become the King of Avalon in FunPlus’ la...
King Arthur is dead. Considering the legend dates back to the 5th century, it would be surprising if he wasn’t. But in the context of real-time MMO game King of Avalon: Dragon Warfare, Arthur’s death plunges the kingdom into chaos. Evil sorceress... | Read more »
Nightgate (Games)
Nightgate 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: *** Launch Sale: 25% OFF for a limited time! *** In the year 2398, after a great war, a network of intelligent computers known as... | Read more »

Price Scanner via MacPrices.net

9-inch 32GB iPad Pros on sale for $70 off MSR...
B&H Photo has 9″ 32GB WiFi Apple iPad Pros on sale for $70 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 9″ Space Gray 32GB WiFi iPad Pro: $529 $70 off MSRP - 9... Read more
Mac minis on sale for up to $140 off MSRP
Adorama has Mac minis on sale for up to $100 off MSRP including free shipping plus NY & NJ sales tax only: - 1.4GHz Mac mini: $449 $50 off MSRP - 2.6GHz Mac mini: $649 $50 off MSRP Amazon has the... Read more
Back To School with OtterBox Essentials
Back to school means back to an environment that is tough on tech. OtterBox has the back to school essentials you need to keep tech safe from drops, bumps, scratches and hallway havoc. Check out the... Read more
VRS Design Releases New iPhone 7 Plus Case Li...
With a device as large and costly as the iPhone 7 Plus, it is primal instinct to protect it from potential damage. According to a study by SquareTrade in 2012, iPhone damages cost Americans roughly $... Read more
MacBook Airs on sale for up to $101 off MSRP
Amazon has 11″ and 13″ MacBook Airs on sale for up to $101 off MSRP for a limited time. Shipping is free: - 11″ 1.6GHz/128GB MacBook Air (model MJVM2LL/A): $798 $101 off MSRP - 11″ 1.6GHz/256GB... Read more
Apple certified refurbished iPad mini 4s avai...
Apple has certified refurbished iPad mini 4s now available for up to $120 off the cost of new models. An Apple one-year warranty is included with each iPad, and shipping is free. The following models... Read more
Apple price trackers, updated continuously
Scan our Apple Price Trackers for the latest information on sales, bundles, and availability on systems from Apple’s authorized internet/catalog resellers. We update the trackers continuously: - 15″... Read more
Global Tablet Shipments Projected to Increase...
Digitimes’ Jim Hsiao reports that global tablet shipments will increase by 16.3 percent sequentially to reach nearly 47 million units in 2016′s third quarter, but that volume will still be down over... Read more
Apple’s 2016 Back to School promotion: Free B...
Purchase a new Mac or iPad using Apple’s Education Store and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free, and... Read more
Apple refurbished iPad Air 2s available start...
Apple has Certified Refurbished iPad Air 2 available starting at $339. Apple’s one-year warranty is included with each model, and shipping is free: - 128GB Wi-Fi iPad Air 2: $499 - 64GB Wi-Fi iPad... Read more

Jobs Board

*Apple* Solutions Consultant - Apple (United...
# Apple Solutions Consultant Job Number: 51218354 Fredericksburg, Virginia, United States Posted: Aug. 18, 2016 Weekly Hours: 40.00 **Job Summary** As an Apple Read more
*Apple* Retail - Multiple Positions Birmingh...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
SW Engineer *Apple* TV - Apple Inc. (United...
The Apple TV team is looking for excellent software engineers with experience in hardware, media management, media playback, content delivery and a passion for Read more
*Apple* Retail - Multiple Positions Victor,...
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* /Mac Support Engineer - GFI Digital,...
FI Digital, Inc. is currently seeking candidates for a full time Apple Support Engineer to add to our Maryland Heights, Missouri IT team. Candidates must be dynamic Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.