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\xff\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