|
#!/usr/bin/perl print "Content-type: image/x-xbitmap\n\n"; print "#define number_width 16\n"; print "#define number_height 4\n\n"; print "static char number_bits[]={\n\n"; print "0xff,0x18,\n"; # 1111111100011000 print "0x7e,0x3c,\n"; # 0111111000111100 print "0x3c,0x7e,\n"; # 0011110001111110 print "0x18,0xff,\n"; # 0001100011111111 print "};\n"; |