home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 8 / CDACTUAL8.iso / share / os2 / graficos / gle / join.gle < prev    next >
Encoding:
Text File  |  1994-01-12  |  1.3 KB  |  65 lines
  1. size 18 24 box    ! This is JOIN.GLE, demonstrates the join commands.
  2. set hei 1.3 just center
  3. set font pltr
  4. amove 9 21
  5. text Joining named objects
  6.  
  7. set hei .8 lwidth .1
  8. amove  8.8  18.8 
  9. begin box name line
  10.   rline  0 -8.2 
  11. end box
  12. set lwidth 0
  13.  
  14. amove  9.67745  8.7603 
  15. begin box   name cir   nobox
  16.   circle 1
  17. end box
  18. circle 1
  19. amove  12.7461  4.59445 
  20. begin box  name hi   add .2
  21.   text Hi there
  22. end box
  23. amove  3.14401  17.0566 
  24. begin box name grv add .2
  25.   text GRV
  26. end box
  27. amove  14.9533  12.2986 
  28. begin box name chv add .2
  29.   text CHV
  30. end box
  31. amove  12.5179  17.6103 
  32. begin box name chese add .2
  33.   text Chese
  34. end box
  35. amove  2.7381  11.229 
  36. begin box name goats add .2
  37.   text Goats
  38. end box
  39. ! Now draw the lines between objects
  40. join chv - goats
  41. join grv -> line.h          ! Note: ".h" means to join horizontally.
  42. join line.h <-> chese.tl
  43. join chese.tr - chv.tr
  44. join cir.ci <- hi           ! Note: ".ci" is used for circles
  45. join cir.ci <- chv
  46. join cir.ci <- goats
  47. !-----------------------------------------------------------------------------
  48. ! A pie slice
  49. sub pie ang1 ang2 radius color$
  50. begin path fill color$ stroke
  51.   rmove 0 0
  52.   arc radius ang1 ang2 
  53.   closepath
  54. end path
  55. end sub
  56. amove 3 2
  57. @pie 0 10  2 "grey10"
  58. @pie 10 40 2 "grey20"
  59. @pie 40 120 2 "blue"
  60.  
  61. set hei .3 just left 
  62. amove .3 .3 
  63. text join.gle
  64.  
  65.