/////////////////////////////////////////////////////////
//                                                     //
//  Task:        bear_rjb (Int x, Int y, Float mag)    //
//                                                     //
//  Description: Draws a Teddy Bear image centered at  //
//               a specified location on the screen    //
//                                                     //
//  Parameters:  x:   The x-coordinate at which the    //
//                    image is to be placed            //
//               y:   The y-coordinate at which the    //
//                    image is to be placed            //
//               mag: The magnification factor to be   //
//                    used when displaying the image   //
//                                                     //
//  Universe:    Ultra-SiMPLE                          //
//                                                     //
//  Author:      Bob Bishop                            //
//                                                     //
/////////////////////////////////////////////////////////

Task bear_rjb (Int xx, Int yy, Float z)
x=xx-50*z; y=yy-55*z //Offset from image's center
line size (z+0.5)
line color (rgb(48,32,0))
solid color (rgb(96,64,0))
filled circle (50*z+x, 60*z+y, 39*z)
filled circle (80*z+x, 10*z+y, 20*z)
filled circle (20*z+x, 10*z+y, 20*z)
line color (rgb(0,0,0))
solid color (rgb(202,202,202))
filled ellipse (40*z+x, 50*z+y, 6*z, 11*z)
filled ellipse (60*z+x, 50*z+y, 6*z, 11*z)
solid color (rgb(0,0,0))
filled ellipse (40*z+x, 55*z+y, -3*z, -5*z)
filled ellipse (60*z+x, 55*z+y, -3*z, -5*z)
filled ellipse (50*z+x, 70*z+y, -9*z, -5*z)
filled triangle (35*z+x, 36*z+y, 45*z+x, 36*z+y, 40*z+x, 33*z+y)
filled triangle (55*z+x, 36*z+y, 65*z+x, 36*z+y, 60*z+x, 33*z+y)
solid color (rgb(157,12,5))
filled triangle (35*z+x, 80*z+y, 66*z+x, 80*z+y, 50*z+x, 88*z+y)
solid color (rgb(255,0,0))
solid ellipse (50*z+x, 84*z+y, 5*z, z)