-(defun sixel-make-sixel-from-char (char tag)
- "Retrieve sequence of bits to be set."
- (sixel-tag-bits (- char 63) tag 6))
-
-(defun sixel-union (sixel1 sixel2)
- "Returns a union of the two sixels, SIXEL1 and SIXEL2.
-When both sixels specify a tag for the same pixel, the tag
-from SIXEL2 wins."
- (seq-mapn (lambda (tag1 tag2)
- (or tag2 tag1))
- sixel1 sixel2))
+(defun sixel-tag-sixel-in-row (row-variable index char tag)
+ "Tag the bits of the sixel at INDEX in the list identified by
+the variable ROW-VARIABLE corresponding to input character CHAR
+with TAG."
+ (while (not (< index (length (symbol-value row-variable))))
+ (add-to-list row-variable (make-vector 6 nil)))
+ (let ((sixel (elt (symbol-value row-variable) index)))
+ (sixel-tag-bits sixel (- char 63) tag)))