1$stipples = {} unless $stipples 2 3$stipples['bdiagonal1'] = Tk::BLT::Bitmap.new(<<EOD) 4#define bdiagonal1_width 8 5#define bdiagonal1_height 8 6static unsigned char bdiagonal1_bits[] = { 7 0x88, 0x44, 0x22, 0x11, 0x88, 0x44, 0x22, 0x11}; 8EOD 9 10$stipples['bdiagonal2'] = Tk::BLT::Bitmap.new(<<EOD) 11#define bdiagonal2_width 8 12#define bdiagonal2_height 8 13static unsigned char bdiagonal2_bits[] = { 14 0x08, 0x04, 0x02, 0x01, 0x80, 0x40, 0x20, 0x10}; 15EOD 16 17$stipples['checker2'] = Tk::BLT::Bitmap.new(<<EOD) 18#define checker2_width 8 19#define checker2_height 8 20static unsigned char checker2_bits[] = { 21 0x33, 0x33, 0xcc, 0xcc, 0x33, 0x33, 0xcc, 0xcc}; 22EOD 23 24 25$stipples['checker3'] = Tk::BLT::Bitmap.new(<<EOD) 26#define checker3_width 8 27#define checker3_height 8 28static unsigned char checker3_bits[] = { 29 0x0f, 0x0f, 0x0f, 0x0f, 0xf0, 0xf0, 0xf0, 0xf0}; 30EOD 31 32$stipples['cross1'] = Tk::BLT::Bitmap.new(<<EOD) 33#define cross1_width 8 34#define cross1_height 8 35static unsigned char cross_bits[] = { 36 0xff, 0xaa, 0xff, 0xaa, 0xff, 0xaa, 0xff, 0xaa}; 37EOD 38 39$stipples['cross2'] = Tk::BLT::Bitmap.new(<<EOD) 40#define cross2_width 8 41#define cross2_height 8 42static unsigned char cross2_bits[] = { 43 0xff, 0x88, 0x88, 0x88, 0xff, 0x88, 0x88, 0x88}; 44EOD 45 46$stipples['cross3'] = Tk::BLT::Bitmap.new(<<EOD) 47#define cross3_width 8 48#define cross3_height 8 49static unsigned char cross3_bits[] = { 50 0xff, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01}; 51EOD 52 53$stipples['crossdiag'] = Tk::BLT::Bitmap.new(<<EOD) 54#define crossdiag_width 8 55#define crossdiag_height 8 56static unsigned char crossdiag2_bits[] = { 57 0x18, 0x24, 0x42, 0x81, 0x81, 0x42, 0x24, 0x18}; 58EOD 59 60$stipples['dot1'] = Tk::BLT::Bitmap.new(<<EOD) 61#define dot1_width 8 62#define dot1_height 8 63static unsigned char dot1_bits[] = { 64 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa}; 65EOD 66 67$stipples['dot2'] = Tk::BLT::Bitmap.new(<<EOD) 68#define dot2_width 8 69#define dot2_height 8 70static unsigned char dot2_bits[] = { 71 0x55, 0x00, 0x55, 0x00, 0x55, 0x00, 0x55, 0x00}; 72EOD 73 74$stipples['dot3'] = Tk::BLT::Bitmap.new(<<EOD) 75#define dot3_width 8 76#define dot3_height 8 77static unsigned char dot3_bits[] = { 78 0x11, 0x00, 0x00, 0x00, 0x11, 0x00, 0x00, 0x00}; 79EOD 80 81$stipples['dot4'] = Tk::BLT::Bitmap.new(<<EOD) 82#define dot4_width 8 83#define dot4_height 8 84static unsigned char dot4_bits[] = { 85 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; 86EOD 87 88$stipples['fdiagonal1'] = Tk::BLT::Bitmap.new(<<EOD) 89#define fdiagonal1_width 8 90#define fdiagonal1_height 8 91static unsigned char fdiagonal1_bits[] = { 92 0x11, 0x22, 0x44, 0x88, 0x11, 0x22, 0x44, 0x88}; 93EOD 94 95$stipples['fdiagonal2'] = Tk::BLT::Bitmap.new(<<EOD) 96#define fdiagonal2_width 8 97#define fdiagonal2_height 8 98static unsigned char fdiagonal2_bits[] = { 99 0x10, 0x20, 0x40, 0x80, 0x01, 0x02, 0x04, 0x08}; 100EOD 101 102$stipples['hline1'] = Tk::BLT::Bitmap.new(<<EOD) 103#define hline1_width 8 104#define hline1_height 8 105static unsigned char hline1_bits[] = { 106 0xff, 0x00, 0xff, 0x00, 0xff, 0x00, 0xff, 0x00}; 107EOD 108 109$stipples['hline2'] = Tk::BLT::Bitmap.new(<<EOD) 110#define hline2_width 8 111#define hline2_height 8 112static unsigned char hline2_bits[] = { 113 0xff, 0xff, 0x00, 0x00, 0xff, 0xff, 0x00, 0x00}; 114EOD 115 116$stipples['lbottom'] = Tk::BLT::Bitmap.new(<<EOD) 117#define lbottom_width 8 118#define lbottom_height 8 119static unsigned char lbottom_bits[] = { 120 0x00, 0x11, 0x11, 0x77, 0x00, 0x11, 0x11, 0x77}; 121EOD 122 123$stipples['ltop'] = Tk::BLT::Bitmap.new(<<EOD) 124#define ltop_width 8 125#define ltop_height 8 126static unsigned char ltop_bits[] = { 127 0xee, 0x88, 0x88, 0x00, 0xee, 0x88, 0x88, 0x00}; 128EOD 129 130$stipples['rbottom'] = Tk::BLT::Bitmap.new(<<EOD) 131#define rbottom_width 8 132#define rbottom_height 8 133static unsigned char rbottom_bits[] = { 134 0x00, 0x88, 0x88, 0xee, 0x00, 0x88, 0x88, 0xee}; 135EOD 136 137$stipples['rtop'] = Tk::BLT::Bitmap.new(<<EOD) 138#define rtop_width 8 139#define rtop_height 8 140static unsigned char rtop_bits[] = { 141 0x77, 0x11, 0x11, 0x00, 0x77, 0x11, 0x11, 0x00}; 142EOD 143 144$stipples['vline1'] = Tk::BLT::Bitmap.new(<<EOD) 145#define vline1_width 8 146#define vline1_height 8 147static unsigned char vline1_bits[] = { 148 0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55}; 149EOD 150 151$stipples['vline2'] = Tk::BLT::Bitmap.new(<<EOD) 152#define vline2_width 8 153#define vline2_height 8 154static unsigned char vline2_bits[] = { 155 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33}; 156EOD 157