Lisa Pascal 3.0 Reference Manual

Lisa.Language BEGIN {main program} {----- Initialization - Generic to all applications using QuickDraw -----} QDInit(@lheapBuf, @lheapBuf[8192]. @lheapError); OpenPort(@lmy Port) ; PaintRect(thePort' .portRect); lniticons; {moved to here from below stuffhex} InitScales; {moved to here from below stuffhex} DrawStuff; REPEAT UNTIL KeyBdEvent(FALSE,FALSE,event) AND (event.ascii <> CHR(l)); PaintRect(thePort' .portRect); SetRect(srcRect,O,O,720,360); myPicture := OpenPicture(srcRect); Drawstuff; PROCf[)IJ:If Or awFi gure(vi ewAng. rOllAng. pi tChAng : BEGIH vi ewAng1t(vi ewAng); I denti ty; Roll (rollAng) ; pi tCh( pi tChAng); Er aseRect( port1· . portRect); Fr il'leRect( port1· .portRect); PI otGri d; Pascal Reference Manual Copyright This manual and the software described in it are copyrighted with all rights reserved. Under t.he copyright laws, this manual or the software may not. be copied, in whole or in part.. without the written consent of Apple, except in the normal use of the software or to make a backup copy. The same proprietary and copyright notices must be affixed to any pel'mitted copies as were affixed to the original. This exception does not allow copies to be made for othe.rs.. whether or not sold, but all the material purchased (with all backup copies) may be sold, given, or loaned to another person. Under the law.. copying includes translating into another language or format. You may use the software on any computer owned by you, but extra copies cannot be made for this purpose. For some products, a multiuse license may be purchased t.o allow the software to be used on more than one computer owned by the purchaser,. including a shared-disk system. (Contact your authorized Apple dealer for information on multiuse licenses.) licensing Requirements for Software Developers Apple has a low-cost licensing program.. which permits developers of software for the Lisa t.o incorporat.e Apple-developed libraries and object codes into their products. 80th in-house and external distribution require a license. Before distributing any product.s t.hat. incorporate Apple soft\A,'are, please contact Software Licensing at the address below for both licensing and technical informat.ion. @1983.. 1984 Apple Computer., Inc. 20525 tv18J"iani Ave. Cupertino, CA 95014 (408) 996-1010 Apple.. Lisf\, ProFile, MacWorks, and the Apple logo are trademarks of Apple Computer, Inc. Macintosh is a trademark licensed to Apple Computer.. Inc. Priam is a registered t.rademark of Priam, Inc. Sony is a registered trademark of Sony Corporation. Centronics is a registered trademark of Centronics Dat.a Computer Corporation. VT52 and VT100 me trademarks of Digital Equipment Corporation. Simult.aneously published in the U.S.A. and Canada. Reorder Apple Product 8620-6139-6. Limited Warranty on Media and ManuaJs If you disc:ove.r physical defects in the media on which this softlw'lare is distributed~ or in the manuals distributed with the software~ Apple will repla…