BirDt/imugi
1
0
Fork 0
Code Issues 14 Pull requests Projects 1 Wiki Activity Actions

Draw tic-tac-toe squares

Browse source
This commit is contained in:
BirDt_ 2026-04-21 17:33:32 +08:00
parent 0544429d07
commit 918f3ec873
2 changed files with 89 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

22
engine/drawing.scm
View file

@ -258,13 +258,19 @@
(assert ((conjoin integer? positive?) thickness))
(assert (boolean? filled))
(assert (color? color))
(when filled
(draw-rectangle
(number->integer (v-x pos-vec))
(number->integer (v-y pos-vec))
width
height
(use-color color))))
(if filled
(draw-rectangle
(number->integer (v-x pos-vec))
(number->integer (v-y pos-vec))
width
height
(use-color color))
(draw-rectangle-lines
(number->integer (v-x pos-vec))
(number->integer (v-y pos-vec))
width
height
(use-color color))))
(define (draw-text-2d pos-vec text size tint)
(assert (vec2? pos-vec))
@ -276,4 +282,4 @@
(number->integer (v-y pos-vec))
size
(use-color tint)))
)
)