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