Explain how.  Explain why.









Primitive:
    proc make_color_dot color {
        return "\x47\x49\x46\x38\x37\x61\x01\x00\x01\x00\x91\x00$color\xff\xff\x
ff\xff\xff\xff\xff\xff\xff\x2c\x00\x00\x00\x00\x01\x00\x01\x00\x00\x02\x02\x44\x
01\x00\x3b\x00"
    }


    proc write_color_dot {color filename} {
        set fp [open $filename w]
        puts -nonewline $fp [make_color_dot $color]
        close $fp
    }


    write_color_dot \x00\x00\xff\x00 /tmp/gif/green.gif