home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / BK-WW6E3.DMS / in.adf / Archive / WwRexx.lha / Draw_Face.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-06-25  |  976 b   |  50 lines
  1. /*    Draw_Face
  2.  
  3.         Draws a face on the page using Drawing Tools.
  4.  
  5.         Digita ARexx Script for Wordworth 5
  6.         Copyright ©1996, Digita International Ltd.
  7.         
  8.         Created: 31 May 1996
  9.         Author:  MJ
  10. */
  11.  
  12.  
  13. OPTIONS RESULTS
  14.  
  15.  
  16. /* Draw the face */
  17. DrawCircle 1 "0.8in" "0.8in" "0.5in" "Bright Blue"
  18. obj1 = result
  19.  
  20. DrawCircle 1 "1.8in" "0.8in" "0.5in" "Bright Blue"
  21. obj2 = result
  22.  
  23. DrawCircle 1 "0.94in" "1.03in" "0.15in" "Black"
  24. obj3 = result
  25.  
  26. DrawCircle 1 "1.93in" "1.10in" "0.15in" "Black"
  27. obj4 = result
  28.  
  29. DrawRoundedBox 1 "1.4in" "1.45in" "0.34in" "0.82in" "Yellow"
  30. obj5 = result
  31.  
  32. DrawOval 1 "0.52in" "2.41in" "2in" "0.58in" "Red"
  33. obj6 = result
  34.  
  35. DrawOval 1 "0.92in" "2.60in" "1.14in" "0.25in" "Black"
  36. obj7 = result
  37.  
  38. /* Select and group the objects */
  39. SelectObject obj1
  40. SelectObject obj2 MULTISELECT
  41. SelectObject obj3 MULTISELECT
  42. SelectObject obj4 MULTISELECT
  43. SelectObject obj5 MULTISELECT
  44. SelectObject obj6 MULTISELECT
  45. SelectObject obj7 MULTISELECT
  46. Group
  47.  
  48. /* Un-select object */
  49. SelectObject 0
  50.