158 lines
6.0 KiB
Plaintext
158 lines
6.0 KiB
Plaintext
' color tables
|
|
LET cspace_rgb%=&H1
|
|
LET cspace_argb%=&H2
|
|
LET cspace_cmyk%=&H4
|
|
'
|
|
LET cbitmap_magic%=&H6362746D !'cbtm'
|
|
LET color_tab_magic%=&H63746162 !'ctab'
|
|
'
|
|
' offsets for gcbitmap structure used by vr_transfer_bits()
|
|
LET gc_magic&=0
|
|
LET gc_length&=4
|
|
LET gc_format&=8
|
|
LET gc_reserved&=12
|
|
LET gc_addr&=16
|
|
LET gc_width&=20
|
|
LET gc_bits&=24
|
|
LET gc_px_format&=28
|
|
LET gc_xmin&=32
|
|
LET gc_ymin&=36
|
|
LET gc_xmax&=40
|
|
LET gc_ymax&=44
|
|
LET gc_ctab&=48
|
|
LET gc_itab&=52
|
|
LET gc_reserved0&=56
|
|
LET gc_reserved1&=60
|
|
'
|
|
' offsets for color table structure
|
|
LET ct_magic&=0
|
|
LET ct_length&=4
|
|
LET ct_format&=8
|
|
LET ct_reserved&=12
|
|
LET ct_map_id&=16
|
|
LET ct_color_space&=20
|
|
LET ct_flags&=24
|
|
LET ct_no_colors&=28
|
|
LET ct_reserved1&=32
|
|
LET ct_reserved2&=36
|
|
LET ct_reserved3&=40
|
|
LET ct_reserved4&=44
|
|
LET ct_colors&=48
|
|
'
|
|
' modes for vr_transfer_bits()
|
|
LET t_not&=4 !constant for inversion in logical transfer modes
|
|
LET t_colorize&=16 !constant for coloring
|
|
'
|
|
LET t_logic_mode&=0
|
|
LET t_draw_mode&=32
|
|
LET t_arith_mode&=64 !constants for arithmetic transfer modes
|
|
LET t_dither_mode&=128 !constant for dithering
|
|
'
|
|
' logical transfer modes
|
|
LET t_logic_copy&=t_logic_mode&+0
|
|
LET t_logic_or&=t_logic_mode&+1
|
|
LET t_logic_xor&=t_logic_mode&+2
|
|
LET t_logic_and&=t_logic_mode&+3
|
|
LET t_logic_not_copy&=t_logic_mode&+4
|
|
LET t_logic_not_or&=t_logic_mode&+5
|
|
LET t_logic_not_xor&=t_logic_mode&+6
|
|
LET t_logic_not_and&=t_logic_mode&+7
|
|
'
|
|
' drawing modes
|
|
LET t_replace&=t_draw_mode&+0
|
|
LET t_transparent&=t_draw_mode&+1
|
|
LET t_hilite&=t_draw_mode&+2
|
|
LET t_revers_transparent&=t_draw_mode&+3
|
|
'
|
|
' arithmetic transfer modes
|
|
LET t_blend&=t_arith_mode&+0
|
|
LET t_add&=t_arith_mode&+1
|
|
LET t_add_over&=t_arith_mode&+2
|
|
LET t_sub&=t_arith_mode&+3
|
|
LET t_max&=t_arith_mode&+5
|
|
LET t_sub_over&=t_arith_mode&+6
|
|
LET t_min&=t_arith_mode&+7
|
|
'
|
|
' Constants for pixel formats
|
|
LET px_1comp%=&H1000000 !Pixel consists of one used component: color index
|
|
LET px_3comp%=&H3000000 !Pixel consists of three components used, e.g. RGB
|
|
LET px_4comp%=&H4000000 !Pixel consists of four components used, e.g. CMYK
|
|
'
|
|
LET px_reversed%=&H800000 !Pixel is output in reverse byte order
|
|
LET px_xfirst%=&H400000 !unused bits precede the used bits (viewed in Motorola format)
|
|
LET px_kfirst%=&H200000 !K is in front of CMY (viewed in Motorola format)
|
|
LET px_afirst%=&H100000 !Alpha channels are in front of the color bits (viewed in Motorola format)
|
|
'
|
|
LET px_packed%=&H20000 !Bits are stored consecutively
|
|
LET px_planes%=&H10000 !Bits are distributed over several levels (order: 0, 1, ..., n)
|
|
LET px_iplanes%=&H0 !Bits are distributed over several words (order: 0, 1, ..., n)
|
|
'
|
|
LET px_uses1%=&H100 !1 bits of the pixel are used
|
|
LET px_uses2%=&H200 !2 bits of the pixel are used
|
|
LET px_uses3%=&H300 !3 bits of the pixel are used
|
|
LET px_uses4%=&H400 !4 bits of the pixel are used
|
|
LET px_uses8%=&H800 !8 bits of the pixel are used
|
|
LET px_uses15%=&HF00 !15 bits of the pixel are used
|
|
LET px_uses16%=&H1000 !16 bits of the pixel are used
|
|
LET px_uses24%=&H1800 !24 bits of the pixel are used
|
|
LET px_uses32%=&H2000 !32 bits of the pixel are used
|
|
LET px_uses48%=&H3000 !48 bits of the pixel are used
|
|
'
|
|
LET px_1bit%=&H1 !Pixel consists of 1 Bit
|
|
LET px_2bit%=&H2 !Pixel consists of 2 Bit
|
|
LET px_3bit%=&H3 !Pixel consists of 3 Bit
|
|
LET px_4bit%=&H4 !Pixel consists of 4 Bit
|
|
LET px_8bit%=&H8 !Pixel consists of 8 Bit
|
|
LET px_16bit%=&H10 !Pixel consists of 16 Bit
|
|
LET px_24bit%=&H18 !Pixel consists of 24 Bit
|
|
LET px_32bit%=&H20 !Pixel consists of 32 Bit
|
|
LET px_48bit%=&H30 !Pixel consists of 48 Bit
|
|
'
|
|
LET px_cmpnts%=&HF000000 !Mask for number of pixel components
|
|
LET px_flags%=&HF00000 !Mask for various flags
|
|
LET px_packing%=&H30000 !Mask for pixel format
|
|
LET px_used%=&H3F00 !Mask for the number of bits used
|
|
LET px_bits%=&H3F !Mask for the number of bits per pixel
|
|
'
|
|
' Pixel formats for ATARI graphics
|
|
LET px_atari1%=(px_packed%+px_1comp%+px_uses1%+px_1bit%)
|
|
LET px_atari2%=(px_iplanes%+px_1comp%+px_uses2%+px_2bit%)
|
|
LET px_atari4%=(px_iplanes%+px_1comp%+px_uses4%+px_4bit%)
|
|
LET px_atari8%=(px_iplanes%+px_1comp%+px_uses8%+px_8bit%)
|
|
LET px_falcon15%=(px_packed%+px_3comp%+px_uses16%+px_16bit%)
|
|
'
|
|
' Pixel formats for Macintosh
|
|
LET px_mac1%=(px_packed%+px_1comp%+px_uses1%+px_1bit%)
|
|
LET px_mac4%=(px_packed%+px_1comp%+px_uses4%+px_4bit%)
|
|
LET px_mac8%=(px_packed%+px_1comp%+px_uses8%+px_8bit%)
|
|
LET px_mac15%=(px_xfirst%+px_packed%+px_3comp%+px_uses15%+px_16bit%)
|
|
LET px_mac32%=(px_xfirst%+px_packed%+px_3comp%+px_uses24%+px_32bit%)
|
|
'
|
|
' Pixel formats for graphics cards
|
|
LET px_vga1%=(px_packed%+px_1comp%+px_uses1%+px_1bit%)
|
|
LET px_vga4%=(px_planes%+px_1comp%+px_uses4%+px_4bit%)
|
|
LET px_vga8%=(px_packed%+px_1comp%+px_uses8%+px_8bit%)
|
|
LET px_vga15%=(px_reversed%+px_xfirst%+px_packed%+px_3comp%+px_uses15%+px_16bit%)
|
|
LET px_vga16%=(px_reversed%+px_packed%+px_3comp%+px_uses16%+px_16bit%)
|
|
LET px_vga24%=(px_reversed%+px_packed%+px_3comp%+px_uses24%+px_24bit%)
|
|
LET px_vga32%=(px_reversed%+px_xfirst%+px_packed%+px_3comp%+px_uses24%+px_32bit%)
|
|
'
|
|
LET px_matrix16%=(px_packed%+px_3comp%+px_uses16%+px_16bit%)
|
|
'
|
|
LET px_nova32%=(px_packed%+px_3comp%+px_uses24%+px_32bit%)
|
|
'
|
|
' Pixel formats for printers
|
|
LET px_prn1%=(px_packed%+px_1comp%+px_uses1%+px_1bit%)
|
|
LET px_prn8%=(px_packed%+px_1comp%+px_uses8%+px_8bit%)
|
|
LET px_prn32%=(px_xfirst%+px_packed%+px_3comp%+px_uses24%+px_32bit%)
|
|
'
|
|
' preferred (fast) pixel formats for bitmaps
|
|
LET px_pref1%=(px_packed%+px_1comp%+px_uses1%+px_1bit%)
|
|
LET px_pref2%=(px_packed%+px_1comp%+px_uses2%+px_2bit%)
|
|
LET px_pref4%=(px_packed%+px_1comp%+px_uses4%+px_4bit%)
|
|
LET px_pref8%=(px_packed%+px_1comp%+px_uses8%+px_8bit%)
|
|
LET px_pref15%=(px_xfirst%+px_packed%+px_3comp%+px_uses15%+px_16bit%)
|
|
LET px_pref32%=(px_xfirst%+px_packed%+px_3comp%+px_uses24%+px_32bit%)
|
|
'
|
|
LET px_pref24%=(px_packed%+px_3comp%+px_uses24%+px_24bit%) !added by lp, was missing?
|