/unmaintained/4DNav/window3D/window3D.factor

http://github.com/abeaumont/factor · Factor · 82 lines · 64 code · 11 blank · 7 comment · 3 complexity · 830a03be2ae2d7e4e5f48987a3a38108 MD5 · raw file 

    

  1. ! Copyright (C) 2008 Jeff Bigot

    2. 

  2. ! See http://factorcode.org/license.txt for BSD license.

    3. 

  3. USING: kernel 

    4. 

  4. ui.gadgets

    5. 

  5. ui.render

    6. 

  6. opengl

    7. 

  7. opengl.gl

    8. 

  8. opengl.glu

    9. 

  9. 4DNav.camera

    10. 

  10. 4DNav.turtle

    11. 

  11. math

    12. 

  12. values

    13. 

  13. alien.c-types

    14. 

  14. accessors

    15. 

  15. namespaces

    16. 

  16. adsoda 

    17. 

  17. models

    18. 

  18. prettyprint

    19. 

  19. ;

    20. 

  20. 

    21. 

  21. IN: 4DNav.window3D

    22. 

  22. 

    23. 

  23. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    24. 

  24. ! drawing functions 

    25. 

  25. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    26. 

  26. 

    27. 

  27. TUPLE: window3D  < gadget observer ; 

    28. 

  28. 

    29. 

  29. : <window3D>  ( model observer -- gadget )

    30. 

  30.     window3D  new

    31. 

  31.     swap 2dup 

    32. 

  32.     projection-mode>> add-connection

    33. 

  33.     2dup 

    34. 

  34.     collision-mode>> add-connection

    35. 

  35.     >>observer 

    36. 

  36.     swap <model> >>model 

    37. 

  37.     t >>root?

    38. 

  38. ;

    39. 

  39. 

    40. 

  40. M: window3D pref-dim* ( gadget -- dim )  drop { 300 300 } ;

    41. 

  41. 

    42. 

  42. M: window3D draw-gadget* ( gadget -- )

    43. 

  43. 

    44. 

  44.     GL_PROJECTION glMatrixMode

    45. 

  45.         glLoadIdentity

    46. 

  46.         0.6 0.6 0.6 .9 glClearColor

    47. 

  47.         dup observer>> projection-mode>> value>> 1 =    

    48. 

  48.         [ 60.0 1.0 0.1 3000.0 gluPerspective ]

    49. 

  49.         [ -400.0 400.0 -400.0 400.0 0.0 4000.0 glOrtho ] if

    50. 

  50.         dup observer>> collision-mode>> value>> 

    51. 

  51.         \ remove-hidden-solids?   

    52. 

  52.         set-value

    53. 

  53.         dup  observer>> do-look-at

    54. 

  54.         GL_MODELVIEW glMatrixMode

    55. 

  55.             glLoadIdentity  

    56. 

  56.             0.9 0.9 0.9 1.0 glClearColor

    57. 

  57.             1.0 glClearDepth

    58. 

  58.             GL_LINE_SMOOTH glEnable

    59. 

  59.             GL_BLEND glEnable

    60. 

  60.             GL_DEPTH_TEST glEnable       

    61. 

  61.             GL_LEQUAL glDepthFunc

    62. 

  62.             GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA glBlendFunc

    63. 

  63.             GL_LINE_SMOOTH_HINT GL_NICEST glHint

    64. 

  64.             1.25 glLineWidth

    65. 

  65.             GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT bitor 

    66. 

  66.                 glClear

    67. 

  67.             glLoadIdentity

    68. 

  68.             GL_LIGHTING glEnable

    69. 

  69.             GL_LIGHT0 glEnable

    70. 

  70.             GL_COLOR_MATERIAL glEnable

    71. 

  71.             GL_FRONT GL_AMBIENT_AND_DIFFUSE glColorMaterial

    72. 

  72.             ! *************************

    73. 

  73.             

    74. 

  74.             model>> value>> 

    75. 

  75.             [ space->GL ] when*

    76. 

  76. 

    77. 

  77.             ! *************************

    78. 

  78. ;

    79. 

  79. 

    80. 

  80. M: window3D graft* drop ;

    81. 

  81. 

    82. 

  82. M: window3D model-changed nip relayout ;
    83.