about summary refs log tree commit diff stats
path: root/linux/hex.subx
diff options
context:
space:
mode:
Diffstat (limited to 'linux/hex.subx')
0 files changed, 0 insertions, 0 deletions
 

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2025-05-03 23:33:53 +0000


 


 Agaram <vc@akkartik.com>  2015-01-05 23:28:02 -0800

503 - start of a solution for drawing pieces' href='/akkartik/mu/commit/graphics.mu?h=main&id=364c4d04325aa42d47675ba40f834e4cb8b3feaf'>364c4d04 ^

ef55a414 ^


7d2c2d55 ^





4b62edd8 ^

7d2c2d55 ^


4b62edd8 ^

7d2c2d55 ^

ef55a414 ^


02244ae2 ^

ef55a414 ^



1
2
3

4

5
6

7

8
9

10
11
12
13
14

15

16
17

18

19

20
21

22

23





                                                             
                                                            

                                                               
                                

                                                        




                                  
                                                  

                                                              
                                                  
                                                                

          
              
  
; open a viewport, print coordinates of mouse clicks
; currently need to ctrl-c to exit after closing the viewport
(function main [
  (window-on (("practice" literal)) 300:literal 300:literal)
  { begin
    (pos:integer-integer-pair click?:boolean <- mouse-position)
    (loop-unless click?:boolean)
    (x:integer <- get pos:integer-integer-pair 0:offset)
    (y:integer <- get pos:integer-integer-pair 1:offset)
;?     ($print (("AAA " literal)))
;?     ($print x:integer)
;?     ($print ((", " literal)))
;?     ($print y:integer)
;?     ($print (("\n" literal)))
    (print-integer nil:literal/terminal x:integer)
    (print-character nil:literal/terminal ((#\, literal)))
    (print-character nil:literal/terminal ((#\space literal)))
    (print-integer nil:literal/terminal y:integer)
    (print-character nil:literal/terminal ((#\newline literal)))
    (loop)
  }
  (window-off)
])