home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 286_02 / mprt.gcm < prev    next >
Text File  |  1989-05-25  |  1KB  |  26 lines
  1. HorzLine([C20],[L1,8],[C5],1);  /* underline the word GRAD starts at */
  2.                                 /* column 20, line 1 offset downward */
  3.                                 /* by 8 dots                         */
  4. HorzLine([C9],[L13],300,1);     /* starting at 9th column, line 13   */
  5. SetStyle(0x3333);
  6. HorzLine([C9],[L13,10],300,1);  /* line 13 offset downward by 10 dots */
  7. SetStyle(0);
  8. HorzLine([C9],[L13,20],300,1);
  9. SetStyle(0x11ff);
  10. HorzLine([C9],[L13,30],300,1);
  11.  
  12. RelOrg(0,[L31]);                /* see GRADEGS.GCM for explanation on */
  13. SetStyle(0xffff);               /* drawing pie charts                 */
  14. Earc2(170,50,83,50,100,270);
  15. ArcPoint(&x1,&y1,&x2,&y2);
  16. Line(x1,y1,170,50);
  17. Line(170,50,x2,y2);
  18. Earc2(178,45,83,50,10,90);
  19. ArcPoint(&x1,&y1,&x2,&y2);
  20. Line(x1,y1,178,45);
  21. Line(178,45,x2,y2);
  22. PatternFill(160,50,pattern1,0);
  23. PatternFill(190,30,pattern2,0);
  24. PrintPage();
  25.  
  26.