1
$stipples = {} unless $stipples
3
$stipples['bdiagonal1'] = Tk::BLT::Bitmap.new(<<EOD)
4
#define bdiagonal1_width 8
5
#define bdiagonal1_height 8
6
static unsigned char bdiagonal1_bits[] = {
7
0x88, 0x44, 0x22, 0x11, 0x88, 0x44, 0x22, 0x11};
10
$stipples['bdiagonal2'] = Tk::BLT::Bitmap.new(<<EOD)
11
#define bdiagonal2_width 8
12
#define bdiagonal2_height 8
13
static unsigned char bdiagonal2_bits[] = {
14
0x08, 0x04, 0x02, 0x01, 0x80, 0x40, 0x20, 0x10};
17
$stipples['checker2'] = Tk::BLT::Bitmap.new(<<EOD)
18
#define checker2_width 8
19
#define checker2_height 8
20
static unsigned char checker2_bits[] = {
21
0x33, 0x33, 0xcc, 0xcc, 0x33, 0x33, 0xcc, 0xcc};
25
$stipples['checker3'] = Tk::BLT::Bitmap.new(<<EOD)
26
#define checker3_width 8
27
#define checker3_height 8
28
static unsigned char checker3_bits[] = {
29
0x0f, 0x0f, 0x0f, 0x0f, 0xf0, 0xf0, 0xf0, 0xf0};
32
$stipples['cross1'] = Tk::BLT::Bitmap.new(<<EOD)
33
#define cross1_width 8
34
#define cross1_height 8
35
static unsigned char cross_bits[] = {
36
0xff, 0xaa, 0xff, 0xaa, 0xff, 0xaa, 0xff, 0xaa};
39
$stipples['cross2'] = Tk::BLT::Bitmap.new(<<EOD)
40
#define cross2_width 8
41
#define cross2_height 8
42
static unsigned char cross2_bits[] = {
43
0xff, 0x88, 0x88, 0x88, 0xff, 0x88, 0x88, 0x88};
46
$stipples['cross3'] = Tk::BLT::Bitmap.new(<<EOD)
47
#define cross3_width 8
48
#define cross3_height 8
49
static unsigned char cross3_bits[] = {
50
0xff, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01};
53
$stipples['crossdiag'] = Tk::BLT::Bitmap.new(<<EOD)
54
#define crossdiag_width 8
55
#define crossdiag_height 8
56
static unsigned char crossdiag2_bits[] = {
57
0x18, 0x24, 0x42, 0x81, 0x81, 0x42, 0x24, 0x18};
60
$stipples['dot1'] = Tk::BLT::Bitmap.new(<<EOD)
63
static unsigned char dot1_bits[] = {
64
0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa};
67
$stipples['dot2'] = Tk::BLT::Bitmap.new(<<EOD)
70
static unsigned char dot2_bits[] = {
71
0x55, 0x00, 0x55, 0x00, 0x55, 0x00, 0x55, 0x00};
74
$stipples['dot3'] = Tk::BLT::Bitmap.new(<<EOD)
77
static unsigned char dot3_bits[] = {
78
0x11, 0x00, 0x00, 0x00, 0x11, 0x00, 0x00, 0x00};
81
$stipples['dot4'] = Tk::BLT::Bitmap.new(<<EOD)
84
static unsigned char dot4_bits[] = {
85
0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
88
$stipples['fdiagonal1'] = Tk::BLT::Bitmap.new(<<EOD)
89
#define fdiagonal1_width 8
90
#define fdiagonal1_height 8
91
static unsigned char fdiagonal1_bits[] = {
92
0x11, 0x22, 0x44, 0x88, 0x11, 0x22, 0x44, 0x88};
95
$stipples['fdiagonal2'] = Tk::BLT::Bitmap.new(<<EOD)
96
#define fdiagonal2_width 8
97
#define fdiagonal2_height 8
98
static unsigned char fdiagonal2_bits[] = {
99
0x10, 0x20, 0x40, 0x80, 0x01, 0x02, 0x04, 0x08};
102
$stipples['hline1'] = Tk::BLT::Bitmap.new(<<EOD)
103
#define hline1_width 8
104
#define hline1_height 8
105
static unsigned char hline1_bits[] = {
106
0xff, 0x00, 0xff, 0x00, 0xff, 0x00, 0xff, 0x00};
109
$stipples['hline2'] = Tk::BLT::Bitmap.new(<<EOD)
110
#define hline2_width 8
111
#define hline2_height 8
112
static unsigned char hline2_bits[] = {
113
0xff, 0xff, 0x00, 0x00, 0xff, 0xff, 0x00, 0x00};
116
$stipples['lbottom'] = Tk::BLT::Bitmap.new(<<EOD)
117
#define lbottom_width 8
118
#define lbottom_height 8
119
static unsigned char lbottom_bits[] = {
120
0x00, 0x11, 0x11, 0x77, 0x00, 0x11, 0x11, 0x77};
123
$stipples['ltop'] = Tk::BLT::Bitmap.new(<<EOD)
125
#define ltop_height 8
126
static unsigned char ltop_bits[] = {
127
0xee, 0x88, 0x88, 0x00, 0xee, 0x88, 0x88, 0x00};
130
$stipples['rbottom'] = Tk::BLT::Bitmap.new(<<EOD)
131
#define rbottom_width 8
132
#define rbottom_height 8
133
static unsigned char rbottom_bits[] = {
134
0x00, 0x88, 0x88, 0xee, 0x00, 0x88, 0x88, 0xee};
137
$stipples['rtop'] = Tk::BLT::Bitmap.new(<<EOD)
139
#define rtop_height 8
140
static unsigned char rtop_bits[] = {
141
0x77, 0x11, 0x11, 0x00, 0x77, 0x11, 0x11, 0x00};
144
$stipples['vline1'] = Tk::BLT::Bitmap.new(<<EOD)
145
#define vline1_width 8
146
#define vline1_height 8
147
static unsigned char vline1_bits[] = {
148
0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55};
151
$stipples['vline2'] = Tk::BLT::Bitmap.new(<<EOD)
152
#define vline2_width 8
153
#define vline2_height 8
154
static unsigned char vline2_bits[] = {
155
0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33};