Pokestop
The Pokemon Go App has caused quite a global disturbance since its recent release (date?). Facebook access rate was descresed and more people access Pokemon Go daily than Twitter. People are busy catching Pokemonsters on the roads, at schools and homes, and in the parks. This short video taken at NYC Central Park shows how popular it is. A search on Twitter for Pokemon go can get a quick understanding of this global phenomenon. Are you playing?
I am playing, and I am interested in what implications this game has on education, and particularly to VRMath2. The 3D navigation, geometry and the game design etc. can have values (look at the bright sides) for teaching and learning. I have made a first attempt to create a Pokestop, well in fact 5 Pokestops here as it is easy to repeat in programming once a single pokestop is programmed.
You can click on cubes to go near and switch the spinning tops of Pokestop.
The LOGO program utilised special objects such as RECTORUS, PYRAMID, and DIRLIGHT, each has some properties modified at the time of creation. This is not a well documented feature of VRMath2 LOGO, but you can ask quesitons or comment below this blog to get answers. Below are the LOGO codes.
; Pokestop ; By Andy (2016) TO pokestop :show MAKE "pos POS MAKE "ori ORI SETSCALE 1 1 1 TRANSFORM SET OBJECT "center POS MAKE "parent OBJECT SETPARENT :parent ; stand SETSCALE .5 .05 .5 SETMAT 5 15 UP 0.025 CAN DN 0.025 SETSCALE 0.05 1 0.05 UP 0.5 CAN UP 0.5 SETSCALE 0.8 0.08 0.8 DN 0.04 (PYRAMID {xtop: 0.9, ytop: 0.9}) UP 0.04 UP 1.2 SETMAT 5 17 SETSCALE 1 1 1 TRANSFORM SET OBJECT "center POS MAKE "spintop OBJECT SETPARENT :spintop ; center cylinder SETSCALE 1 1 1 TRANSFORM SET OBJECT "center POS SETPARENT OBJECT SPIN OBJECT "rt 10 SETSCALE .5 .1 .5 RD 90 CAN SETPARENT :spintop ; lower half ring SETSCALE 1 1 1 TRANSFORM SET OBJECT "center POS SETPARENT OBJECT SPIN OBJECT "lt 15 FD .025 SETSCALE .6 .1 .55 (RECTORUS {angle:3.14}) SETPARENT :spintop ; upper half ring SETSCALE 1 1 1 TRANSFORM SET OBJECT "center POS SETPARENT OBJECT SPIN OBJECT "rt 15 SETSCALE .6 .1 .55 RT 180 FD .05 (RECTORUS {angle:3.14}) BK 0.025 SETPARENT :spintop ; outer ring LT 180 RU 90 SETSCALE 1 1 1 TRANSFORM SET OBJECT "center POS SETPARENT OBJECT SPIN OBJECT "lt 10 SETSCALE 1 .1 1 RD 90 (RECTORUS {innerradius:0.8}) ; cubetop SETPARENT :parent SETSCALE .6 .6 .6 SETHEADING :ori RT 45 RU 60 CUBE ; actions and behaviours IFELSE :show [ SET OBJECT "render "false ] [ SET :spintop "render "false ] QUEUE "spintops :spintop QUEUE "cubetops OBJECT ; click on cube goto pokestop GOTO "act :parent CLICK OBJECT "act RMACTION "act ; click on cube toggle spintop (show) TOGGLE "act :spintop "render CLICK OBJECT "act RMACTION "act ; click on cube toggle cube (hide) TOGGLE "act OBJECT "render CLICK OBJECT "act RMACTION "act ; reset turtle and parent SETPARENT "root SETPOS :pos SETHEADING :ori END CS RESET SETBG 0 RD 90 (DIRLIGHT {shadowintensity:0})RU 90 SETSCALE 100 100 1 RU 90 RECTANGLE RD 90 SELECT OBJECT SETIT 1 3 DESELECT MAKE "spintops [] MAKE "cubetops [] HOME pokestop TRUE HOME BK 10 WEST 10 REPEAT 4 [ pokestop FALSE FD 20 RT 90 ] ; click on cube hide other spintops REPEAT COUNT :cubetops [ MAKE "c REPCOUNT MAKE "cube ITEM :c :cubetops REPEAT COUNT :spintops [ IF NOTEQUALP :c REPCOUNT [ MAKE "spin ITEM REPCOUNT :spintops MAKE "box ITEM REPCOUNT :cubetops UPDATE "act :spin "render "false UPDATE "act1 :box "render "true CLICK :cube "act CLICK :cube "act1 RMACTION "act RMACTION "act1 ] ] ] WALK
Leave me a comment below if quesions.
FILES: pokestop_scene.x3d pokestop.logo
- Andy's blog
- Login or register to post comments
- 8303 reads