;;; POSSIBLY WORKING YET ; FOR ME AT LEAST
please report back
;;; Dependencies
ecl ; Non-portable ecl is used for the C-compiler-compiled executable file.
The non-portable elements should be feature'd out but I didn't do it yet.
The package itself is portable common lisp.
like
```
pkg_add ecl
```
or
```
emerge dev-lisp/ecls # why is it called this
```
or
```
apt install ecl
```
;;; Default location
```
mkdir -p ~/common-lisp/bit-d-generate
```
put the files from
gopher://tilde.institute/1/~screwtape/bit-d-generate/ into there. Using lynx
```
ecl <<EOG
(require :asdf)
(uiop:chdir #p"~/common-lisp/bit-d-generate")
(loop for string in '("bit-d-generate.lisp" "bit-d-generate.asd"
"packages.lisp" "README.txt"
"Makefile" "a.pbm")
do (uiop:run-program (format nil "lynx -dump --dont-wrap-pre ~
gopher://tilde.institute/9/~~screwtape/bit-d-generate/~a > ~0@*~a" string)))
EOG
#Ugh... Eat carriage returns with tr(1)
cd ~/common-lisp/bit-d-generate/ && tr -d "\r" <Makefile>tmp && mv tmp Makefile;
```
;;; just running make
```sh
make
```
results in the executably linked ./bit-d-generate
Try it out. a.pbm is a 64x64 pbm like 'a'
```
/bit-d-generate -i a.pbm
```
Using every option:
```
/bit-d-generate -i a.pbm -fgfg 1 -fgbg 2 -fgbg 3 -bgbg 6 -fgch O -bgch o
```
;;; Using in common lisp
I didn't feature-out the non-portable ecl build stuff so I guess we're in ECL.
Not that it matters.
```lisp
(require "bit-d-generate")
(in-package :bdg)
(with-open-file (*standard-output* #p"a.ascii"
:direction :output :if-does-not-exist :create
:if-exists :supersede)
(pbm2ascii #p"a.pbm" :foreground #\z :background #\s))
```
;;; the color controls are done by variables which you would need to set though.
Will document later
;;; This package is actually a utility for storing binary blobs for my hopfield nets
Not documented yet ;p
AI
