APT.all-test.Mummy.mummy-draw-num.soar Maven / Gradle / Ivy

Go to download
sp {canvas*init
   (state  ^name game -^duplicate-of)
-->
   (exec set_scale | 0 20 0 20 |)}

sp {canvas*draw_wall_north
   (state  ^gs.wall  -^duplicate-of)
   ( ^p1  ^p2  ^p3 north)
   ( ^value )
   ( ^value )
-->
   (exec draw_line | static | (*  2) | | (- 20 (* (+  1) 2)) | |
(* (+  1) 2) | | (- 20 (* (+  1) 2)) | black|)}

sp {canvas*draw_wall_east
   (state  ^gs.wall  -^duplicate-of)
   ( ^p1  ^p2  ^p3 east) 
   ( ^value )
   ( ^value )

-->
   (exec draw_line | static | (* (+  1) 2) | | (- 20 (* 2 )) | |
(* (+  1) 2) | | (- 20 (* (+  1) 2)) | black|)}

sp {canvas*draw_explorergreen
   (state  ^gs.location )
   ( ^p1 explorer ^p2  ^p3 )
   ( ^value )
   ( ^value )
-->
   (exec draw_point | update 2 | (+ (*  2) 1) | | (- 20 (+ (*  2) 1)) | green|)}

sp {canvas*draw_explorer
   (state  ^superstate nil ^gs.location )
   ( ^p1 explorer ^p2  ^p3 )
   ( ^value )
   ( ^value )

-->
   (exec draw_point | static | (+ (*  2) 1) | | (- 20 (+ (*  2) 1)) | blue|)}

sp {canvas*draw_mummy
   (state  ^gs.location )
   ( ^p1 mummy ^p2  ^p3 )
   ( ^value )
   ( ^value )
-->
   (exec draw_point | update 1 | (+ (*  2) 1) | | (- 20 (+ (*  2) 1)) | red |) 
}

sp {canvas*draw_exit
   (state  ^gs.location )
   ( ^p1 exit ^p2  ^p3 )
   ( ^value )
   ( ^value )

-->
   (exec draw_rectangle | static | (*  2) | | (- 20 (* (+  1) 2))
| | (* (+  1) 2) | | (- 20 (*  2)) | blue |)}

#   (exec draw_circle | update 3 | (+ (*  2) 1) | | (- 20 (+ (*  2) 1))  1 | red |)