19 lines
391 B
Nix
19 lines
391 B
Nix
{ runCommandLocal, racket }:
|
|
|
|
runCommandLocal "racket-test-draw-crossing"
|
|
{
|
|
nativeBuildInputs = [ racket ];
|
|
}
|
|
''
|
|
racket -f - <<EOF
|
|
(require racket/draw)
|
|
|
|
(define target (make-bitmap 64 64))
|
|
(define dc (new bitmap-dc% [bitmap target]))
|
|
(send dc draw-line 0 0 64 64)
|
|
(send dc draw-line 0 64 64 0)
|
|
|
|
(send target save-file (getenv "out") 'png)
|
|
EOF
|
|
''
|