sas@tut.cis.ohio-state.edu (Scott Sutherland) (07/14/89)
I am trying to send output to a PICT file and getting very frustrated. Making
the file and filling it (which I did using the PutPICTData & SpoolOutPICTFile
procedures from IM V-89) works great. The only problem is that I can't get
anything to group, no matter how I use the PicComments. Here's what my test
code looks like. It just makes a picture containing what I think are the
appropriate PicComments and two lines that form an X.
SetRect(tempRect, 0, 0, 100, 100);
myPic := OpenPicture(tempRect); {open my PICT & start recording}
PicComment(picDwgBeg, 0, nil); {open a MacDraw picture}
PicComment(picGrpBeg, 0, nil); {start a group}
{now draw something}
MoveTo(10, 10);
LineTo(90, 90);
MoveTo(10, 90);
LineTo(90, 10);
PicComment(picGrpEnd, 0, nil); {end the group}
PicComment(picDwgEnd, 0, nil); {terminate the MacDraw picture}
ClosePicture; {close my PICT}
SpoolOutPICTFile(myPic); {send it to a file via the procedure }
{described in IM V-89}
It loads the file just fine, but when I open it the two lines are not grouped
but are still seperate QuickDraw objects. Any ideas what I'm doing wrong?
Any suggestions will be _MUCH_ appreciated.
---
Scott Sutherland sas@cis.ohio-state.edu
Staff Software Developer
The Ohio State University, Department of Dance
(614) 292-7977