akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
mu/graphics.mu

23 lines
881 B
Plaintext
Raw Normal View History

443 - simple graphics primitives http://docs.racket-lang.org/graphics/Mouse_Operations.html Like with the text mode primitives, we still don't have a story for writing white-box tests for code using these.
2014-12-24 07:38:16 +00:00
; open a viewport, print coordinates of mouse clicks
; currently need to ctrl-c to exit after closing the viewport
(function main [
545 - graphics mode is now called bringing up a window
2015-01-12 18:45:08 +00:00
(window-on (("practice" literal)) 300:literal 300:literal)
443 - simple graphics primitives http://docs.racket-lang.org/graphics/Mouse_Operations.html Like with the text mode primitives, we still don't have a story for writing white-box tests for code using these.
2014-12-24 07:38:16 +00:00
{ begin
(pos:integer-integer-pair click?:boolean <- mouse-position)
503 - start of a solution for drawing pieces Dog slow, though. Drawing the sprite for a single piece takes 12s or 30ms/pixel for 400 pixels. A third of that is the actual racket overhead of drawing pixel by pixel, which would in itself be too much. We need bitblts. (Black queen pixels derived from http://www.wpclipart.com/recreation/games/chess/chess_set_1, after scaling down to 40x40 and replacing external white pixels with transparent ones in Gimp.)
2015-01-05 09:21:39 +00:00
(loop-unless click?:boolean)
443 - simple graphics primitives http://docs.racket-lang.org/graphics/Mouse_Operations.html Like with the text mode primitives, we still don't have a story for writing white-box tests for code using these.
2014-12-24 07:38:16 +00:00
(x:integer <- get pos:integer-integer-pair 0:offset)
(y:integer <- get pos:integer-integer-pair 1:offset)
578 - switch to non-polymorphic 'print' functions Also clean up various prints from last few commits. As a convention, for debugging we always print directly to host.
2015-01-18 01:00:44 +00:00
;? (print-primitive-to-host (("AAA " literal)))
;? (print-primitive-to-host x:integer)
;? (print-primitive-to-host ((", " literal)))
;? (print-primitive-to-host y:integer)
;? (print-primitive-to-host (("\n" literal)))
(print-integer nil:literal/terminal x:integer)
574 - printing string literals is a hack; hard-code it in for now
2015-01-17 00:35:08 +00:00
(print-primitive-to-host ((", " literal)))
578 - switch to non-polymorphic 'print' functions Also clean up various prints from last few commits. As a convention, for debugging we always print directly to host.
2015-01-18 01:00:44 +00:00
(print-integer nil:literal/terminal y:integer)
574 - printing string literals is a hack; hard-code it in for now
2015-01-17 00:35:08 +00:00
(print-primitive-to-host (("\n" literal)))
443 - simple graphics primitives http://docs.racket-lang.org/graphics/Mouse_Operations.html Like with the text mode primitives, we still don't have a story for writing white-box tests for code using these.
2014-12-24 07:38:16 +00:00
(loop)
}
545 - graphics mode is now called bringing up a window
2015-01-12 18:45:08 +00:00
(window-off)
443 - simple graphics primitives http://docs.racket-lang.org/graphics/Mouse_Operations.html Like with the text mode primitives, we still don't have a story for writing white-box tests for code using these.
2014-12-24 07:38:16 +00:00
])