new-experiment 128 by 128 space 0 7 == cell-lo : entry-addr+ (s addr entry# -- addr' ) 8 * + ; : map-entry@ (s entry# -- entry ) palette buffer swap entry-addr+ /w + w@ ; : run-map cell-lo map-entry@ -> cell ; create-lut cmap-lut define-step convert-step lut-data cmap-lut switch-luts site-src lut lut-src site kick run end-step : gmap cell >gray ; : convert-pat ['] run-map ['] cmap-lut table! convert-step colormap gmap show ; : convert-all-inputs [""] input001.pat file>cam [""] input001.map file>palette convert-pat [""] new001.pat cam>file [""] input002.pat file>cam [""] input002.map file>palette convert-pat [""] new002.pat cam>file [""] input003.pat file>cam [""] input003.map file>palette convert-pat [""] new003.pat cam>file [""] input004.pat file>cam [""] input004.map file>palette convert-pat [""] new004.pat cam>file [""] input005.pat file>cam [""] input005.map file>palette convert-pat [""] new005.pat cam>file [""] input006.pat file>cam [""] input006.map file>palette convert-pat [""] new006.pat cam>file [""] input007.pat file>cam [""] input007.map file>palette convert-pat [""] new007.pat cam>file [""] input008.pat file>cam [""] input008.map file>palette convert-pat [""] new008.pat cam>file [""] input009.pat file>cam [""] input009.map file>palette convert-pat [""] new009.pat cam>file [""] input010.pat file>cam [""] input010.map file>palette convert-pat [""] new010.pat cam>file [""] input011.pat file>cam [""] input011.map file>palette convert-pat [""] new011.pat cam>file [""] input012.pat file>cam [""] input012.map file>palette convert-pat [""] new012.pat cam>file [""] input013.pat file>cam [""] input013.map file>palette convert-pat [""] new013.pat cam>file [""] input014.pat file>cam [""] input014.map file>palette convert-pat [""] new014.pat cam>file [""] input015.pat file>cam [""] input015.map file>palette convert-pat [""] new015.pat cam>file [""] input016.pat file>cam [""] input016.map file>palette convert-pat [""] new016.pat cam>file [""] input017.pat file>cam [""] input017.map file>palette convert-pat [""] new017.pat cam>file [""] input018.pat file>cam [""] input018.map file>palette convert-pat [""] new018.pat cam>file [""] input019.pat file>cam [""] input019.map file>palette convert-pat [""] new019.pat cam>file ; convert-all-inputs