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