home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / TCL / BLT / BLT1.7L1 / BLT1 / blt-1.7 / applications / extloader / demos / blt / bitmap < prev    next >
Encoding:
Text File  |  1994-04-22  |  7.5 KB  |  155 lines
  1. #!../../wish -f
  2.  
  3. set env(TCL_EXTMAP) "./extensions.tcl"
  4. extension add blt
  5.  
  6. blt_bitmap compose top {Top} -rotate 0
  7. blt_bitmap compose left {Left} -rotate 90
  8. blt_bitmap compose right {Right} -rotate 270
  9. blt_bitmap compose bottom {Bottom} -rotate 180
  10. blt_bitmap compose center {Center} -rotate 45 
  11.  
  12.  
  13. blt_bitmap define hobbes { { 25 25 } { 
  14.    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x03, 0x00,
  15.    0x78, 0xe0, 0x07, 0x00, 0xfc, 0xf8, 0x07, 0x00, 0xcc, 0x07, 0x04, 0x00,
  16.    0x0c, 0xf0, 0x0b, 0x00, 0x7c, 0x1c, 0x06, 0x00, 0x38, 0x00, 0x00, 0x00,
  17.    0xe0, 0x03, 0x10, 0x00, 0xe0, 0x41, 0x11, 0x00, 0x20, 0x40, 0x11, 0x00,
  18.    0xe0, 0x07, 0x10, 0x00, 0xe0, 0xc1, 0x17, 0x00, 0x10, 0xe0, 0x2f, 0x00,
  19.    0x20, 0xe0, 0x6f, 0x00, 0x18, 0xe0, 0x2f, 0x00, 0x20, 0xc6, 0x67, 0x00,
  20.    0x18, 0x84, 0x2b, 0x00, 0x20, 0x08, 0x64, 0x00, 0x70, 0xf0, 0x13, 0x00,
  21.    0x80, 0x01, 0x08, 0x00, 0x00, 0xfe, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00,
  22.    0x00, 0x00, 0x00, 0x00
  23. }}
  24.  
  25.  
  26. blt_bitmap define gort {
  27.   {64 64} {
  28.     ff ff ff ff ff ff ff ff 01 00 00 f0 3f 00 00 80 01 00 00 ff ff 07 00 80
  29.     01 00 c0 df 0f 1e 00 80 01 00 60 df 7f 38 00 80 01 00 30 84 fd 67 00 80
  30.     01 00 18 04 f6 ef 00 80 01 00 0c 86 e1 c7 01 80 01 00 06 06 c0 96 01 80
  31.     01 00 06 06 00 97 03 80 01 00 06 06 00 3c 03 80 01 00 03 06 00 5c 07 80
  32.     01 00 03 02 00 d8 06 80 01 00 03 02 00 d8 06 80 01 00 43 02 00 b0 0c 80
  33.     01 80 31 03 00 e0 0d 80 01 80 61 03 00 e0 0d 80 01 80 1b 03 00 f0 0c 80
  34.     01 80 b3 03 ff ff 1d 80 01 c0 eb fb ff ff 1d 80 01 e0 c5 7f fe 7f 3f 80
  35.     01 e0 eb e3 ff ff 6e 80 01 d0 3b fe 01 40 cf 80 01 f0 f7 07 00 30 8e 80
  36.     01 f0 f4 00 00 1b 98 80 01 70 14 00 00 1f dc 80 01 30 fe ff 1f c8 ff 80
  37.     01 20 ee ff ff ff ff 80 01 20 f7 ff 7f fe 7f 80 01 c0 e1 ff ff fe 3f 80
  38.     01 80 ed ff ff ff 19 80 01 80 99 ff ff ff 18 80 01 00 63 83 ff 7f 08 80
  39.     01 00 c3 06 00 00 0c 80 01 00 9b 07 00 00 0c 80 01 00 b6 07 00 10 0c 80
  40.     01 00 c6 07 00 10 04 80 01 00 36 06 00 18 06 80 01 00 66 06 00 18 06 80
  41.     01 00 8c 0d 00 18 02 80 01 00 18 0e 00 18 03 80 01 00 f0 0c 00 18 03 80
  42.     01 00 30 0f 00 98 01 80 01 00 b0 1f 01 98 01 80 01 00 60 1f 03 dc 00 80
  43.     01 00 e0 3f 03 dc 00 80 01 00 e0 3b 07 ee 00 80 01 00 70 f8 ff ff 01 80
  44.     01 00 f0 80 ff 37 03 80 01 00 fc 00 08 d8 03 80 01 00 fe 03 f8 7f 07 80
  45.     01 c0 87 07 e0 3f 1c 80 01 f0 03 00 00 00 f8 8f 81 ff 00 38 00 f6 f9 ff
  46.     fd 3f 00 e0 00 83 8f ff ff 00 00 80 01 00 fc c0 07 0e 00 38 e0 00 e0 9f
  47.     f9 07 00 00 80 03 00 ff 7f 80 01 00 c0 00 00 f0 7f c0 00 00 00 00 00 80
  48.     0f f0 00 38 00 00 00 80 01 30 00 00 38 c0 c0 80 01 1c e0 00 0c c0 83 81
  49.     ff ff ff ff ff ff ff ff
  50.   }
  51. }
  52.  
  53. blt_bitmap define xbob { { 61 75 } {
  54.    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0xff,
  55.    0xff, 0x07, 0x00, 0x00, 0x00, 0x00, 0xfe, 0xff, 0xff, 0x1f, 0x00, 0x00,
  56.    0x00, 0x80, 0xff, 0xff, 0xff, 0xfb, 0x00, 0x00, 0x00, 0xc0, 0xff, 0xcf,
  57.    0x9f, 0xd1, 0x03, 0x00, 0x00, 0xf0, 0x7f, 0x8c, 0x33, 0x91, 0x07, 0x00,
  58.    0x00, 0xf8, 0xa7, 0x18, 0x27, 0xb1, 0x06, 0x00, 0x00, 0xfc, 0x47, 0x31,
  59.    0x4e, 0xa6, 0x0e, 0x00, 0x00, 0xfe, 0x4f, 0x21, 0x4c, 0xae, 0x3d, 0x00,
  60.    0x00, 0xff, 0xdf, 0x23, 0x8d, 0xbe, 0x7d, 0x00, 0x80, 0xff, 0xff, 0x67,
  61.    0xbd, 0xfe, 0xff, 0x01, 0x80, 0xff, 0xff, 0x7f, 0xbf, 0xff, 0xff, 0x03,
  62.    0xc0, 0xff, 0xff, 0xff, 0xbf, 0xff, 0xf8, 0x07, 0xc0, 0xff, 0xff, 0xff,
  63.    0xbf, 0x3f, 0xf8, 0x07, 0xc0, 0xff, 0xff, 0xff, 0xff, 0x07, 0xf8, 0x0f,
  64.    0xc0, 0xff, 0xff, 0xff, 0x3f, 0x00, 0xf8, 0x0f, 0xe0, 0x7f, 0x00, 0xf8,
  65.    0x07, 0x00, 0xf0, 0x0f, 0xe0, 0x3f, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07,
  66.    0xe0, 0x3f, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xe0, 0x3f, 0x00, 0x00,
  67.    0x00, 0x00, 0xf4, 0x07, 0xe0, 0x3f, 0x00, 0x00, 0x00, 0x00, 0xe4, 0x07,
  68.    0xe0, 0x3f, 0x00, 0x00, 0x00, 0x00, 0xe4, 0x07, 0xe0, 0x3f, 0x00, 0x00,
  69.    0x00, 0x00, 0xe6, 0x07, 0xe0, 0x3f, 0x00, 0x00, 0x00, 0x00, 0xe7, 0x07,
  70.    0xe0, 0x3f, 0x00, 0x00, 0x00, 0x00, 0xe6, 0x07, 0xe0, 0x3f, 0x00, 0x00,
  71.    0x00, 0x00, 0xe6, 0x07, 0xe0, 0x3f, 0x00, 0x00, 0x00, 0x00, 0xe6, 0x07,
  72.    0xc0, 0x3f, 0x00, 0x00, 0x00, 0x78, 0xf6, 0x07, 0xa0, 0xbf, 0xff, 0x00,
  73.    0x00, 0xff, 0xf7, 0x07, 0x70, 0x9f, 0xff, 0x01, 0x80, 0xff, 0xef, 0x07,
  74.    0xf0, 0x1c, 0x80, 0x03, 0xe0, 0x01, 0xef, 0x07, 0xf0, 0x1f, 0xbe, 0x07,
  75.    0xf0, 0x3f, 0xee, 0x07, 0xe0, 0x9d, 0x83, 0x1f, 0xf8, 0xe1, 0xdc, 0x07,
  76.    0xe0, 0xc1, 0x7f, 0x1f, 0xfc, 0xff, 0xc8, 0x07, 0xe0, 0xc1, 0x69, 0x1e,
  77.    0x7e, 0xca, 0xc0, 0x03, 0xe0, 0x81, 0xb8, 0x1f, 0xc0, 0x0e, 0xc0, 0x03,
  78.    0xe0, 0x01, 0xc0, 0x1b, 0xc0, 0xcf, 0xc1, 0x03, 0xc0, 0x03, 0xf7, 0x11,
  79.    0x00, 0x7f, 0xc0, 0x03, 0xc0, 0x03, 0x7c, 0x18, 0x00, 0x1c, 0xc0, 0x02,
  80.    0xc0, 0x02, 0x30, 0x08, 0x00, 0x00, 0x40, 0x03, 0x40, 0x03, 0x00, 0x08,
  81.    0x00, 0x00, 0x40, 0x02, 0x40, 0x13, 0x00, 0x0c, 0x00, 0x00, 0x60, 0x02,
  82.    0x40, 0x12, 0x00, 0x0e, 0x00, 0x00, 0xc0, 0x03, 0x80, 0x33, 0x80, 0x0e,
  83.    0x00, 0x00, 0xa8, 0x01, 0x00, 0x33, 0x40, 0x0f, 0xa0, 0x03, 0x2c, 0x00,
  84.    0x00, 0x74, 0x30, 0x0f, 0x38, 0x07, 0x2e, 0x00, 0x00, 0x74, 0x98, 0x1f,
  85.    0x1e, 0x1e, 0x2f, 0x00, 0x00, 0xfc, 0x8f, 0xff, 0x0f, 0xfc, 0x2f, 0x00,
  86.    0x00, 0xf8, 0xe3, 0xff, 0x03, 0xf8, 0x2f, 0x00, 0x00, 0xf8, 0xfd, 0xff,
  87.    0x81, 0xff, 0x3f, 0x00, 0x00, 0xb8, 0xf9, 0x1f, 0xf8, 0x0f, 0x1e, 0x00,
  88.    0x00, 0x30, 0xf1, 0xf0, 0x0f, 0x03, 0x0e, 0x00, 0x00, 0x30, 0xf1, 0x01,
  89.    0x80, 0x01, 0x0f, 0x00, 0x00, 0x20, 0xf1, 0xf7, 0xff, 0x00, 0x07, 0x00,
  90.    0x00, 0x60, 0xe3, 0x01, 0x60, 0x80, 0x07, 0x00, 0x00, 0x60, 0xc3, 0xef,
  91.    0x3f, 0x80, 0x03, 0x00, 0x00, 0x40, 0xc2, 0xff, 0x0f, 0xc0, 0x03, 0x00,
  92.    0x00, 0xc0, 0xe6, 0x1f, 0x00, 0xc0, 0x01, 0x00, 0x00, 0x80, 0xf4, 0xfe,
  93.    0x3f, 0xe0, 0x00, 0x00, 0x00, 0x80, 0x79, 0xfe, 0x1f, 0xe0, 0x00, 0x00,
  94.    0xc0, 0x01, 0x3d, 0x3e, 0x00, 0x70, 0x00, 0x00, 0x30, 0x06, 0x3e, 0x0f,
  95.    0x00, 0x38, 0x00, 0x00, 0xc8, 0x8c, 0x1f, 0x07, 0x00, 0x38, 0x00, 0x00,
  96.    0xf4, 0xcc, 0x8f, 0x07, 0x00, 0x1c, 0x00, 0x00, 0x72, 0xee, 0xf7, 0x07,
  97.    0x00, 0x0e, 0x00, 0x00, 0x02, 0xff, 0xe3, 0x07, 0x00, 0x07, 0x00, 0x00,
  98.    0x32, 0xfe, 0xc1, 0xff, 0x8f, 0x03, 0x00, 0x00, 0x3e, 0xfe, 0x80, 0xff,
  99.    0xff, 0x01, 0x00, 0x00, 0x7e, 0x7c, 0x00, 0x00, 0x7e, 0x00, 0x00, 0x00,
  100.    0x7c, 0x3c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x1c, 0x00, 0x00,
  101.    0x00, 0x00, 0x00, 0x00, 0xf8, 0x1c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  102.    0xf0, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x07, 0x00, 0x00,
  103.    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
  104. }}
  105.  
  106. #
  107. # Test bitmap 
  108. #
  109. #   1.   Test of rotated text bitmap
  110. #   2.   Define bitmap from output of "data" command
  111. #   3.   Define bitmap from X11 bitmap file
  112. #   4.   Define bitmap from X10 bitmap file
  113. #   5.   Define bitmap from internal Tcl list
  114. #   6.   Use predefined internal bitmap 
  115. #
  116. set bitmapCount 0
  117. proc ChangeBitmap { w } {
  118.     global bitmapCount bitmapFile
  119.  
  120.     switch $bitmapCount {
  121.       0 { $w  configure -bitmap sharky }
  122.       1 { $w  configure -bitmap hobbes }
  123.       2 { $w  configure -bitmap xbob }
  124.       3 { $w  configure -bitmap gort }
  125.       4 { $w  configure -bitmap BLT }
  126.       5 { exit } 
  127.     }
  128.     incr bitmapCount
  129. }
  130.  
  131. button .left -bitmap left -command { 
  132.     .center configure -bitmap sharky ; set bitmapCount 1 
  133. }
  134. button .top -bitmap top -command {
  135.     .center configure -bitmap hobbes ; set bitmapCount 2 
  136. }
  137. button .right -bitmap right -command {
  138.     .center configure -bitmap xbob ; set bitmapCount 3 
  139. }
  140. button .bottom -bitmap bottom -command {
  141.     .center configure -bitmap gort ; set bitmapCount 4 
  142. }
  143. button .center -bitmap center -command "ChangeBitmap .center"
  144.  
  145. set bitmapFile @bitmaps/sharky.bm
  146. blt_bitmap define sharky [blt_bitmap data $bitmapFile]
  147.  
  148. blt_table . \
  149.     .top    0,1 -fill x \
  150.     .left   1,0 -fill y \
  151.     .center 1,1 -fill both \
  152.     .right  1,2 -fill y \
  153.     .bottom 2,1 -fill x 
  154.     
  155.