TweetFollow Us on Twitter

Graphics Objects
Volume Number:2
Issue Number:11
Column Tag:Lisp Listener

Simple Graphics Objects

By Andrew Shalit, Cambridge, MA

Graphics Objects in MacScheme

Welcome back to Lisp Listener! Our current choice of Lisp implementations is MacScheme by Semantic Microsystems. Scheme is a modern and elegant dialect of Lisp, and MacScheme is a robust, complete, and elegant implementation. Previously MacScheme did not offer pro-grammers much access to the Macintosh toolbox. In August a new release of a product called MacScheme + Toolsmith, was made which allows the production of event-driven programs. This will be followed shortly by an application builder that will make it possible to create stand-alone applications with MacScheme. The MacScheme editor, which is currently fairly limited, is also in the process of being upgraded. Look for reviews of all these items in future columns.

The only way to get to the toolbox in the previous incar-nation of MacScheme, version 1.11, was through an escape into machine language that looks very complicated (I haven't tried it out). Version 1.11 does, though, have some simple graphics capabilities which we will be using in this month's column. As it stands now, MacScheme is a great way to learn Lisp and explore object oriented programming.

Graphics in MacScheme

In early 1986, MacScheme was enhanced to allow the use of simple graphics operations. MacScheme has one graphics window, which must be opened with a procedure call before graphics can be used. The graphics window can be two sizes, 'full' or 'half'. To open up a small graphics window, the code would be:

 (start-graphics 'half)

Once a graphics window is open, you can get rid of it by saying:

 (end-graphics)

(One thing to be careful of: you aren't allowed to 'start-graphics' if the graphics window is already there, and you aren't allowed to end them if it isn't there. Moreover, there is currently no way for a procedure to test whether the graphics window is open. Hopefully Semantic Microsystems will add this test feature soon, or just allow you to open the window even if it already open, or close it if it is closed.)

Once the graphics window is open, there are just under 30 commands for drawing in it. These are all pretty basic: drawing, erasing, and inverting lines, rectangles, ovals, circles and points. You can also set up a picture that will be refreshed if the graphics window is obscured, draw a string, and clear the window.

For Macintosh programmers, MacScheme graphics take a little readjusting. This is because MacScheme uses the coordinate system that you learned in grade school, instead of the one you learned in Inside Macintosh. That's right, the x coordinate comes first, followed by the y coordinate. The half size graphics window is 470x130 pixels, so the procedure call

 (paint-oval 20 95 50 125)

would paint a circle in the lower left hand corner of the graphics window.

The general form of graphics procedures that work with two points is

(procedure  x1 y1 x2 y2)

Data Abstraction

This brings us to the first programming issue of the column: data abstraction. As you can imagine, it would be awkward working with rectangles and points if you always had to think about them in terms of their individual coordinates. One of the strong points of Lisp is its ability to create complex data objects. So, before I did anything with graphics, I created a set of procedures for working with points and rectangles. The simplest way to work with a rectangle is to set it up as a list of four coordinates. The coordinates can then be passed to a MacScheme graphics procedure by saying

 (apply the-procedure the-list )

In the sample procedures shown here, I use a slightly more complex data structure because it makes the issue of data abstraction stand out more clearly.

As I have defined them, a point is a simple pair, and a rectangle is a list of points. But the particular internal structure of a point or a rectangle is unimportant to most of the procedures I will write. When I want to work with a point or rectangle, I always do so with the selectors and constructors that I have created. I use a constructor to create a rectangle or point, and I use a selector to get information about a rectangle or point. The selectors and constructors are the only parts of the system that need to know what the internals of the data structure look like. Once you have a complete set of selectors and constructors, you can forget about the underlying structures which the selectors and constructors use to work with the data. This technique is called data-abstraction, and is very useful for keeping programs as simple as possible. For example, the procedure adds-points knows nothing about points besides the fact that they have an x and a y coordinate. If I change the way I store points, I need only modify the selectors and constructors; the rest of the program remains the same.

Now that we have a way of storing points and rectangles, we need a way of passing rectangles to Scheme graphics procedures. Because a rectangle is defined by two points (as all Macintosh programmers know), we can use the rectangle data form for any procedure that requires two points (i.e. four coordinates) as arguments. The result is the procedure 2-point-function. This procedure takes two arguments, a graphics procedure and a rectangle, and it calls the graphics procedure, giving it the coordinates from the rectangle as arguments. 2-point-function also illustrates the ease with which procedures can be passed as arguments in Lisp.

An additional feature of Lisp should be clear by now: Lisp programs are not constructed as single units, as are programs in other languages. Rather, procedures are defined, thereby adding to the procedures which come already defined in the language. A Lisp program is little more than the interaction of a number of procedures. The result is an extensible working environment, similar to that found in Forth.

Object oriented Programming

The next feature of Lisp we will discuss is the ease with which procedures can return other procedures. Every procedure in Lisp, when evaluated, returns something. For example, (+ 4 3) returns 7, and (car '(a b c)) returns a. In Lisp it is very easy to have a procedure return another procedure as its result. Here is a simple (though fairly useless) example, a procedure which churns out procedures to add a constant to a number.

(define (make-adder the-constant)
 (lambda (the-input-variable)
 (+the-constant
 the-input-variable)))
 

The procedure make-adder returns a procedure (a lambda expression) which takes a single argument, the-input-variable. If we say,

(set! addfive (make-adder 5))

we have a new procedure, called addfive, which will add 5 to any number it is given as an argument.

One of the most powerful features of Scheme is that it is lexically scoped. This means that variables within a procedure are scoped according to the environment in which the procedure is defined (as opposed to dynamic scoping, in which variables are scoped according to the environment from which the procedure is called ). In the example given above, the procedure addfive works because the variable 'the-constant' is scoped according to the environment in which addfive was defined. When addfive was defined, the-constant was equal to 5. As far as addfive is concerned, the-constant will always be 5, even if we call make-adder again and again, giving it a different number each time, and even if we call addfive from another procedure that has a variable called 'the-constant' with a different value.

When you put together lexical scoping and procedures returning procedures, you get the ability to do object oriented programming. In case you don't know it as more than a buzz-word, here's a brief description of object oriented programming.

In older forms of programming, data and procedures are stored separately. You have a bunch of data, and then you have the procedures that operate on the data. (What would Von Neuman have thought of this!?) In our rectangle example above, we would define a bunch of rectangles, and then we would have procedures that would do something to one or another of the rectangles. In object oriented programming the procedures and data are bundled together. Instead of having a procedure make a rectangle get bigger, you just send a message to the rectangle, telling it to make itself bigger. Or you tell the rectangle to move, or draw itself, or whatever. Because procedures in MacScheme are lexically scoped, they can have internal state. The internal state is the data within the object, and the rest of the procedure knows how to operate on this data. Object oriented programming has advantages that are similar to the advantages of data abstraction. Once you define an object, you can forget about how its insides work. You just treat it as a black box and work with it as a single unit. When you want it to do something, you tell it what to do; when you want to know something about it, you ask it. The creation of objects helps keep programs modular and simple. You work on small, easily understood units which you can then assemble into larger units, and so on.

The first objects we will be working with are ovals. You give the procedure make-oval a rectangle or any combination of points and coordinates, and it returns a procedure which is an object that can draw, erase, invert itself, tell you its bounding rectangle, or receive a new bounding rectangle. Because this object is a procedure, you call it just like you call any other procedure. The argument that you give it is called the 'message' which you send to the object. It is up to the object to decode the message and act accordingly, or signal an error if it doesn't know what to do.

The next stage of object oriented programming involves something called 'inheritance'. Inheritance occurs when one object takes on the characteristics and abilities of other objects, usually adding new abilities of its own. This month we will keep thing simple and just discuss single inheritance, that is, we will define an object that inherits from one other object.

When you call the procedure make-grow-oval, you give it a bounding rectangle as an argument. Make-grow-oval then sends this bounding rectangle to make-oval, and gets back an object, an oval. It then returns a new object, a grow-oval, which contains this recently (and completely locally) defined oval. When you send a message to a grow-oval it first checks to see if it recognizes the message, in which case it does the appropriate processing. If it doesn't recognize the message, it passes it directly to its oval (i.e. it lets it 'fall through' to the internal object). In this way a grow-oval can add new functionality to an oval without losing any of an oval's standard features. One other interesting thing to note: the grow-oval lets the oval take care of bookkeeping the current bounding rectangle. Whenever a grow-oval needs to know the bounding rectangle, it just asks its oval for the information.

Doing It Together

Anyone interested in learning Lisp should read Structure and Interpretation of Computer Programs by Hal Abelson and Gerald Sussman. This is not only a great book on computer programming, but it is all done in Scheme. The reference manual for MacScheme is also very well written, if you just want see what a particular command does. One other book on Scheme that Semantic Microsystems recommends is The Little Lispers, but I haven't seen it myself, and so I can't speak for it.

Graphics Objects in MacScheme 1.11 Program File

Andrew Shalit

3 Sacramento St.

Cambridge, MA 02138

(617) 498-6637

June 7, 1986


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;newgraphicsobjects
;;;a program that demonstrates graphics and
;;;object oriented programming in MacScheme 1.11
;;;copyright 1986, MacTutor Magazine
;;;written by Andrew Shalit
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;constructors for building points and rectangles
;;A point is a simple pair of coordinates : (x . y)
(define (make-point x . y)
 (if  (point? x)
 x
 (cons x (car y))))
;;a rectangle is a list of two points: ((x1 . y1) (x2 . y2))
(define (make-rect first-coord . other-coords)
 (if  (rectangle? first-coord)
 first-coord
 (let ((first-other (car other-coords)))
 (if  (point? first-coord)
 (list  first-coord
 (if  (point? first-other)
 first-other
 (apply make-point other-coords)))
 (apply make-rect
 (cons  (make-point
 first-coord first-other)
 (cdr other-coords)))))))

;selectors for getting coordinates out of points and rectangles
(define (x-coord point)
 (car point))
(define (y-coord point)
 (cdr point))
(define (left-top rectangle)
 (car rectangle))
(define (right-bottom rectangle)
 (cadr rectangle))
(define (left rectangle)
 (x-coord (left-top rectangle)))
(define (top rectangle)
 (y-coord (left-top rectangle)))
(define (right rectangle)
 (x-coord (right-bottom rectangle)))
(define (bottom rectangle)
 (y-coord (right-bottom rectangle)))

;;tests to determine whether something is a point or rectangle
(define (point? object)
 (if  (pair? object)
 (and (number? (car object))
 (number? (cdr object)))
 ()))
(define (rectangle? object)
 (if  (pair? object)
 (and (point? (car object))
 (point? (cadr object)))
 ()))

;functions for adding and subtracting points
(define (add-points point1 point2)
 (cons  (+ (x-coord point1) (x-coord point2))
 (+ (y-coord point1) (y-coord point2))))
(define (subtract-points point1 point2)
 (cons  (- (x-coord point1) (x-coord point2))
 (- (y-coord point1) (y-coord point2))))

;function for passing a rectangle to a graphics function
(define (2-point-function the-function the-rectangle)
 (the-function (left the-rectangle)
 (top the-rectangle)
 (right the-rectangle)
 (bottom the-rectangle)))

;;this is your basic oval that can draw, erase, invert itself,
;;tell its dimensions, and receive new dimensions
(define (make-oval . oval-definition)
 (let ((oval-definition (apply make-rect oval-definition)))
 (lambda (message)
 (if  (rectangle? message)
 (set! oval-definition message)
 (case message
 (DRAW (2-point-function paint-oval oval-definition))
 (ERASE (2-point-function erase-oval oval-definition))
 (INVERT (2-point-function invert-oval oval-definition))
 (DESCRIPTION oval-definition)
 (else (error "make-oval can't handle that definition"
 message)))))))

;;a grow-oval inherits all of the features of an oval, but can
;;also move and change size in more interesting ways
(define (make-grow-oval . oval-def)
 (let ((this-oval (apply make-oval oval-def)))
 (lambda (the-change . the-amount)
 (let ((old-description (this-oval 'description))
   (real-amount
 (if  the-amount
 (apply make-point the-amount))))
 (this-oval
 (case the-change
 (MOVE
 (make-rect
 (add-points
 real-amount
 (left-top old-description))
 (add-points
 real-amount
 (right-bottom old-description))))
 (MOVE-TO
 (make-rect
 real-amount
 (add-points
 real-amount
 (subtract-points
 (right-bottom 
 old-description)
 (left-top 
 old-description)))))
 (EXPAND
 (make-rect
 (subtract-points
 (left-top old-description) 
 real-amount)
 (add-points
 real-amount
 (right-bottom old-description))))
 (else the-change)))))))


;;;this procedure shows off some ovals
(define (oval-sampler)
 (let ( (oval-1 (make-grow-oval 5 5 50 50))
 (oval-2 (make-grow-oval 100 20 130 40))
 (oval-3 (make-grow-oval 30 90 60 120)))
 (clear-graphics)
 (oval-1 'draw)
 (oval-2 'draw)
 (oval-3 'draw)
 (oval-1 'move 5 5)
 (oval-1 'erase)
 (oval-2 'expand 4 4)
 (oval-2 'invert)
 (oval-3 'move-to 40 60 70 90)
 (oval-3 'draw)))
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

SpamSieve 2.9.38 - Robust spam filter fo...
SpamSieve is a robust spam filter for major email clients that uses powerful Bayesian spam filtering. SpamSieve understands what your spam looks like in order to block it all, but also learns what... Read more
TeamViewer 15.0.8397 - Establish remote...
TeamViewer gives you remote control of any computer or Mac over the Internet within seconds or can be used for online meetings. Find out why more than 200 million users trust TeamViewer! Free for non... Read more
SteerMouse 5.4.3 - Powerful third-party...
SteerMouse is an advanced driver for USB and Bluetooth mice. SteerMouse can assign various functions to buttons that Apple's software does not allow, including double-clicks, modifier clicks,... Read more
Toast Titanium 18.2.1 - The ultimate med...
Roxio Toast Titanium, the leading DVD burner for Mac, makes burning even better, adding Roxio Secure Burn to protect your files on disc and USB in Mac- or Windows-compatible formats. Get more style... Read more
HoudahSpot 5.0.11 - Advanced file-search...
HoudahSpot is a versatile desktop search tool. Use HoudahSpot to locate hard-to-find files and keep frequently used files within reach. HoudahSpot will immediately feel familiar. It works just the... Read more
ClipGrab 3.8.6 - Download videos from Yo...
ClipGrab is a free downloader and converter for YouTube, Vimeo, Facebook and many other online video sites. It converts downloaded videos to MPEG4, MP3 or other formats in just one easy step Version... Read more
ExpanDrive 7.4.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
Adobe Dreamweaver CC 2020 20.0 - Build w...
Dreamweaver CC 2020 is available as part of Adobe Creative Cloud for as little as $20.99/month (or $9.99/month if you're a previous Dreamweaver customer). Adobe Dreamweaver CC 2020 allows you to... Read more
Eye Candy 7.2.3.85 - 30 professional Pho...
Eye Candy renders realistic effects that are difficult or impossible to achieve in Photoshop alone, such as Fire, Chrome, and the new Lightning. Effects like Animal Fur, Smoke, and Reptile Skin are... Read more
Sparkle Pro 2.8.5 - Visual website creat...
Sparkle Pro will change your mind if you thought building websites wasn't for you. Sparkle is the intuitive site builder that lets you create sites for your online portfolio, team or band pages, or... Read more

Latest Forum Discussions

See All

Pre-register for Hello Kitty AR: Kawaii...
Hello Kitty — the cute cat that launched a multi-billion-pound franchise — has been brought to life… sort of. Sanrio has teamed up with the Bublar Group to create a new mobile game that uses AR tech to turn the real world into Hello Kitty’s... | Read more »
Gorgeous and tranquil puzzler Spring Fal...
One-man indie studio SPARSE//GameDev has now launched its tranquil puzzler, Spring Falls. It's described as "a peaceful puzzle game about water, erosion, and watching things grow". [Read more] | Read more »
Black Desert Mobile gets an official rel...
Pearl Abyss has just announced that its highly-anticipated MMO, Black Desert Mobile, will launch globally for iOS and Android on December 11th. [Read more] | Read more »
Another Eden receives new a episode, cha...
Another Eden, WFS' popular RPG, has received another update that brings new story content to the game alongside a few new heroes to discover. [Read more] | Read more »
Overdox guide - Tips and tricks for begi...
Overdox is a clever battle royale that changes things up by adding MOBA mechanics and melee combat to the mix. This new hybrid game can be quite a bit to take in at first, so we’ve put together a list of tips to help you get a leg up on the... | Read more »
Roterra Extreme - Great Escape is a pers...
Roterra Extreme – Great Escape has been described by developers Dig-It Games as a mini-sequel to their acclaimed title Roterra: Flip the Fairytale. It continues that game's tradition of messing with which way is up, tasking you with solving... | Read more »
Hearthstone: Battlegrounds open beta lau...
Remember earlier this year when auto battlers were the latest hotness? We had Auto Chess, DOTA Underlords, Chess Rush, and more all gunning for our attention. They all had their own reasons to play, but, at least from where I'm standing, most... | Read more »
The House of Da Vinci 2 gets a new gamep...
The House of Da Vinci launched all the way back in 2017. Now, developer Blue Brain Games is gearing up to deliver a second dose of The Room-inspired puzzling. Some fresh details have now emerged, alongside the game's first official trailer. [Read... | Read more »
Shoot 'em up action awaits in Battl...
BattleBrew Productions has just introduced another entry into its award winning, barrelpunk inspired, BattleSky Brigade series. Whilst its previous title BattleSky Brigade TapTap provided fans with idle town building gameplay, this time the... | Read more »
Arcade classic R-Type Dimensions EX blas...
If you're a long time fan of shmups and have been looking for something to play lately, Tozai Games may have just released an ideal game for you on iOS. R-Type Dimensions EX brings the first R-Type and its sequel to iOS devices. [Read more] | Read more »

Price Scanner via MacPrices.net

13″ 2.4GHz MacBook Pros available for up to $...
Apple has a full line of Certified Refurbished 2019 13″ 2.4GHz 4-Core Touch Bar MacBook Pros available starting at $1529 and up to $300 off MSRP. Apple’s one-year warranty is included, shipping is... Read more
New at T-Mobile: Switch to T-Mobile, and get...
T-Mobile is offering a free 64GB iPhone 8 for new customers who switch to T-Mobile and open a new line of service. Eligible trade-in required, and discount applied over a 24 month period. The fine... Read more
Xfinity Mobile’s Black Friday Apple savings:...
Take $250 off the purchase of any iPhone at Xfinity Mobile with a new line activation, and transfer of phone number to Xfinity Mobile, through December 8, 2019. This includes Apple’s new iPhone 11... Read more
2019 13″ 1.4GHz MacBook Pros available starti...
Apple has a full line of Certified Refurbished 2019 13″ 1.4GHz 4-Core Touch Bar MacBook Pros available starting at $1099 and up to $230 off MSRP. Apple’s one-year warranty is included, shipping is... Read more
Save up to $350 on a 21″ or 27″ iMac with the...
Apple has Certified Refurbished 2019 21″ & 27″ iMacs available starting at $929 and up to $350 off the cost of new models. Apple’s one-year warranty is standard, shipping is free, and each iMac... Read more
Early Holiday 2019 Sale: B&H again offers...
B&H Photo has 10.2″ iPads on sale again for $30 off Apple’s MSRP, starting at $299, as part of their early Holiday 2019 sale. Overnight shipping is free to many addresses in the US: – 10.2″ 32GB... Read more
Apple iMacs on sale today at B&H Photo fo...
B&H Photo has new 2019 21″ and 27″ 5K iMacs on stock today and on sale for up to $150 off Apple’s MSRP. Overnight shipping is free to many locations in the US. These are the same iMacs sold by... Read more
2018 4 and 6-Core Mac minis on sale today for...
Apple resellers are offering new 2018 4-Core and 6-Core Mac minis for $80-$100 off MSRP for a limited time. B&H Photo has the new 2018 4-Core and 6-Core Mac minis on sale for up to $100 off Apple... Read more
Early Holiday 2019 sale at B&H Photo: 12....
B&H Photo has new 12.9″ iPad Pros on sale for up to $120 off Apple’s MSRP as part of their early Holiday 2019 sale. Overnight shipping is free to many addresses in the US: – 12.9″ 64GB WiFi iPad... Read more
8-Core iMac Pro on sale today for $4499 at B...
B&H Photo has the base 8-Core 3.2GHz 32GB/1TB iMac Pro on sale today for $4499 — $500 off Apple’s MSRP. Shipping is free. Their price is the lowest available for a new iMac Pro from any Apple... Read more

Jobs Board

*Apple* Health Benefit Specialist - Call Cen...
Description ** Apple Health Benefit Specialist - Call Center (MAS 3/MACSC)** **Olympia, WA Multiple Positions** *The ideal candidate for this position will have Read more
Hair Stylist - *Apple* Blossom Mall - JCPen...
Hair Stylist - Apple Blossom Mall Location:Winchester, VA, United States- Apple Blossom Mall 1850 Apple Blossom Dr Job ID:1065040Salon Professionals Job Read more
*Apple* Mobility Pro - Best Buy (United Stat...
**747088BR** **Job Title:** Apple Mobility Pro **Job Category:** Store Associates **Store NUmber or Department:** 000297-Reston-Store **Job Description:** At Best Read more
Nurse Practitioner - Field Based (San Bernard...
Nurse Practitioner - Field Based (San Bernardino, CA, Apple Valley, Hesperia) **Location:** **United States** **Requisition #:** PS30312 **Post Date:** Nov 11, 2019 Read more
Best Buy *Apple* Computing Master - Best Bu...
**747061BR** **Job Title:** Best Buy Apple Computing Master **Job Category:** Store Associates **Store NUmber or Department:** 000647-Kildeer-Store **Job Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.