; ** this macro really should be redefined (use two seperate invocations
; of a 2-arg version of cc_block instead of this...)
macro cc_block a,b,c,d =
	dc.b {a},{a},{b},{b},{a},{a},{b},{b}
	dc.b {a},{a},{b},{b},{a},{a},{b},{b}
	dc.b {a},{a},{b},{b},{a},{a},{b},{b}
	dc.b {a},{a},{b},{b},{a},{a},{b},{b}
	dc.b {c},{c},{d},{d},{c},{c},{d},{d}
	dc.b {c},{c},{d},{d},{c},{c},{d},{d}
	dc.b {c},{c},{d},{d},{c},{c},{d},{d}
	dc.b {c},{c},{d},{d},{c},{c},{d},{d}
	|

; Table for converting the range of -1 to 1024 to the more compact range
; of 1 to 127 (so the count value can be put in one array entry.)
	dc.b 127		; 127 means it's in the set.
_count_conv dc.b 1
	dc.b  2, 3, 4, 5, 6, 7, 8, 9
	dc.b 10,11,12,13,14,15,16,17
	dc.b 18,19,20,21,22,23,24,25
	dc.b 26,27,28,29,30,31,32,33
	dc.b 34,35,36,37,38,39,40,41
	dc.b 42,43,44,45,46,47,48,49
	dc.b 50,51,52,53,54,55,56,57
	dc.b 58,59,60,61,62,63,64,65	; 64
	cc_block 66,67,68,69	; 128
	cc_block 70,71,72,73	; 192
	cc_block 74,75,76,77	; 256
	cc_block 78,79,80,81
	cc_block 82,83,84,85	; 384
	cc_block 86,87,88,89
	cc_block 90,91,92,93	; 512
	cc_block 94,95,96,97
	cc_block 98,99,100,101
	cc_block 102,103,104,105
	cc_block 106,107,108,109	; 768
	cc_block 110,111,112,113
	cc_block 114,115,116,117
	cc_block 118,119,120,121
	cc_block 122,123,124,125	; 1024
	dc.b 126	; For counts greater than 1024
	; 127 is reserved for points that are in the set.

; Masks added to color values to make the _Q_SEARCH algorithm work.
mask_table dc.b  0	; 0 = unused

	dc.b 20, 0,20, 0,20,20, 0, 0
	dc.b 20,20,20, 0, 0, 0, 0, 0
	dc.b 20,20,20,20,20,20,20, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b 20,20,20,20,20,20,20,20
	dc.b 20,20,20,20,20, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0

	dc.b 20,20, 0, 0,20,20,20,20
	dc.b  0, 0, 0, 0,20,20,20,20
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b 20,20,20,20,20,20,20,20
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b 20,20,20,20,20,20,20,20
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0
	dc.b 20
	
	dc.b 0		; 127 = in the set.
	
; Big wide solid zones, in 4 shades.  (Modeled after the shading scheme
; used by Tony Nelson in his Mandelbrot set program)
;
table_1 dc.b 0	; 0 = unused

	dc.b  0, 4, 8,12, 0, 4, 4, 8
	dc.b  8,12,12,12, 0, 0, 0, 0
	dc.b  4, 4, 4, 4, 4, 8, 8, 8
	dc.b  8, 8, 8, 8, 8,12,12,12
	dc.b 12,12,12,12,12,12,12,12
	dc.b 12,12, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0

	dc.b  4, 4, 8, 8, 8, 8,12,12
	dc.b 12,12, 0, 0, 0, 0, 0, 0
	dc.b  4, 4, 4, 4, 4, 4, 8, 8
	dc.b  8, 8, 8, 8, 8, 8, 8, 8
	dc.b 12,12,12,12,12,12,12,12
	dc.b 12,12,12,12, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0
	dc.b 4
	
	dc.b 16		; 127 = in the set.
	
; Single-ramp "absolute" shading scale.
table_2 dc.b 0	; 0 = unused

	dc.b  0, 1, 2, 3, 3, 4, 4, 5
	dc.b  5, 5, 6, 6, 6, 6, 6, 7
	dc.b  7, 7, 7, 7, 7, 8, 8, 8
	dc.b  8, 8, 8, 8, 8, 8, 8, 9
	dc.b  9, 9, 9, 9, 9, 9, 9, 9
	dc.b  9, 9, 9, 9, 9,10,10,10
	dc.b 10,10,10,10,10,10,10,10
	dc.b 10,10,10,10,10,10,10,11
	dc.b 11

	dc.b 11,11,11,11,12,12,12,12
	dc.b 13,13,13,13,13,13,13,13
	dc.b 14,14,14,14,14,14,14,14
	dc.b 14,14,14,14,14,14,14,14
	dc.b 15,15,15,15,15,15,15,15
	dc.b 15,15,15,15,15,15,15,15
	dc.b 15,15,15,15,15,15,15,15
	dc.b 15,15,15,15
	dc.b 15
	
	dc.b 16		; 127 = in the set.

; Special shading table made for one of the examples in the documentation
; (center = -.02641 +.74842 i, size = .00098, n_max = 500)
;
table_3 dc.b 0	; 0 = unused

	dc.b 12,13,14,15,16,16, 0, 0
	dc.b  0, 0, 8, 8, 8, 8, 8, 8
	dc.b  8, 8, 8, 8, 8, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b 16,16,16,16,16,16,16,16
	dc.b 16,15,16,15,16,14,16,13
	dc.b 16,12,16,11,16,10,16, 9
	dc.b 16

	dc.b  8,16, 8,16, 8, 8,16,16
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0
	dc.b 0
	
	dc.b 16		; 127 = in the set.

; Shading table designed to match black-and-white xerox copy of the cover
; of the August 1985 Scientific American.  (also an example used in the
; documentation)
;
table_4 dc.b 0	; 0 = unused

	dc.b 14,14,14,14,14,14,14,14
	dc.b 14,14,14,14,14,14,14,14
	dc.b 14,14,14,14,14,14,14,14
	dc.b 14,14,14,14,14,14,14,15
	dc.b 15,16,16,16,16, 0, 3, 5
	dc.b  6, 7, 8, 8, 8,12,12,12
	dc.b 12,12,12,12,12,12,12,12
	dc.b 12,12,12,12,12,12,12,12
	dc.b 12

	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0
	dc.b 0
	
	dc.b 16		; 127 = in the set.

; Shading scale that produces many narrow parallel stripes.
table_5 dc.b 0	; 0 = unused

	dc.b 16
	dc.b  8,16, 8,16, 8,16, 8,16
	dc.b  8,16, 8,16, 8,16, 8,16
	dc.b  8,16, 8,16, 8,16, 8,16
	dc.b  8,16, 8,16, 8,16, 8,16
	dc.b  8,16, 7,15, 7,14, 6,13
	dc.b  6,12, 5,11, 5,10, 4, 9
	dc.b  4, 8, 3, 7, 3, 6, 2, 5
	dc.b  2, 4, 1, 3, 1, 2, 0, 1

	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0, 0, 0, 0, 0
	dc.b  0, 0, 0, 0
	dc.b 0
	
	dc.b 16		; 127 = in the set.

; "Zebra" pattern (alternating white&black all the way down.)
;
table_6 dc.b 0	; 0 = unused

	dc.b 16
	dc.b  0,16, 0,16, 0,16, 0,16
	dc.b  0,16, 0,16, 0,16, 0,16
	dc.b  0,16, 0,16, 0,16, 0,16
	dc.b  0,16, 0,16, 0,16, 0,16
	dc.b  0,16, 0,16, 0,16, 0,16
	dc.b  0,16, 0,16, 0,16, 0,16
	dc.b  0,16, 0,16, 0,16, 0,16
	dc.b  0,16, 0,16, 0,16, 0,16

	dc.b  0,16, 0,16, 0,16, 0,16
	dc.b  0,16, 0,16, 0,16, 0,16
	dc.b  0,16, 0,16, 0,16, 0,16
	dc.b  0,16, 0,16, 0,16, 0,16
	dc.b  0,16, 0,16, 0,16, 0,16
	dc.b  0,16, 0,16, 0,16, 0,16
	dc.b  0,16, 0,16, 0,16, 0,16
	dc.b  0,16, 0,16
	dc.b 0
	
	dc.b 16		; 127 = in the set.