Paste2 Logo
  1. |
  2. ^reda4.txt
  3. ^gui2.txt
  4. ^font.txt
  5. ^nsprite.txt
  6. ^r4inc/tetris.inc
  7.  
  8. #x1 #y1
  9. #linegro 8
  10.  
  11. #trazo )( 2048
  12. #trazo> 'trazo
  13.  
  14. |----------------------------
  15. :++trazo | u --
  16.         trazo> @ =? ( drop ; )
  17. :+trazo | u --
  18.         trazo> !+ 'trazo> ! ;
  19. :-trazo
  20.         'trazo 'trazo> ! ;
  21.  
  22. :trazo.draw
  23.         linegro dup gg gg
  24.         azul
  25.         'trazo @+ 0? ( 2drop ; ) >xy gop
  26.         ( trazo> <? )( @+ >xy gline ) drop ;
  27.  
  28. |----------------------------
  29. :linedraw
  30.         trazo.draw
  31.         in? 0? ( drop ; ) drop
  32.         down? 1? ( xymouse xy> +trazo drop ; ) drop
  33.         move? 1? ( xymouse xy> ++trazo drop ; ) drop
  34.         up? 1? ( -trazo ) drop
  35.         ;
  36.  
  37. :nlinedraw
  38.         trazo.draw
  39.         [ xymouse xy> +trazo drop ; ] | donw
  40.         [ xymouse xy> ++trazo drop ; ] | move
  41.         [ -trazo ; ] | up
  42.         g.drag ;
  43.  
  44. :botonsalir
  45.         in? 1? ( 1.2 rzoom )
  46.         'dib1 nsprite
  47.         3 wtext blanco
  48.         "Salir" cr printc
  49.         0? ( drop ; ) drop
  50.         up? 1? ( exit ) drop
  51.         ;
  52.  
  53.  
  54. :botonentrar
  55.         ;
  56.  
  57. |               W H  SX SY
  58.  
  59.  
  60. |------------ cursor
  61. #flecha  $A0480121 $FEF7FDF1 $1E7DC413 $34092CA3 $5E9DE9E3 $796D7213 $4A1CCBF3 $72988693 $FEF7FDFA
  62.  $D $9FC2E41 $563488A3 $3C70C9D3 $69216BC3 $5BFD9A03 $3380F1C3 $1F896783 $9FC2E4A
  63.  $FFFFFFD $0
  64.  
  65. :cursor
  66.         xymouse 'yc ! 'xc !
  67.         sw 3 >> bmouse 2 << + dup 'w ! 'h !
  68.         'flecha nsprite ;
  69.  
  70. #guibox
  71. 0.4 0.4 0.0 0.0 'linedraw
  72. 0.1 0.1 -0.45 0.45 'botonsalir
  73. 0.2 0.2 0.4 0.4 'linedraw
  74. 0 | 0 en x no tiene sentido
  75.  
  76. :main
  77.         20 font
  78.         inikey
  79.         'exit >esc<
  80.         [ -trazo ; ] >f1<
  81.         'cursor gcursor!
  82.         'guibox gshow
  83.                 cls
  84.                 24 font verde
  85.                 dup "%d" print
  86.                 0 0 fpos
  87.                 1.0 1.0 fdim
  88.                  ;
  89.  
  90. : 33 main "main.txt" run ;
  91.  
  92.  

:r4 test gui2 code