Detail

The “Join Prism Corners” item is in the Drawing sub-menu of AppleWorks Scripts Menu.

When activated, this script draws a line between each pair of corresponding corners in the two selected rectangles. Draws four lines joining each of the corners of the front two rectangles. The result looks like a prism, box or room, depending on the format of the rectangles.

Sample

Before: After:
.

A future version of this script may also operate on other objects or create pyramids.

After running this script, you can select the lines and run the Dashed Lines script to make a projection from the small rectangle to the larger.

Operates on the two selected rectangles, in the drawing area of a document.

This script works with AppleWorks 6 and AppleWorks 5.

Only registered users are permitted to use the supplied files after 14 days or edit them.

This script is included in the Enhancement Pack for AppleWorks, not supplied separately.

This script can be opened to view the code. The useful part is:

set {rectangle1, rectangle2} to selection
set {left1, top1, right1, bottom1} to bounds of rectangle1
set {left2, top2, right2, bottom2} to bounds of rectangle2

repeat with chooseX from 1 to 2
   repeat with chooseY from 1 to 2
     make new line at front in drawing area of front document with properties {start point:{item chooseX of {left1, right1}, item chooseY of {top1, bottom1}}, end point:{item chooseX of {left2, right2}, item chooseY of {top2, bottom2}}}
   end repeat
end repeat