pyrox.dev
lol
1{ runCommandLocal, racket }:
2
3runCommandLocal "racket-test-draw-crossing"
4 {
5 nativeBuildInputs = [ racket ];
6 }
7 ''
8 racket -f - <<EOF
9 (require racket/draw)
10
11 (define target (make-bitmap 64 64))
12 (define dc (new bitmap-dc% [bitmap target]))
13 (send dc draw-line 0 0 64 64)
14 (send dc draw-line 0 64 64 0)
15
16 (send target save-file (getenv "out") 'png)
17 EOF
18 ''