////////////////////////////////////////////
//                                        //
//  SiMPAINT:    simple_sys               //
//                                        //
//  Description: Draws the word "SiMPLE"  //
//               in colored letters       //
//                                        //
//  Author:      SiMPLE CodeWorks         //
//                                        //
////////////////////////////////////////////

Task simple_sys (Float x, Float y, 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)
line color (rgb(bf*128,bf*128,bf*128))
solid color (rgb(bf*128,bf*128,bf*128))
point color (rgb(bf*128,bf*128,bf*128))
line color (rgb(bf*255,bf*254,bf*0))
line (-1*mag+x, 5*mag+y, -1*mag+x, -5*mag+y)
line (-9*mag+x, 5*mag+y, -9*mag+x, -5*mag+y)
line (-1*mag+x, -5*mag+y, -5*mag+x, 0*mag+y)
line (-9*mag+x, -5*mag+y, -5*mag+x, 0*mag+y)
line color (rgb(bf*0,bf*240,bf*40))
line (1*mag+x, -5*mag+y, 1*mag+x, 5*mag+y)
line (1*mag+x, -5*mag+y, 6*mag+x, -5*mag+y)
line (1*mag+x, 0*mag+y, 6*mag+x, 0*mag+y)
line (6*mag+x, 0*mag+y, 8*mag+x, -2*mag+y)
line (6*mag+x, -5*mag+y, 8*mag+x, -3*mag+y)
line (8*mag+x, -3*mag+y, 8*mag+x, -2*mag+y)
line color (rgb(bf*5,bf*3,bf*250))
line (10*mag+x, -5*mag+y, 10*mag+x, 5*mag+y)
line (10*mag+x, 5*mag+y, 16*mag+x, 5*mag+y)
line color (rgb(bf*160,bf*1,bf*160))
line (18*mag+x, 5*mag+y, 18*mag+x, -5*mag+y)
line (18*mag+x, 5*mag+y, 23*mag+x, 5*mag+y)
line (18*mag+x, -5*mag+y, 23*mag+x, -5*mag+y)
line (18*mag+x, 0*mag+y, 22*mag+x, 0*mag+y)
line color (rgb(bf*252,bf*121,bf*3))
line (-12*mag+x, 5*mag+y, -14*mag+x, 5*mag+y)
line (-13*mag+x, 5*mag+y, -13*mag+x, 0*mag+y)
line (-13*mag+x, -3*mag+y, -13*mag+x, -3*mag+y)
line color (rgb(bf*255,bf*0,bf*0))
line (-22*mag+x, 0*mag+y, -18*mag+x, 0*mag+y)
line (-18*mag+x, 5*mag+y, -22*mag+x, 5*mag+y)
line (-18*mag+x, 5*mag+y, -17*mag+x, 4*mag+y)
line (-18*mag+x, 0*mag+y, -17*mag+x, 1*mag+y)
line (-17*mag+x, 1*mag+y, -17*mag+x, 4*mag+y)
line (-22*mag+x, 5*mag+y, -23*mag+x, 4*mag+y)
line (-22*mag+x, 0*mag+y, -23*mag+x, -1*mag+y)
line (-18*mag+x, -5*mag+y, -22*mag+x, -5*mag+y)
line (-22*mag+x, -5*mag+y, -23*mag+x, -4*mag+y)
line (-23*mag+x, -4*mag+y, -23*mag+x, -1*mag+y)
line (-18*mag+x, -5*mag+y, -17*mag+x, -4*mag+y)