home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / e-tools / plugins / plugin_textimagebutton / tib_images.e < prev    next >
Encoding:
Text File  |  1996-04-11  |  7.6 KB  |  171 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE 'exec/memory', 'intuition/intuition'
  5.  
  6. PROC copyListToChip(data)
  7.   DEF size, mem
  8.   size:=ListLen(data)*SIZEOF LONG
  9.   mem:=NewM(size, MEMF_CHIP)
  10.   CopyMemQuick(data, mem, size)
  11. ENDPROC mem
  12.  
  13. PROC left_high() 
  14. DEF image
  15. ENDPROC image := [0,0,18,14,3,
  16.     copyListToChip ([$00004000,$00004000,$00204000,$00604000,
  17.                      $00C04000,$01C04000,$03804000,$03804000,
  18.                      $01C04000,$00C04000,$00604000,$00204000,
  19.                         $00004000,$7FFFC000,
  20.                      $FFFF8000,$80000000,$80000000,$80000000,
  21.                      $80000000,$80000000,$80000000,$80000000,
  22.                      $80000000,$80000000,$80000000,$80000000,
  23.                      $80000000,$80000000]),3,0,0]:image
  24.  
  25. PROC left_low() 
  26. DEF image
  27. ENDPROC image := [0,0,18,14,3,
  28.     copyListToChip ([$FFFF8000,$80000000,$80200000,$80600000,
  29.                      $80C00000,$81C00000,$83800000,$83800000,
  30.                      $81C00000,$80C00000,$80600000,$80200000,
  31.                      $80000000,$80000000,
  32.                      $00004000,$00004000,$00004000,$00004000,
  33.                      $00004000,$00004000,$00004000,$00004000,
  34.                      $00004000,$00004000,$00004000,$00004000,
  35.                      $00004000,$7FFFC000]),3,0,0]:image
  36.  
  37. PROC down_high() 
  38. DEF image
  39. ENDPROC image := [0,0,18,14,3,
  40.     copyListToChip ([$00004000,$00004000,$00004000,$00004000,
  41.                   $00004000,$0C0C4000,$07384000,$03F04000,
  42.                  $01E04000,$00C04000,$00004000,$00004000,
  43.                  $00004000,$7FFFC000,
  44.                  $FFFF8000,$80000000,$80000000,$80000000,
  45.                  $80000000,$80000000,$80000000,$80000000,
  46.                  $80000000,$80000000,$80000000,$80000000,
  47.                      $80000000,$80000000]),3,0,0]:image
  48.  
  49. PROC down_low() 
  50. DEF image
  51. ENDPROC image := [0,0,18,14,3,
  52.     copyListToChip ([$FFFF8000,$80000000,$80000000,$80000000,
  53.                      $80000000,$8C0C0000,$87380000,$83F00000,
  54.                      $81E00000,$80C00000,$80000000,$80000000,
  55.                      $80000000,$80000000,
  56.                      $00004000,$00004000,$00004000,$00004000,
  57.                      $00004000,$00004000,$00004000,$00004000,
  58.                      $00004000,$00004000,$00004000,$00004000,
  59.                      $00004000,$7FFFC000]),3,0,0]:image
  60.  
  61. PROC right_high() 
  62. DEF image
  63. ENDPROC image := [0,0,18,14,3,
  64.     copyListToChip ([$00004000,$00004000,$00804000,$00C04000,
  65.                      $00604000,$00704000,$00384000,$00384000,
  66.                      $00704000,$00604000,$00C04000,$00804000,
  67.                      $00004000,$7FFFC000,
  68.                      $FFFF8000,$80000000,$80000000,$80000000,
  69.                      $80000000,$80000000,$80000000,$80000000,
  70.                      $80000000,$80000000,$80000000,$80000000,
  71.                      $80000000,$80000000]),3,0,0]:image
  72.  
  73. PROC right_low() 
  74. DEF image
  75. ENDPROC image := [0,0,18,14,3,
  76.     copyListToChip ([$FFFF8000,$80000000,$80800000,$80C00000,
  77.                      $80600000,$80700000,$80380000,$80380000,
  78.                      $80700000,$80600000,$80C00000,$80800000,
  79.                      $80000000,$80000000,
  80.                      $00004000,$00004000,$00004000,$00004000,
  81.                      $00004000,$00004000,$00004000,$00004000,
  82.                      $00004000,$00004000,$00004000,$00004000,
  83.                      $00004000,$7FFFC000]),3,0,0]:image
  84.  
  85. PROC up_high() 
  86. DEF image
  87. ENDPROC image := [0,0,18,14,3,
  88.     copyListToChip ([$00004000,$00004000,$00004000,$00004000,
  89.                      $00C04000,$01E04000,$03F04000,$07384000,
  90.                      $0C0C4000,$00004000,$00004000,$00004000,
  91.                      $00004000,$7FFFC000,
  92.                      $FFFF8000,$80000000,$80000000,$80000000,
  93.                      $80000000,$80000000,$80000000,$80000000,
  94.                      $80000000,$80000000,$80000000,$80000000,
  95.                      $80000000,$80000000]),3,0,0]:image
  96.  
  97. PROC up_low() 
  98. DEF image
  99. ENDPROC image := [0,0,18,14,3,
  100.     copyListToChip ([$FFFF8000,$80000000,$80000000,$80000000,
  101.                      $80C00000,$81E00000,$83F00000,$87380000,
  102.                      $8C0C0000,$80000000,$80000000,$80000000,
  103.                      $80000000,$80000000,
  104.                      $00004000,$00004000,$00004000,$00004000,
  105.                      $00004000,$00004000,$00004000,$00004000,
  106.                      $00004000,$00004000,$00004000,$00004000,
  107.                      $00004000,$7FFFC000]),3,0,0]:image
  108.  
  109. PROC eye() 
  110. DEF image
  111. ENDPROC image := [0,0,21,12,3,
  112.     copyListToChip ([$01FF0000,$07EBC000,$0CFE6000,$1B9FF000,
  113.                      $3ADCE000,$72F4D800,$E2F80800,$C1003000,
  114.                      $90806000,$3C614000,$0FAB8000,$03FF0000,
  115.                      $00FE0000,$03EB8000,$04824000,$0AB36000,
  116.                      $1878D000,$3210D800,$6E806000,$DD22E000,
  117.                      $9E85C000,$3F630000,$0BFD0000,$02010000,
  118.                      $01FF0000,$07EBC000,$0D006000,$1C003000,
  119.                      $35011000,$610B4000,$C1050000,$A0F72000,
  120.                      $90564000,$04198000,$01AA0000,$00000000]),7,0,0]:image
  121.  
  122. PROC noise_high()
  123. DEF image
  124. ENDPROC image := [0,0,41,18,3,
  125.     copyListToChip ([$0000C180,$0000000F,$22580000,$00091224,
  126.                      $00000008,$1A260000,$00080A22,$00000038,
  127.                      $4A038000,$00404C00,$4000FF80,$44007F80,
  128.                      $80006000,$0080FFC0,$7001FF80,$00405009,
  129.                      $00000042,$58080000,$0042080E,$00000043,
  130.                      $88080000,$00420888,$00000040,$0C880000,
  131.                      $00640780,$00000038,$00F00000,
  132.                      $0000C180,$0000000F,$E3D80000,$000FF3FC,
  133.                      $0000000F,$FBFE0000,$000FFBFE,$0000003F,
  134.                      $FBFF8000,$007FFFFF,$C000FFFF,$FFFFFF80,
  135.                      $FFFFFFFF,$FF80FFFF,$FFFFFF80,$007FDFFF,
  136.                      $0000007F,$DFFE0000,$007F8FFE,$0000007F,
  137.                      $8FF80000,$007E0FF8,$0000007C,$0FF80000,
  138.                      $007C07F0,$00000038,$00F00000,
  139.                      $0000C180,$0000000F,$62D80000,$000B326C,
  140.                      $00000009,$3A6E0000,$00081A66,$00000038,
  141.                      $DA578000,$0050DD54,$C000FF94,$CD547F80,
  142.                      $8054E551,$0080FFD4,$F553FF80,$0054D55B,
  143.                      $00000056,$D95A0000,$0056895E,$00000057,
  144.                      $89580000,$00560998,$00000044,$0D980000,
  145.                      $006C0790,$00000038,$00F00000]),7,0,0]:image
  146.  
  147. PROC noise_low()
  148. DEF image:PTR TO image
  149. ENDPROC image := [0,0,41,18,3,
  150.     copyListToChip ([$00000000,$00000000,$00000000,$00000000,
  151.                      $00000000,$00000000,$00000000,$00000000,
  152.                      $00000000,$00000000,$0000FFFF,$FFFFFF80,
  153.                      $80000000,$0080FFFF,$FFFFFF80,$00000000,
  154.                      $00000000,$00000000,$00000000,$00000000,
  155.                      $00000000,$00000000,$00000000,$00000000,
  156.                      $00000000,$00000000,$00000000,
  157.                      $00000000,$00000000,$00000000,$00000000,
  158.                      $00000000,$00000000,$00000000,$00000000,
  159.                      $00000000,$00000000,$0000FFFF,$FFFFFF80,
  160.                      $FFFFFFFF,$FF80FFFF,$FFFFFF80,$00000000,
  161.                      $00000000,$00000000,$00000000,$00000000,
  162.                      $00000000,$00000000,$00000000,$00000000,
  163.                      $00000000,$00000000,$00000000,
  164.                      $00000000,$00000000,$00000000,$00000000,
  165.                      $00000000,$00000000,$00000000,$00000000,
  166.                      $00000000,$00000000,$0000FFFF,$FFFFFF80,
  167.                      $80000000,$0080FFFF,$FFFFFF80,$00000000,
  168.                      $00000000,$00000000,$00000000,$00000000,
  169.                      $00000000,$00000000,$00000000,$00000000,
  170.                      $00000000,$00000000,$00000000]),7,0,0]:image
  171.