home *** CD-ROM | disk | FTP | other *** search
/ Sound Sensations! / sound_sensations.iso / cmf / laser / demo.prg next >
Encoding:
Text File  |  1989-12-03  |  7.5 KB  |  295 lines
  1. **************************************
  2. * demo.prg  (Clipper specific)
  3. * 
  4. *  Demo of HP LaserJet Routines to draw lines and boxes.
  5. *
  6. *  Written 12/89 by 
  7. *        Kevin Talbot
  8. *        KJT enterprises
  9. *        7632 SE 37th Place
  10. *        Mercer Island, WA 98040
  11. *        (206) 236-1060
  12. *        Compuserve ID: 75706,316 
  13. * 
  14. * This program is "public domain" and is free for anyone to use or modify.
  15. * Acknowledgement of the author would be appreciated.
  16.  
  17.  
  18. * Notes: Requires to module LASER.PRG for proper functioning.
  19. *        Assumes 'set print on' will connect with your LaserJet.
  20.  
  21. save screen to foo
  22. clear
  23. store 0.0 to r,c,x,y,l,h,w,t,func
  24. store "   " to f
  25. store " " to o
  26. set confirm on
  27. set print on
  28. set device to screen
  29. set console off
  30. set wrap on
  31. msg = 17
  32. status = 23
  33.  
  34. do laser     && drag in the functions automatically during compile
  35.  
  36.  
  37. do while func != 7
  38.  
  39.   set device to screen
  40.   clear
  41.   func = 1
  42.   set message to msg center
  43.   @ 3,27 say "LaserJet Function Demonstration"
  44.   @ 2,10 to 15,69 double
  45.   @ 4,11 to 4,68  
  46.   @  6,27 prompt " Lines                 " ;
  47.           message "Draws horizontal and vertical lines"
  48.  
  49.   @  7,27 prompt " Filled rectangles     " ;
  50.           message "Draws pattern-filled rectangles"
  51.  
  52.   @  8,27 prompt " Text Position (@ r,c) " ;
  53.           message "For correlating text via 'lj_say() and graphics 'x,y' positions"
  54.  
  55.   @  9,27 prompt " Boxes                 " ;
  56.           message "Draws ruled boxes (not filled in, just the borders)"
  57.  
  58.   @ 10,27 prompt ' Add .25" Grid & Print ' ;
  59.           message 'Adds a 1/4" grid for reference and then prints the page'
  60.  
  61.   @ 11,27 prompt ' Add .10" Grid & Print ' ;
  62.           message 'Adds a 1/10" grid for reference and then prints the page'
  63.  
  64.   @ 12,27 prompt " Print Page w/o Grid   " ;
  65.           message "Prints the page as is w/o reference grid"
  66.  
  67.   @ 13,27 prompt " Quit WITHOUT Printing " ;
  68.           message "Return to DOS WITHOUT printing the page"
  69.  
  70.   menu to func
  71.  
  72.   do case
  73.  
  74.     case func = 1     && draw lines
  75.       do while lastkey() <> 27
  76.          clear
  77.          @  2,10 say " Draw Line in INCHES ([Esc] to Quit)"
  78.          @  4,10 say "           Start at x:" get x picture "9999.999"
  79.          @  6,10 say "                    y:" get y picture "9999.999"
  80.          @  8,10 say "               Length:" get l picture "9999.999"
  81.          @ 10,10 say "            Thickness:" get t picture "9999.999"
  82.          @ 12,10 say "    Orientation (H/V):" get o picture "!"
  83.          @ 14,10 say "  % Gray or Pattern #:" get f
  84.          read
  85.          if lastkey() != 27
  86.            @ status,26 say "Sending Data To Printer..."
  87.            lj_gotoxy(x,y)
  88.            lj_line(l,t,o,f)
  89.            @ status,0
  90.          endif
  91.       enddo
  92.  
  93.     case func = 2      && filled rectangles
  94.       do while lastkey() <> 27
  95.          clear
  96.          @  2,10 say " Filled Rectangles in INCHES ([Esc] to Quit)"
  97.          @  4,10 say "    Upper left at x:" get x picture "9999.999"
  98.          @  6,10 say "                  y:" get y picture "9999.999"
  99.          @  8,10 say "              Width:" get w picture "9999.999"
  100.          @ 10,10 say "             Height:" get h picture "9999.999"
  101.          @ 12,10 say "% Gray or Pattern #:" get f 
  102.          read
  103.          if lastkey() != 27
  104.            @ status,26 say "Sending Data To Printer..."
  105.            lj_gotoxy(x,y)
  106.            lj_fill(w,h,f)
  107.            @ status,0
  108.          endif
  109.       enddo
  110.  
  111.     case func = 3    && position text and print grid
  112.       setprc(0,0)
  113.       do while lastkey() <> 27
  114.          set device to screen
  115.          clear
  116.          @  2,10 say " Text Position via 'lj_say()' ([Esc] to Quit)"
  117.          @  4,10 say "      Row:" get r picture "99" range 0,59
  118.          @  6,10 say "      Col:" get c picture "99" range 0,80
  119.          @ 10,10 say "(The character '█' will be printed at r,c)"
  120.          read
  121.          if lastkey() != 27
  122.            @ status,26 say "Sending Data To Printer..."
  123.            set device to print
  124.            string = alltrim(str(r,2)) + "," + alltrim(str(c,2))
  125.            if (c + len(string) +1) > 78
  126.              lj_say(r,c-len(string), string + '█')
  127.            else
  128.              lj_say(r,c,"█" + string)
  129.            endif
  130.            @ status,0
  131.          endif
  132.       enddo
  133.  
  134.  
  135.      case func = 4  && draw boxes
  136.        do while lastkey() <> 27 
  137.          clear
  138.          @  2,10 say " Draw a box in INCHES ([Esc] to Quit)"
  139.          @  4,10 say "    Upper left at x:" get x picture "9999.999"
  140.          @  6,10 say "                  y:" get y picture "9999.999"
  141.          @  8,10 say "              Width:" get w picture "9999.999"
  142.          @ 10,10 say "             Height:" get h picture "9999.999"
  143.          @ 12,10 say "          Thickness:" get t picture "9999.999"
  144.          @ 14,10 say "% Gray or Pattern #:" get f
  145.          read
  146.          if lastkey() != 27
  147.            @ status,26 say "Sending Data To Printer..."
  148.            lj_gotoxy(x,y)
  149.            lj_box(w,h,t,f)
  150.            @ status,0
  151.          endif
  152.        enddo
  153.  
  154.  
  155.      case func = 5  && print page w/ 1/4" grid 
  156.        @ status,26 say "Sending Data To Printer..."
  157.        do grid4
  158.        @ status,0
  159.        eject
  160.  
  161.  
  162.      case func = 6  && print page w/ 1/10" grid 
  163.        @ status,26 say "Sending Data To Printer..."
  164.        do grid10
  165.        @ status,0
  166.        eject
  167.  
  168.  
  169.      case func = 7  && print page w/o grid
  170.        eject       
  171.  
  172.  
  173.      case func = 8  && quit 
  174.        restore screen from foo
  175.        quit
  176.  
  177.    endcase
  178.  
  179. enddo
  180.  
  181. restore screen from foo
  182.  
  183. return
  184.  
  185.  
  186.  
  187. procedure grid4
  188.  
  189.   private i, wide, nar, one_dot
  190.   one_dot = 0.0033333333
  191.   wide= 5 * one_dot
  192.   med = 3 * one_dot
  193.   nar = 1 * one_dot
  194.  
  195.   * draw horizontal 1" lines
  196.   for i = 0.0 to 10.0
  197.     lj_gotoxy(0.0,i)
  198.     lj_line(9.0,wide,"H","100")
  199.   next
  200.  
  201.   * draw vertical 1" lines
  202.   for i = 0.0 to 8.0
  203.     lj_gotoxy(i,0.0)
  204.     lj_line(11.0,wide,"V","100")
  205.   next
  206.   * fake in the line @ 8"
  207.   lj_gotoxy(7.987,0.0)
  208.   lj_line(11.0,wide,"V","100")
  209.  
  210.   * draw horizontal 1/2" lines
  211.   for i = 0.5 to 10.0 
  212.     lj_gotoxy(0.0,i)
  213.     lj_line(9.0,med,"H","100")
  214.   next
  215.  
  216.   * draw vertical 1/2" lines
  217.   for i = 0.5 to 8.0 
  218.     lj_gotoxy(i,0.0)
  219.     lj_line(11.0,med,"V","100")
  220.   next
  221.  
  222.   * draw horizontal 1/4" lines
  223.   for i = 0.25 to 10.25 step 0.5
  224.     lj_gotoxy(0.0,i)
  225.     lj_line(9.0,nar,"H","100")
  226.   next
  227.  
  228.   * draw vertical 1/4" lines
  229.   for i = 0.25 to 8.0 step 0.5
  230.     lj_gotoxy(i,0.0)
  231.     lj_line(11.0,nar,"V","100")
  232.   next
  233.  
  234.  
  235. return
  236.  
  237.  
  238.  
  239. procedure grid10
  240.  
  241.   * draws a 1/10" grid on the page
  242.  
  243.   private i, wide, nar, one_dot
  244.   one_dot = 0.0033333333
  245.   wide= 5 * one_dot
  246.   med = 3 * one_dot
  247.   nar = 1 * one_dot
  248.  
  249.   * draw horizontal 1" lines
  250.   for i = 0.0 to 10.0
  251.     lj_gotoxy(0.0,i)
  252.     ?? ltrim(str(i,4))
  253.     lj_gotoxy(0.0,i)
  254.     lj_line(9.0,wide,"H","100")
  255.   next
  256.  
  257.   * draw vertical 1" lines
  258.   for i = 0.0 to 8.0
  259.     lj_gotoxy(i,0.0)
  260.     ?? ltrim(str(i,4))
  261.     lj_gotoxy(i,0.0)
  262.     lj_line(11.0,wide,"V","100")
  263.   next
  264.   * fake in the line @ 8"
  265.   lj_gotoxy(7.987,0.0)
  266.   lj_line(11.0,wide,"V","100")
  267.  
  268.   * draw horizontal 1/2" lines
  269.   for i = 0.5 to 10.0 
  270.     lj_gotoxy(0.0,i)
  271.     lj_line(9.0,med,"H","100")
  272.   next
  273.  
  274.   * draw vertical 1/2" lines
  275.   for i = 0.5 to 8.0 
  276.     lj_gotoxy(i,0.0)
  277.     lj_line(11.0,med,"V","100")
  278.   next
  279.  
  280.   * draw horizontal 1/10" lines
  281.   for i = 0.1 to 10.3 step 0.1
  282.     lj_gotoxy(0.0,i)
  283.     lj_line(9.0,nar,"H","100")
  284.   next
  285.  
  286.   * draw vertical 1/10" lines
  287.   for i = 0.1 to 8.0 step 0.1
  288.     lj_gotoxy(i,0.0)
  289.     lj_line(11.0,nar,"V","100")
  290.   next
  291.  
  292.  
  293. return
  294.  
  295.