new # size 256,256 # background fill, all white fill 1,1,255,255,255 # line from top to bottom, 50 pixels from left edge, colour black line 50,0,50,255,0,0,0 # fill in the left region a revolting pastel green filltoborder 20,20,0,0,0,0,255,127 # a simple dashed line, 100 from the left edge dline 100,0,100,255,0,0,0 # a rectangle and a filled one, near the middle rect 25,105,75,145,255,69,0 frect 125,105,175,145,105,139,105 # a big red square square 25,25,75,255,69,0 # a small red square, filled this time fsquare 25,165,50,255,69,0 # fill the right hand side of the small rectangle with white fill 70,140,255,255,255 # fill the background of the right side of the image with a mid blue fill 250,250,178,192,220 # a couple of polygons - one filled, one not fpoly 255,69,0,210,5,220,5,230,20,230,50,225,45,215,40,210,5 poly 105,139,105,110,5,120,5,130,20,130,50,125,45,115,40,110,5 # concentric circles creating a thick-bordered circle circle 100,125,30,255,165,0 circle 100,125,31,255,165,0 circle 100,125,32,255,165,0 circle 100,125,33,255,165,0 circle 100,125,34,255,165,0 circle 100,125,35,255,165,0 # a filled circle fcircle 200,125,30,72,61,139 # fill the first circle with an offensive blue fill 105,125,151,255,255 # just a loopy arc arc 125,180,145,90,320,120,0,0,0 # Some writing: across the bottom string 0,0,0,15,240,medium,Now is the time for all good folk # and up the right side stringup 0,0,0,240,235,medium,to come to the aid of the party. # set a couple of pixels in the green rectangle to black setpixel 130,130,0,0,0 setpixel 130,131,0,0,0 setpixel 131,130,0,0,0 setpixel 131,131,0,0,0 #get the colour indexes of a couple of pixels getpixel 130,130 getpixel 131,132 # make black the transparent colour transparent 0,0,0 #make the image interlaceD interlace # an example of using a style with the line command setstyle 0,0,0,255,255,255,255,165,0,255,69,0,0,0,0,255,255,255 line 150,30,150,79,0,0,0 line 151,30,151,79,0,0,0 line 152,30,152,79,0,0,0 line 153,30,153,79,0,0,0 line 154,30,154,79,0,0,0 line 155,30,155,79,0,0,0 line 156,30,156,79,0,0,0 line 157,30,157,79,0,0,0 line 158,30,158,79,0,0,0 line 159,30,158,79,0,0,0 line 160,30,160,79,0,0,0 line 162,30,162,79,0,0,0 line 164,30,164,79,0,0,0 line 166,30,166,79,0,0,0 line 168,30,168,79,0,0,0 line 170,30,170,79,0,0,0 line 173,30,173,79,0,0,0 line 176,30,176,79,0,0,0 line 179,30,179,79,0,0,0 line 182,30,182,79,0,0,0 line 186,30,186,79,0,0,0 line 190,30,190,79,0,0,0 line 194,30,194,79,0,0,0 line 200,30,200,79,0,0,0 killstyle # get the x and y size of the image sizex sizey # That's all folks end ######################### # new image new size 128,128 # set the output filename name foo.gif # a black background fill 1,1,0,0,0 # a diagonal white line top left to bottom right line 0,0,127,127,255,255,255 end ######################### # And another!! new size 128,128 # set the output filename name bar.gif # a black background fill 1,1,0,0,0 # a diagonal white line bottom left to top right line 0,127,127,0,255,255,255