home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / sys / mac / programm / 14108 < prev    next >
Encoding:
Text File  |  1992-08-17  |  1.2 KB  |  50 lines
  1. Newsgroups: comp.sys.mac.programmer
  2. Path: sparky!uunet!cs.utexas.edu!tamsun.tamu.edu!rigel.tamu.edu!emk9267
  3. From: emk9267@rigel.tamu.edu (KLINE, ERIC MICHAEL)
  4. Subject: printing graphics
  5. Message-ID: <17AUG199216535548@rigel.tamu.edu>
  6. News-Software: VAX/VMS VNEWS 1.41    
  7. Sender: news@tamsun.tamu.edu (Read News)
  8. Organization: Texas A&M University, Academic Computing Services
  9. Date: Mon, 17 Aug 1992 21:53:00 GMT
  10. Lines: 38
  11.  
  12. Howdy!  I'm trying to learn how to send graphics to the printer.  My very
  13. basic program is below:
  14.  
  15. program PrintTest;
  16.  uses
  17.    macprint; 
  18.  
  19.  var
  20.    drawrect:rect;
  21.    out_square:picHandle;
  22.  
  23.  begin
  24.   showdrawing;
  25.   getdrawingrect(drawrect);
  26.   out_square:=openPicture(drawrect);
  27.  
  28.   moveto(10,10);
  29.   lineto(100,10);
  30.   lineto(100,100);
  31.   lineto(10,100);
  32.   lineto(10,10);
  33.  
  34.   closepicture;
  35.   drawpicture(out_square,drawrect);
  36.  
  37.   killpicture(out_square);
  38.  end 
  39.  
  40.  
  41. I'm using a Mac+ and I have an ImageWriter II.  I'm also using THINK Tech.'s
  42. LIGHTSPEED PASCAL V1.11.  I've tried several things to try to get the 
  43. graphics out to the printer, but all have failed.  I'm looking for the code
  44. that will send a square generated with QUICKDRAW commands to the printer.
  45.  
  46. Thanks in advance!
  47.  
  48. Eric Kline
  49. emk9267@rigel.tamu.edu
  50.