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

Bookends 12.5.8 - 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
Chromium 44.0.2403.125 - Fast and stable...
Chromium is an open-source browser project that aims to build a safer, faster, and more stable way for all Internet users to experience the web. Version 44.0.2403.125: This release contains a number... Read more
iMazing 1.2.2 - Complete iOS device mana...
iMazing (was DiskAid) is the ultimate iOS device manager with capabilities far beyond what iTunes offers. With iMazing and your iOS device (iPhone, iPad, or iPod), you can: Copy music to and from... Read more
Audio Hijack 3.2.0 - Record and enhance...
Audio Hijack (was Audio Hijack Pro) drastically changes the way you use audio on your computer, giving you the freedom to listen to audio when you want and how you want. Record and enhance any audio... Read more
FontExplorer X Pro 5.0.1 - Font manageme...
FontExplorer X Pro is optimized for professional use; it's the solution that gives you the power you need to manage all your fonts. Now you can more easily manage, activate and organize your... Read more
Calcbot 1.0.2 - Intelligent calculator a...
Calcbot is an intelligent calculator and unit converter for the rest of us. Featuring an easy-to-read history tape, expression view, intuitive conversion, and much more! Features History Tape -... Read more
MTR 5.0.0.1 - The Mac's oldest and...
MTR (was MacTheRipper)--the Mac's oldest and smartest DVD-backup app--is now updated to version 5.001 MTR -- the complete toolbox, not a one-trick, point-and-click extractor. MTR is intended for... Read more
LibreOffice 4.4.5.2 - Free, open-source...
LibreOffice is an office suite (word processor, spreadsheet, presentations, drawing tool) compatible with other major office suites. The Document Foundation is coordinating development and... Read more
Adobe Lightroom 6.1.1 - Import, develop,...
Adobe Lightroom is available as part of Adobe Creative Cloud for as little as $9.99/month bundled with Photoshop CC as part of the photography package. Lightroom 6 is also available for purchase as a... Read more
File Juicer 4.41 - Extract images, video...
File Juicer is a drag-and-drop can opener and data archaeologist. Its specialty is to find and extract images, video, audio, or text from files which are hard to open in other ways. It finds and... Read more

Pac-Man Championship Edition DX has brou...
Bandai Namco has released Pac-Man Championship Edition DX on iOS and Android, which features the classic arcade gameplay that we've all grown to love. Pac-Man Championship Edition DX can be enjoyed in much shorter bursts than the arcade versions... | Read more »
Cosmonautica (Games)
Cosmonautica 1.1 Device: iOS Universal Category: Games Price: $6.99, Version: 1.1 (iTunes) Description: Cast off! Are you ready for some hilarious adventures in outer space? | Read more »
Rescue humanity from a Demon horde in An...
Angel Stone is Fincon's follow up to the massively successful Hello Hero and is out now on iOS and Android. You play as a member of The Resistance, a group of mighty human warriors who have risen up in defiance of the Demon horde threatening to... | Read more »
Gallery Doctor (Photography)
Gallery Doctor 1.0 Device: iOS iPhone Category: Photography Price: $2.99, Version: 1.0 (iTunes) Description: Free up valuable iCloud and iPhone storage with Gallery Doctor, the only iPhone cleaner that automatically identifies the... | Read more »
You Against Me (Games)
You Against Me 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: A simple game… You. Me. Claim, steal, lock, score, win! | Read more »
Yep, it's True - Angry Birds 2 is O...
The not exactly rumors were true and the birds are back. Angry Birds 2 has come to the App Store and the world will... well I suppose it'll still be the same, but now we have more bird-flinging options! [Read more] | Read more »
You Could Design Your Own Card for Chain...
If you've ever wanted to create your own item, weapon, trap, or even monster for Chainsaw Warrior: Lords of the Night, this is your chance. Auroch Digital is currently holding a contest so that fans can fight to the death (not really) to see which... | Read more »
Bitcoin Billionaire is Going Back in Tim...
If you thought you managed to buy everything there is to buy in Bitcoin Billionaire and make all the money, well you though wrong. Those of you who made it far enough might remember investing in time travel - and it looks like that investment is... | Read more »
Domino Drop (Games)
Domino Drop 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Domino Drop is a delightful new puzzle game with dominos and gravity!Learn how to play it in a minute, master it day by day.Your... | Read more »
OPERATION DRACULA (Games)
OPERATION DRACULA 1.0.1 Device: iOS Universal Category: Games Price: $5.99, Version: 1.0.1 (iTunes) Description: 25% off launch sale!!! 'Could prove to be one of the most accurate representations of the Japanese bullet hell shmup... | Read more »

Price Scanner via MacPrices.net

Sale! 13-inch MacBook Pros on sale for $100 o...
B&H Photo has 13″ MacBook Pros on sale for $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 2.5GHz/500GB MacBook Pro: $999.99 save $100 - 13″ 2.7GHz/128GB Retina... Read more
Sale! Save $100 on 13-inch MacBook Airs this...
B&H Photo has the 13″ 1.6GHz/128GB MacBook Air on sale for $899.99 including free shipping plus NY tax only. Their price is $100 off MSRP, and it’s the lowest price available for this model.... Read more
Worldwide Tablet Market Decline Continues, Ap...
The worldwide tablet market declined -7.0% year-over-year in the second quarter of 2015 (2Q15) with shipments totaling 44.7 million units according to preliminary data from the International Data... Read more
TP-LINK TL-PA8030P KIT Powerline Featuring Ho...
Consumer and business networking products provider TP-LINK is now shipping its TL-PA8030P KIT AV1200 3-Port Gigabit Passthrough Powerline Starter Kit that expands your home’s network over its... Read more
Apple refurbished iPad Air 2s available for u...
The Apple Store has Apple Certified Refurbished iPad Air 2s available for up to $140 off the price of new models. Apple’s one-year warranty is included with each model, and shipping is free: - 128GB... Read more
Updated Apple iPad Price Trackers
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. Read more
Apple refurbished 2014 13-inch 128GB MacBook...
The Apple Store has Apple Certified Refurbished 2014 13″ MacBook Airs available starting at $759. An Apple one-year warranty is included with each MacBook, and shipping is free: - 13″ 1.4GHz/128GB... Read more
Apple’s Education discount saves up to $300 o...
Purchase a new Mac or iPad at The Apple Store for Education and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free,... Read more
Save up to $600 with Apple refurbished Mac Pr...
The Apple Store has Apple Certified Refurbished Mac Pros available for up to $600 off the cost of new models. An Apple one-year warranty is included with each Mac Pro, and shipping is free. The... Read more
Mac Pros on sale for up to $260 off MSRP
B&H Photo has Mac Pros on sale for up to $260 off MSRP. Shipping is free, and B&H charges sales tax in NY only: - 3.7GHz 4-core Mac Pro: $2799, $200 off MSRP - 3.5GHz 6-core Mac Pro: $3719.99... Read more

Jobs Board

*Apple* Bus Company is now hirin - Apple Bus...
Apple Bus Company is now hiring school bus drivers in the Pettis County area. Class B CDL preferred. Free training provided. No nights or weekends required. Flexible Read more
*Apple* Certified Mac Technician - Updated 6...
…and friendly, hands-on technical support to customers troubleshooting and repairing Apple /Mac products with courtesy, speed and skill. Use your problem-solving skills Read more
Infrastructure Engineer - *Apple* /Mac Envir...
…a part of a team Requires proven problem solving skills Preferred Additional Apple Certified System Administrator (ACSA) Apple Certified Technical Coordinator (ACTC) 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
*Apple* Online Store UAT Lead - Apple (Unite...
**Job Summary** The Apple Online Store is a fast paced and ever evolving business environment. The User Acceptance Testing (UAT) lead in this organization is able to Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.