sphere.xbm

很不错的tcl编程实例

#define sphere_width 52
#define sphere_height 50
static char sphere_bits[] = {
 0x00,0x00,0xc2,0x0f,0x00,0x00,0xf0,0x00,0x00,0x3e,0xf1,0x01,0x00,0xf0,0x00,
 0x80,0x28,0xa9,0x04,0x00,0xf0,0x00,0x40,0x8d,0x04,0x0a,0x00,0xf0,0x00,0x00,
 0x92,0x94,0x20,0x00,0xf0,0x00,0x04,0x91,0x14,0x41,0x00,0xf0,0x00,0x12,0x81,
 0x04,0x24,0x00,0xf0,0x00,0x00,0x80,0x04,0x00,0x01,0xf0,0x00,0x80,0x88,0x24,
 0x0a,0x02,0xf0,0x80,0x04,0x88,0x24,0x80,0x00,0xf0,0x00,0x40,0x84,0x04,0x14,
 0x08,0xf0,0x20,0x42,0x04,0x00,0x10,0x01,0xf0,0x00,0x00,0x00,0x40,0x20,0x10,
 0xf0,0x10,0x20,0x00,0x40,0x28,0x00,0xf0,0x00,0x21,0x00,0x40,0x08,0x22,0xf0,
 0x00,0x30,0x00,0x40,0x00,0x20,0xf0,0x08,0x10,0x00,0x40,0x40,0x00,0xf0,0x88,
 0x10,0x02,0x80,0x40,0x04,0xf0,0x80,0x10,0x02,0x80,0x40,0x44,0xf0,0x80,0x10,
 0x02,0x80,0x50,0x44,0xf0,0x40,0x00,0x02,0x80,0x10,0x48,0xf0,0x44,0x00,0x02,
 0x80,0x10,0x08,0xf0,0x44,0x00,0x02,0x80,0x10,0x08,0xf0,0x44,0x00,0x02,0x80,
 0x10,0x08,0xf0,0x44,0x00,0x02,0x80,0x10,0x08,0xf0,0x44,0x00,0x02,0x80,0x10,
 0x08,0xf0,0x44,0x00,0x02,0x80,0x10,0x08,0xf0,0x44,0x00,0x02,0x80,0x10,0x08,
 0xf0,0x80,0x00,0x02,0x80,0x10,0x44,0xf0,0x80,0x10,0x02,0x80,0x00,0x44,0xf0,
 0x80,0x10,0x02,0x80,0x40,0x44,0xf0,0x08,0x10,0x00,0x40,0x40,0x00,0xf0,0x08,
 0x10,0x00,0x40,0x40,0x00,0xf0,0x00,0x21,0x00,0x40,0x08,0x22,0xf0,0x10,0x20,
 0x00,0x40,0x00,0x00,0xf0,0x00,0x00,0x04,0x00,0x20,0x10,0xf0,0x20,0x42,0x04,
 0x00,0x24,0x01,0xf0,0x00,0x40,0x04,0x00,0x14,0x08,0xf0,0x40,0x40,0x08,0x20,
 0x10,0x04,0xf0,0x80,0x80,0x88,0x24,0x02,0x00,0xf0,0x00,0x89,0x80,0x04,0x48,
 0x00,0xf0,0x00,0x00,0x80,0x04,0x00,0x01,0xf0,0x00,0x20,0x91,0x14,0x95,0x00,
 0xf0,0x00,0x48,0x92,0x94,0x08,0x00,0xf0,0x00,0xb0,0x84,0x04,0x14,0x00,0xf0,
 0x00,0x80,0x88,0x04,0x04,0x00,0xf0,0x00,0x00,0x7e,0xcd,0x01,0x00,0xf0,0x00,
 0x00,0xfc,0x77,0x00,0x00,0xf0,0x00,0x00,0x80,0x0f,0x00,0x00,0xf0,0x00,0x00,
 0x00,0x00,0x00,0x00,0xf0};