/////////////////////////////////////////////////////////
//                                                     //
//  SiMPAINT:    rjb_bear2                             //
//                                                     //
//  Description: Draws a Teddy Bear image centered at  //
//               a specified location on the screen    //
//                                                     //
//  Author:      Bob Bishop                            //
//                                                     //
/////////////////////////////////////////////////////////

Task rjb_bear2 (Float xx, Float yy, Float mag, Int flag)
bf=1.0  //(User-definable "Brightness Factor")
If (flag) zz=mag
Else zz=1.0
line size (1*zz+0.5)
x=xx-50*mag; y=yy-55*mag
line color (rgb(bf*48,bf*32,bf*0))
solid color (rgb(bf*96,bf*64,bf*0))
filled circle (50*mag+x, 60*mag+y, 39*mag)
filled circle (80*mag+x, 10*mag+y, 20*mag)
filled circle (20*mag+x, 10*mag+y, 20*mag)
line color (rgb(bf*0,bf*0,bf*0))
solid color (rgb(bf*202,bf*202,bf*202))
filled ellipse (40*mag+x, 50*mag+y, 6*mag, 11*mag)
filled ellipse (60*mag+x, 50*mag+y, 6*mag, 11*mag)
solid color (rgb(bf*0,bf*0,bf*0))
filled ellipse (40*mag+x, 55*mag+y, -3*mag, -5*mag)
filled ellipse (60*mag+x, 55*mag+y, -3*mag, -5*mag)
filled ellipse (50*mag+x, 70*mag+y, -9*mag, -5*mag)
filled triangle (35*mag+x, 36*mag+y, 45*mag+x, 36*mag+y, 40*mag+x, 33*mag+y)
filled triangle (55*mag+x, 36*mag+y, 65*mag+x, 36*mag+y, 60*mag+x, 33*mag+y)
solid color (rgb(bf*157,bf*12,bf*5))
filled triangle (35*mag+x, 80*mag+y, 66*mag+x, 80*mag+y, 50*mag+x, 88*mag+y)
solid color (rgb(bf*255,bf*0,bf*0))
solid ellipse (50*mag+x, 84*mag+y, 5*mag, mag)