/*	Draw_Face

		Draws a face on the page using Drawing Tools.

		Digita ARexx Script for Wordworth 7
		Copyright ©1998, Digita International Ltd.
		
		Created: 31 May 1996
		Author:  MJ
*/


OPTIONS RESULTS


/* Draw the face */
DrawCircle 1 "0.8in" "0.8in" "0.5in" "Bright Blue"
obj1 = result

DrawCircle 1 "1.8in" "0.8in" "0.5in" "Bright Blue"
obj2 = result

DrawCircle 1 "0.94in" "1.03in" "0.15in" "Black"
obj3 = result

DrawCircle 1 "1.93in" "1.10in" "0.15in" "Black"
obj4 = result

DrawRoundedBox 1 "1.4in" "1.45in" "0.34in" "0.82in" "Yellow"
obj5 = result

DrawOval 1 "0.52in" "2.41in" "2in" "0.58in" "Red"
obj6 = result

DrawOval 1 "0.92in" "2.60in" "1.14in" "0.25in" "Black"
obj7 = result

/* Select and group the objects */
SelectObject obj1
SelectObject obj2 MULTISELECT
SelectObject obj3 MULTISELECT
SelectObject obj4 MULTISELECT
SelectObject obj5 MULTISELECT
SelectObject obj6 MULTISELECT
SelectObject obj7 MULTISELECT
Group

/* Un-select object */
SelectObject 0