ruby--ruby/ext/tk/sample/tkextlib/blt/scripts/stipples.rb

$stipples = {} unless $stipples

$stipples['bdiagonal1'] = Tk::BLT::Bitmap.new(<<EOD)
#define bdiagonal1_width 8
#define bdiagonal1_height 8
static unsigned char bdiagonal1_bits[] = {
   0x88, 0x44, 0x22, 0x11, 0x88, 0x44, 0x22, 0x11};
EOD

$stipples['bdiagonal2'] = Tk::BLT::Bitmap.new(<<EOD)
#define bdiagonal2_width 8
#define bdiagonal2_height 8
static unsigned char bdiagonal2_bits[] = {
   0x08, 0x04, 0x02, 0x01, 0x80, 0x40, 0x20, 0x10};
EOD

$stipples['checker2'] = Tk::BLT::Bitmap.new(<<EOD)
#define checker2_width 8
#define checker2_height 8
static unsigned char checker2_bits[] = {
   0x33, 0x33, 0xcc, 0xcc, 0x33, 0x33, 0xcc, 0xcc};
EOD


$stipples['checker3'] = Tk::BLT::Bitmap.new(<<EOD)
#define checker3_width 8
#define checker3_height 8
static unsigned char checker3_bits[] = {
   0x0f, 0x0f, 0x0f, 0x0f, 0xf0, 0xf0, 0xf0, 0xf0};
EOD

$stipples['cross1'] = Tk::BLT::Bitmap.new(<<EOD)
#define cross1_width 8
#define cross1_height 8
static unsigned char cross_bits[] = {
   0xff, 0xaa, 0xff, 0xaa, 0xff, 0xaa, 0xff, 0xaa};
EOD

$stipples['cross2'] = Tk::BLT::Bitmap.new(<<EOD)
#define cross2_width 8
#define cross2_height 8
static unsigned char cross2_bits[] = {
   0xff, 0x88, 0x88, 0x88, 0xff, 0x88, 0x88, 0x88};
EOD

$stipples['cross3'] = Tk::BLT::Bitmap.new(<<EOD)
#define cross3_width 8
#define cross3_height 8
static unsigned char cross3_bits[] = {
   0xff, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01};
EOD

$stipples['crossdiag'] = Tk::BLT::Bitmap.new(<<EOD)
#define crossdiag_width 8
#define crossdiag_height 8
static unsigned char crossdiag2_bits[] = {
   0x18, 0x24, 0x42, 0x81, 0x81, 0x42, 0x24, 0x18};
EOD

$stipples['dot1'] = Tk::BLT::Bitmap.new(<<EOD)
#define dot1_width 8
#define dot1_height 8
static unsigned char dot1_bits[] = {
   0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa};
EOD

$stipples['dot2'] = Tk::BLT::Bitmap.new(<<EOD)
#define dot2_width 8
#define dot2_height 8
static unsigned char dot2_bits[] = {
   0x55, 0x00, 0x55, 0x00, 0x55, 0x00, 0x55, 0x00};
EOD

$stipples['dot3'] = Tk::BLT::Bitmap.new(<<EOD)
#define dot3_width 8
#define dot3_height 8
static unsigned char dot3_bits[] = {
   0x11, 0x00, 0x00, 0x00, 0x11, 0x00, 0x00, 0x00};
EOD

$stipples['dot4'] = Tk::BLT::Bitmap.new(<<EOD)
#define dot4_width 8
#define dot4_height 8
static unsigned char dot4_bits[] = {
   0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
EOD

$stipples['fdiagonal1'] = Tk::BLT::Bitmap.new(<<EOD)
#define fdiagonal1_width 8
#define fdiagonal1_height 8
static unsigned char fdiagonal1_bits[] = {
   0x11, 0x22, 0x44, 0x88, 0x11, 0x22, 0x44, 0x88};
EOD

$stipples['fdiagonal2'] = Tk::BLT::Bitmap.new(<<EOD)
#define fdiagonal2_width 8
#define fdiagonal2_height 8
static unsigned char fdiagonal2_bits[] = {
   0x10, 0x20, 0x40, 0x80, 0x01, 0x02, 0x04, 0x08};
EOD

$stipples['hline1'] = Tk::BLT::Bitmap.new(<<EOD)
#define hline1_width 8
#define hline1_height 8
static unsigned char hline1_bits[] = {
   0xff, 0x00, 0xff, 0x00, 0xff, 0x00, 0xff, 0x00};
EOD

$stipples['hline2'] = Tk::BLT::Bitmap.new(<<EOD)
#define hline2_width 8
#define hline2_height 8
static unsigned char hline2_bits[] = {
   0xff, 0xff, 0x00, 0x00, 0xff, 0xff, 0x00, 0x00};
EOD

$stipples['lbottom'] = Tk::BLT::Bitmap.new(<<EOD)
#define lbottom_width 8
#define lbottom_height 8
static unsigned char lbottom_bits[] = {
   0x00, 0x11, 0x11, 0x77, 0x00, 0x11, 0x11, 0x77};
EOD

$stipples['ltop'] = Tk::BLT::Bitmap.new(<<EOD)
#define ltop_width 8
#define ltop_height 8
static unsigned char ltop_bits[] = {
   0xee, 0x88, 0x88, 0x00, 0xee, 0x88, 0x88, 0x00};
EOD

$stipples['rbottom'] = Tk::BLT::Bitmap.new(<<EOD)
#define rbottom_width 8
#define rbottom_height 8
static unsigned char rbottom_bits[] = {
   0x00, 0x88, 0x88, 0xee, 0x00, 0x88, 0x88, 0xee};
EOD

$stipples['rtop'] = Tk::BLT::Bitmap.new(<<EOD)
#define rtop_width 8
#define rtop_height 8
static unsigned char rtop_bits[] = {
   0x77, 0x11, 0x11, 0x00, 0x77, 0x11, 0x11, 0x00};
EOD

$stipples['vline1'] = Tk::BLT::Bitmap.new(<<EOD)
#define vline1_width 8
#define vline1_height 8
static unsigned char vline1_bits[] = {
   0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55};
EOD

$stipples['vline2'] = Tk::BLT::Bitmap.new(<<EOD)
#define vline2_width 8
#define vline2_height 8
static unsigned char vline2_bits[] = {
   0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33};
EOD