home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource4 / 266_01 / bike.pic < prev    next >
Encoding:
Text File  |  1990-07-19  |  1.6 KB  |  58 lines
  1. *
  2. * Bicycle mileage bar chart
  3. *
  4. PIC  outline
  5. TITLE at 3.5,4.25 font 2 text Bicycle Mileage
  6. TITLE at .1,3 ver font 2 text MILES
  7. TITLE at 3.5,.15  font 2 text MONTH
  8. AREA  at  .5,.5   size 6.5 by 4
  9. AXIS left  to 600 boxes=6
  10. AXIS below to 14  boxes=14 invisible
  11.  
  12. ISO sparse at 200
  13. ISO sparse at 400
  14. BARS file BIKE.DAT items 1 4 abut 1 of 5 width .09 hatch left gap 2
  15. BARS file BIKE.DAT items 1 3 abut 2 of 5 width .09
  16. BARS file BIKE.DAT items 1 2 abut 3 of 5 width .09 hatch H gap 5
  17. BARS file BIKE.DAT items 1 5 abut 4 of 5 width .09 hatch right gap 4
  18. BARS file BIKE.DAT items 1 6 abut 5 of 5 width .09 hatch square gap 2
  19. *
  20. *   Legend creation
  21. *
  22. BARS file * base=530 width .09 hatch left gap 2
  23. 2 545
  24. $
  25. LABEL at 1.5,530 left font 2 text 85
  26. BARS file * base=530 width .09
  27. 4 545
  28. $
  29. LABEL at 3.5,530 left font 2 text 86
  30. BARS file * base=530 width .09 hatch H gap 3
  31. 6 545
  32. $
  33. LABEL at 5.5,530 left font 2 text 87
  34. BARS file * base=530 width .09 hatch right gap 3
  35. 8 545
  36. $
  37. LABEL at 7.5,530 left font 2 text 88
  38. BARS file * base=530 width .09 hatch square gap 2
  39. 10 545
  40. $
  41. LABEL at 9.5,530 left font 2 text 89
  42. *
  43. *   Put month names on horizontal axis
  44. AXIS left to 4 invisible
  45. LABEL at  1,-.2 font 2 text JAN
  46. LABEL at  2,-.2 font 2 text FEB
  47. LABEL at  3,-.2 font 2 text MAR
  48. LABEL at  4,-.2 font 2 text APR
  49. LABEL at  5,-.2 font 2 text MAY
  50. LABEL at  6,-.2 font 2 text JUN
  51. LABEL at  7,-.2 font 2 text JUL
  52. LABEL at  8,-.2 font 2 text AUG
  53. LABEL at  9,-.2 font 2 text SEP
  54. LABEL at 10,-.2 font 2 text OCT
  55. LABEL at 11,-.2 font 2 text NOV
  56. LABEL at 12,-.2 font 2 text DEC
  57. LABEL at 13,-.2 font 2 text ave
  58.