TweetFollow Us on Twitter

4D Graphics
Volume Number:7
Issue Number:2
Column Tag:Database Corner

Related Info: Quickdraw

4th Dimension Graphics

By Haven C. Sweet, Orlando, FL

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

Graphics Output in Fourth Dimension.

Haven Sweet is a Professor of Biology at the University of Central Florida. He has been interested in using the Macintosh for a variety of educational purposes, and has tried to incorporate the computer into an academic laboratory setting. He has developed several classroom exercises using 4th Dimension.

Introduction

Although Fourth Dimension (4D) is not a programming language, I prefer to use it for most of my projects since it vastly simplifies programming and managing complex data. However, I recently discovered a very unfortunate limitation of Fourth Dimension; it is unable to draw on the screen using tool box calls.

The Problem

After creating a large data base of organisms with 4D, I added calculations for a cluster analysis to elucidate their possible relationships. When I wanted to present the final results in a dendrogram (Figure 1), I discovered there was no simple mechanism for drawing on the screen or printing text at variable locations.

Figure 1. A sample clustering output, showing the similarity of four different records in the data base. The figure was drawn on an output layout which only contained the buttons.

I would have to write the entire graphics routine in Pascal, compile it as an external procedure, and create external areas within my program. Not being proficient with MPW, I was hesitant to attempt writing anything which would require debugging by switching from MPW to Ext. Mover to 4D to MPW etc. Hoping version 2 would provide direct toolbox routines such as MoveTo(xStart,yStart), LineTo(xEnd,yEnd) and Writeln(Message), I found that Acius had no such plans.

The Solution

Facing the tedium of learning MPW and Pascal, I hit upon a much simpler solution; I created four external units which provide equivalent procedures for moving the pen, drawing a line, writing text at any location on the screen, and defining both pen and text characteristics. Then, using a blank layout screen, I wrote the graphics routines in the layout procedure and invoked these procedures. Although the graphics output is quite slow, it is more than adequate for the occasional presentation of simple data.

The “pseudo toolbox” routines can be as short or long as needed, but each must be compiled separately and given a name different from the toolbox routine. While I toyed with putting a “4D” before the name of every toolbox call, I decided to combine several I need into a single procedure. So, when text must appear at variable locations on the screen, instead of using MoveTo(xStart;yStart); Writeln(message), the new procedure is WriteAt(xStart;yStart;Message). Likewise, when a line must be drawn, instead of using MoveTo and LineTo, they were combined into DrawLine(xStart;yStart;xEnd;yEnd) which defines the start and end of the line. To alter the text or pen’s characteristics, I adopted the syntax used in ZBasic to produce Pen(xSize;ySize;visible;PenMode) and Text(font;point size;mode). Because variables are used, the procedures can use data either stored in the database or generated from it to draw appropriate lines.

These procedures were written in Pascal and compiled as units which can be moved using 4D External Mover into either the resource of a 4D program or the Proc.Ext. The units are quite small, taking under 600 bytes for all four routines. Once installed, the procedures can be called from within the program in the same manner as any global procedure.

The Output Screen

The next problem was to provide a blank screen on which the results could be written, as well as to find the best way to call the function. My solution was to create a dummy data file with all the drawing done in the output layout procedure. However, there must be exactly one record in the file; if the file is empty, the layout screen never appears, while if there are more than one record in the selection, the drawing procedure is executed for each record. Although it is possible to create a set with only one record in it, it is simpler to create a file named “Blank” which contains only one field, “Dummy”. Then, with the User mode, add one record to the file. An empty layout screen must be created for each different graphics screen.

The layout forms in the file “Blank” should have the three markers Header, Detail, and Break positioned at the very top of the page. If no buttons are to appear in the form, the Footer should also should be placed at the top; otherwise, it should be just far enough down to accomidate the buttons (Figure 2).

Figure 2. The appearance of the layout screen on which the drawing or text placement will be done. Note that the markers for Header, Detail and Break are all at the top of the page.

Although other line positions may work (including using the default positioning of the lines), having them at the top is more reliable since unusual things may occur with some positions. For example, if Break or Header are below the window’s margin, nothing will be drawn; if the Detail line is below the window, then the image is drawn and immediately erased; if space remains between the Header and Detail, clicking on the area permits the user to double click the region and jump to the data input mode. Thus, since the user may resize the window, it is safest to prevent anomalies by placing the lines at the top.

The Procedures’ Syntax

The drawing procedures should only be executed in the BEFORE phase, and should use the following formats:

Pen([xSize] [; [YSize]; [Visible]; [Pen Mode]] )

XSize is the horizontal width of the line in pixels.

YSize is the vertical width of the line in pixels. If omitted or set to zero, the xSize value is used for ySize.

Visible is set to one if the line is to be seen or zero if it is invisible.

Pen Mode uses the following;

0 or 8 Pattern COPY

1 or 9 Pattern OR

2 or 10 Pattern XOR

3 or 11 Pattern BIC

4 or 12 Not pattern COPY

5 or 13 Not pattern OR

6 or 14 Not pattern XOR

7 or 15 Not Pattern BIC

All values are optional. A call to Pen with no parameters resets the normal pen (1 by 1 pixel, visible in the copy mode). Partial parameters may also be used. For example, Pen(3;3;1;8) would produce the same effect as Pen(3) or Pen(3;3)-- that is, a visible pen, 3 by 3 pixels in the copy mode. Although ZBasic also includes the possibility of altering the pen pattern, I did not include it in these routines.

Text( [Font] [; [Point size] ; [Face] ; [Mode]] )

Font codes include;

0 System font

1 Application font

2 New York 20 Times

3 Geneva 21 Helvetica

4 Monaco 22 Courier

5 Venice 23 Symbol

11 Cairo 24 Taliesin

Point size can range from 1 through 127

Face codes are; Mode uses the following;

0 Plain 0 or 8 Pattern COPY

1 Bold 1 or 9 Pattern OR

2 Italic 3 or 11 Pattern BIC

4 Underlined 2 or 10 Pattern XOR

8 Outlined 4 or 12 Not pattern COPY

16 Shadow 5 or 13 Not pattern OR

32 Condensed 6 or 14 Not pattern XOR

64 Extended 7 or 15 Not Pattern BIC

Combinations would be the sum of each face; i.e., bold italic text would have a code of 3.

All values are optional; if omitted, the result is 12 point, plain system font in the copy mode. Both Text(22;10;3;0) and Text(22;10;3) define text as 10 point Courier, italic and bold, which is in the COPY mode.

DrawLine( xStart; yStart; xEnd; yEnd)

This procedure draws a line, with the characteristics defined in the Pen procedure, which begins at a point xStart, yStart, and extends to the point xEnd, yEnd. For example DrawLine(1;1;200;1) would draw a line across the top of the screen.

WriteAt( xStart; yStart; Message)

This procedure writes any text stored in Message beginning at a point xStart, yStart. For example, WriteAt(10;YPos;”The results follow”) would print the text 10 pixels from the left edge and YPos pixels from the top.

Example

The following procedures are designed to draw a line on the screen and to place text near its origin. In this example, the coordinates of the line are entered by the user in a dialog box, but they could have been derived from data in the file.

‘ global procedure Draw a line
DEFAULT FILE([Blank])
ALL RECORDS([Blank]) ‘ this file has one record
 ‘ ask for characteristics of line and text
DIALOG(“Dialog box”)
If (OK=1)|(b1=1)
     INPUT LAYOUT(“Blank-line”)
     OUTPUT LAYOUT(“Blank-line”)
     DISPLAY SELECTION(*)
End if 
‘Layout procedure Blank-line
If (Before)
  visible:=1
  PenMode:=8   ‘Pattern copy  
 ‘ pen size entered by user
  Pen (xSize;Ysize;visible;PenMode)
 ‘ start and end positions entered by user
  DrawLine (h1;v1;h2;v2)
 ‘ Face entered by user
  Text (0;12;Face;0) ‘ font,point size,style,mode
  WriteAt ((h1+20);(v1+20);”This is where the line begins.”)
End if 

The Units

The Pascal versions of the four procedures are followed by one annoted example of the MPW commands needed to compile each into a unit. This method of directly creating units was devised by Jud Spencer of After Hours Software, and was distributed by Acius as Technical Note #150, March, 1989.

Unit Pen;
INTERFACE
 USES 
 Memtypes,Quickdraw,OSIntf,Toolintf,packintf;
 Procedure  PenSet(var Xsize,Ysize,visible, Mode: Integer);
IMPLEMENTATION
Procedure PenSet(var Xsize,Ysize,visible, Mode: Integer);
 begin
 PenNormal;
 if (Xsize>0) then
 {its OK}
 else
 Xsize:=1;
 if (Ysize>0) then
 {its OK}
 else
 Ysize:=Xsize;
 PenSize(Xsize,Ysize);
 if (visible=0) then
 HidePen
 else
 ShowPen;
 if (Mode>=0) and (Mode<8) then
 Mode:=Mode+8; {correct if wrong mode range used}
 if (Mode>7) and (Mode<16) then
 PenMode(Mode);
 end;
END.
____________________________________________
Unit DrawLine;
INTERFACE
 USES 
 Memtypes,Quickdraw,OSIntf,Toolintf,packintf;
 
 Procedure DrawALine(var h1,v1,h2,v2: Integer);
 
IMPLEMENTATION
 Procedure DrawALine(var h1,v1,h2,v2: Integer);
 begin
 MoveTo(h1,v1);
 LineTo(h2,v2);
 end;
END.
____________________________________________
Unit Text;
INTERFACE
 USES 
  Memtypes,Quickdraw,OSIntf,Toolintf,packintf;
 Procedure TextSet(var font,point,StyleNum,mode: Integer);
IMPLEMENTATION
 Procedure TextSet(var font,point,StyleNum,mode: Integer);
 begin
 if (font>0) then
 TextFont(font)
 else
 TextFont(0);
 if (point>0) and (point<128) then
 TextSize(point)
 else
 TextSize(12);
 if (mode>7) and (mode<16) then
 mode:=mode-8; {correct if wrong mode range used}
 if (mode>=0) and (mode<8) then
 TextMode(mode) 
 else
 TextMode(0);
 if (StyleNum>0) and (StyleNum<128) then
 TextFace(Style(StyleNum))
 else
 TextFace([]);
 end; {procedure}
END.
____________________________________________
Unit WriteAt;
INTERFACE
 USES 
 Memtypes,Quickdraw,OSIntf,Toolintf,packintf;
 Procedure WriteItAt(var h1,v1:Integer;var s: Str255);   IMPLEMENTATION
 Procedure WriteItAt(var h1,v1:Integer;var s: Str255);
 begin
 MoveTo(h1,v1);
 DrawString(s);
 end;
END.

Workshop Commands

MPW worksheet commands for the WriteAt procedure are described below. Set the correct directory, then replace or correct all the items noted below as each different unit is compiled and linked.

Pascal WriteAt.p
#      Fix ^     Use unit’s name
Link -w -p WriteAt.p.o 
#             Fix ^    Use unit’s name
“{Libraries}”Runtime.o 
“{Libraries}”Interface.o 
“{PLibraries}”PasLib.o 
-m WRITEITAT 
#    Fix ^    use ALL CAPS with the procedure’s name (not the Unit’s)
-rt 4DEX=16114 
#Fix ^ be sure 4D is name of 4th Dimension, or change it here
-sg Main2 
-sn “Main2=WriteAt(&I;&I;&S)” 
#      Fix ^         Fix ^  with proper variable list, where I=integer, 
S=String
-o Proc.Ext(WriteAt)
#          Fix ^      with proper unit name

Conclusions

Although some labor is required to initially write and compile the graphics external procedures, it only needs to be done once. After being installed in the Proc.Ext, a 4th Dimension database can access the procedures with minimal effort. Unfortunately, describing the process makes it sound much more difficult than it actually is.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

CleanMyMac 3.9.0 - $39.95
CleanMyMac makes space for the things you love. Sporting a range of ingenious new features, CleanMyMac lets you safely and intelligently scan and clean your entire system, delete large, unused files... Read more
Apple High Sierra 10.13 - The latest OS...
macOS High Sierra introduces new core technologies that improve the most important functions of your Mac. From rearchitecting how it stores your data to improving the efficiency of video streaming to... Read more
OmniGraffle Pro 7.4.3 - Create diagrams,...
OmniGraffle Pro helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use... Read more
OmniGraffle 7.4.3 - Create diagrams, flo...
OmniGraffle helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use Graffle to... Read more
VueScan 9.5.86 - Scanner software with a...
VueScan is a scanning program that works with most high-quality flatbed and film scanners to produce scans that have excellent color fidelity and color balance. VueScan is easy to use, and has... Read more
ExpanDrive 6.1.0 - Access cloud storage...
ExpanDrive builds cloud storage in every application, acts just like a USB drive plugged into your Mac. With ExpanDrive, you can securely access any remote file server directly from the Finder or... Read more
Yojimbo 4.1 - Data information organizer...
Yojimbo empowers Mac users to manage, effortlessly and securely, the onslaught of information encountered every day at work and at home, even across multiple computers. Yojimbo stores different data... Read more
Airmail 3.5 - Powerful, minimal email cl...
Airmail is an mail client with fast performance and intuitive interaction. Support for iCloud, MS Exchange, Gmail, Google Apps, IMAP, POP3, Yahoo!, AOL, Outlook.com, Live.com. Airmail was designed... Read more
Cocktail 11.0 - General maintenance and...
Cocktail is a general purpose utility for macOS that lets you clean, repair and optimize your Mac. It is a powerful digital toolset that helps hundreds of thousands of Mac users around the world get... Read more
Numi 3.17.2 - Menu-bar calculator suppor...
Numi is a calculator that magically combines calculations with text, and allows you to freely share your computations. Numi combines text editor and calculator Support plain English. For example, '5... Read more

The best visual novels on mobile
Narrative games have been around for ages, but only now have they been creeping into the mainstream spotlight. These games tell some of the industry's finest stories, and they break new ground in terms of gameplay and mechanics regularly. Here are... | Read more »
The best new games we played this week -...
It's pretty much been one big release after another. We were privy to a bunch of surprises this week, with a lot of games we'd been waiting for quite some time dropping unexpectedly. We hope you're free this weekend, because there is a lot for... | Read more »
Stormbound: Kingdom Wars guide - how to...
Stormbound: Kingdom Wars is an excellent new RTS turned card battler out now on iOS and Android. Lovers of strategy will get a lot of enjoyment out of Stormbound's chess-like mechanics, and it's cardbased units are perfect for anyone who loves the... | Read more »
The best AR apps and games on iOS right...
iOS 11 has officially launched, and with it comes Apple's ARKit, a helpful framework that makes it easier than ever for developers to create mobile AR experiences. To celebrate the occassion, we're featuring some of the best AR apps and games on... | Read more »
Phoenix Wright: Ace Attorney - Spirit of...
Phoenix Wright: Ace Attorney - Spirit of Justice 1.00.00 Device: iOS Universal Category: Games Price: $.99, Version: 1.00.00 (iTunes) Description: ************************************************※IMPORTANT※・Please read the “When... | Read more »
Kpressor (Utilities)
Kpressor 1.0.0 Device: iOS Universal Category: Utilities Price: $4.99, Version: 1.0.0 (iTunes) Description: The ultimate ZIP compression application for iPhone and iPad. - Full integration of iOS 11 with support for multitasking.-... | Read more »
Find out how you can save £35 and win a...
Nothing raises excitement like a good competition, and we’re thrilled to announce our latest contest. We’ll be sending one lucky reader and a friend to the Summoners War World Arena Championship at Le Comedia in Paris on October 7th. It’s the... | Read more »
Another Lost Phone: Laura's Story...
Another Lost Phone: Laura's Story 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Another Lost Phone is a game about exploring the social life of a young woman whose phone you have just... | Read more »
The Witness (Games)
The Witness 1.0 Device: iOS Universal Category: Games Price: $9.99, Version: 1.0 (iTunes) Description: You wake up, alone, on a strange island full of puzzles that will challenge and surprise you. You don't remember who you are, and... | Read more »
Egg, Inc. guide - how to build your gold...
Egg, Inc.'s been around for some time now, but don't you believe for one second that this quirky clicker game has gone out of style. The game keeps popping up on Reddit and other community forums thanks to the outlandish gameplay (plus, the... | Read more »

Price Scanner via MacPrices.net

12-inch 64GB iPad Pro on sale for $749, save...
Adorama has 12″ 64GB iPad Pros on sale today for $749 including free shipping plus NY & NJ sales tax only. Their price is $50 off MSRP. Read more
Apple Certified Refurbished iPad minis availa...
Apple has Certified Refurbished 128GB iPad minis available today for $339 including free shipping. Apple’s standard one-year warranty is included. Their price is $60 off MSRP. Read more
12-inch 1.2GHz Retina MacBook Pros on sale fo...
B&H Photo has 2017 12″ 1.2GHz Retina MacBooks on sale for $100 off MSRP. Shipping is free, and B&H charges sales tax in NY & NJ only: 12″ 1.2GHz Space Gray MacBook: $1199 $100 off MSRP 12... Read more
Sunday sale: 13-inch 3.1GHz MacBook Pros for...
Amazon has 2017 13″ 3.1GHz MacBook Pros on sale today for up to $150 off MSRP, each including free shipping: – 13″ 3.1GHz/256GB Space Gray MacBook Pro (MPXV2LL/A): $1649.99 $150 off MSRP – 13″ 3.1GHz... Read more
Looking for a 2017 12″ Retina MacBook? Save $...
Apple has Certified Refurbished 2017 12″ Retina MacBooks available for $200-$240 off the cost of new models. Apple will include a standard one-year warranty with each MacBook, and shipping is free.... Read more
Apple Offering Up To $455 Credit Toward iPhon...
iPhone 8 and 8 Plus are now available at the Apple Store, and you can receive up to $375 credit toward a new iPhone purchase when you trade in your eligible smartphone. Photo Courtesy Apple Just... Read more
AnyTrans Offers iOS Users Three Ways For Movi...
iMobie Inc. today announceed AnyTrans v6.0.1, which now can help iOS users move all data to iPhone 8/8 Plus seamlessly. The software is available both on Mac and Windows and fully able to move all... Read more
Snag a 13-inch 2.3GHz MacBook Pro for $100 of...
B&H Photo has 2017 13″ 2.3GHz MacBook Pros in stock today and on sale for $100 off MSRP, each including free shipping plus NY & NJ sales tax only: – 13-inch 2.3GHz/128GB Space Gray MacBook... Read more
Verizon offers new iPhone 8 for $100-$300 off...
Verizon is offering the new iPhone 8 for up to $300 off MSRP with an eligible trade-in: • $300 off: iPhone 6S/6S Plus/7/7 Plus, Google Pixel XL, LG G6, Moto Z2 Force, Samsung Galaxy S7/S7 edge/S8/S8... Read more
Apple Refurbished 2017 13-inch MacBook Pros a...
Apple has Certified Refurbished 2017 13″ Touch Bar MacBook Pros in stock today and available for $200-$300 off MSRP. A standard Apple one-year warranty is included with each MacBook, and shipping is... Read more

Jobs Board

Data Engineer - *Apple* Media Products - Ap...
Job Summary Apple is seeking a highly skilled data engineer to join the Data Engineering team within Apple Media Products. AMP (home to Apple Music, App Read more
Development Operations and Site Reliability E...
Development Operations and Site Reliability Engineer, Apple Payment Gateway Job Number: 57572631 Santa Clara Valley, California, United States Posted: Jul. 27, 2017 Read more
Development Operations and Site Reliability E...
Development Operations and Site Reliability Engineer, Apple Payment Gateway Job Number: 57572631 Santa Clara Valley, California, United States Posted: Jul. 27, 2017 Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Instructional Designer, *Apple* Product Doc...
Job Summary The Apple Product Documentation team is looking for an instructional designer or a video editor to write user documentation for its professional video Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.