/unmaintained/cartesian/cartesian.factor

http://github.com/abeaumont/factor · Factor · 42 lines · 26 code · 12 blank · 4 comment · 0 complexity · 4f66f14099a51ae8849a93211f19a94c MD5 · raw file 

    

  1. USING: kernel combinators sequences opengl.gl
    2. 

  2.        ui.render ui.gadgets ui.gadgets.slate
    3. 

  3.        accessors ;
    4. 

  4. 

  5. IN: ui.gadgets.cartesian
    6. 

  6. 

  7. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    8. 

  8. 

  9. TUPLE: cartesian < slate x-min x-max y-min y-max z-min z-max perspective ;
    10. 

  10. 

  11. : init-cartesian ( cartesian -- cartesian )
    12. 

  12.   init-slate
    13. 

  13.   -10 >>x-min
    14. 

  14.    10 >>x-max
    15. 

  15.   -10 >>y-min
    16. 

  16.    10 >>y-max
    17. 

  17.    -1 >>z-min
    18. 

  18.     1 >>z-max ;
    19. 

  19. 

  20. : <cartesian> ( -- cartesian ) cartesian new init-cartesian ;
    21. 

  21. 

  22. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    23. 

  23. 

  24. M: cartesian establish-coordinate-system ( cartesian -- cartesian )
    25. 

  25.    dup
    26. 

  26.    {
    27. 

  27.      [ x-min>> ] [ x-max>> ]
    28. 

  28.      [ y-min>> ] [ y-max>> ]
    29. 

  29.      [ z-min>> ] [ z-max>> ]
    30. 

  30.    }
    31. 

  31.    cleave
    32. 

  32.    glOrtho ;
    33. 

  33. 

  34. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    35. 

  35. 

  36. : x-range ( cartesian range -- cartesian ) first2 [ >>x-min ] [ >>x-max ] bi* ;
    37. 

  37. : y-range ( cartesian range -- cartesian ) first2 [ >>y-min ] [ >>y-max ] bi* ;
    38. 

  38. : z-range ( cartesian range -- cartesian ) first2 [ >>z-min ] [ >>z-max ] bi* ;
    39. 

  39. 

  40. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    41.