FB CGI, now with images!

[Z!re]

Observe, my avatar!

FB CGI prettyness

Code:

randomize timer
tadd$ = str(timer)+str(65535*rnd)

'# Do all drawing here:
screenres 150, 150, 8
a = int(5*rnd)

if a = 0 then
    for a = 0 to 100
        line (150*rnd, 150*rnd)-(150*rnd, 150*rnd), 256*rnd
    next
elseif a = 1 then
    for a = 0 to 1000
        pset ( 150*rnd, 150*rnd), 256*rnd
    next
elseif a = 2 then
    for a = 0 to 100
        circle ( 150*rnd, 150*rnd), 100*rnd, 256*rnd
    next
elseif a = 3 then
    for a = 0 to 100
        line (150*rnd, 150*rnd)-(150*rnd, 150*rnd), 256*rnd, b
    next
elseif a = 4 then
    for a = 0 to 100
        line (150*rnd, 150*rnd)-(150*rnd, 150*rnd), 256*rnd, bf
    next
end if




'# Store to disk as a temp, cause im lazy
bsave "test"+tadd$+".bmp", 0
screen 0

'# Read content
open "test"+tadd$+".bmp" for binary as #1
ln = lof(1)
t$ = space(ln)
get #1, 1, t$
close #1

'# Kill temp
kill "test"+tadd$+".bmp"


'# Output for browsers to play with
print "Content-Type: image/bmp"
print "Content-Length: "& ln & chr(13,10)
print t$

EDIT:
Image can be found here:
http://fieldview.mine.nu/fvcgi/test.png
I missed my old avatar =)

[etko]

Kewl u r l33t!