…a) (car a)))) " 2000 rectclip " ps " fill")))) xextls)) (colored (map (lambda (a r g b) (markup #:line (… …mkps) rshadelist gshadelist bshadelist)) (finalmkp (reduce make-combine-markup empty-markup colored))) (interpret-markup layout props finalmkp))) samplePath = #'((moveto 0 …