dimitri/uniplot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix imports for Gerbil 0.18

Browse source
This commit is contained in:
Dimitri Lozeve 2023-10-09 21:31:42 +02:00
parent 6282e80f50
commit cfb711239f
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
uniplot/braille.ss
View file

@ -3,8 +3,6 @@
(import :std/iter (import :std/iter
:std/misc/list :std/misc/list
:std/misc/string :std/misc/string
:gerbil/gambit/hvectors
:gerbil/gambit/bits
:dlozeve/fancy/format) :dlozeve/fancy/format)
(def +braille-signs+ (def +braille-signs+
@ -23,7 +21,7 @@
(def c (u8vector-ref (vector-ref canvas (quotient i 4)) (quotient j 2))) (def c (u8vector-ref (vector-ref canvas (quotient i 4)) (quotient j 2)))
(def offset (u8vector-ref +braille-signs+ (def offset (u8vector-ref +braille-signs+
(+ (remainder i 4) (* 4 (remainder j 2))))) (+ (remainder i 4) (* 4 (remainder j 2)))))
(any-bits-set? c offset)) (not (zero? (bitwise-and c offset))))
(def (braille-canvas-set! canvas i j v) (def (braille-canvas-set! canvas i j v)
(def old-offset (u8vector-ref (vector-ref canvas (quotient i 4)) (quotient j 2))) (def old-offset (u8vector-ref (vector-ref canvas (quotient i 4)) (quotient j 2)))