Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | RSS feed

  1. GEOM
  2. PROPERTY GS_INPUT_PRIMITIVE TRIANGLES
  3. PROPERTY GS_OUTPUT_PRIMITIVE TRIANGLE_STRIP
  4. PROPERTY GS_MAX_OUTPUT_VERTICES 3
  5. DCL IN[][0], POSITION, CONSTANT
  6. DCL IN[][1], COLOR, CONSTANT
  7. DCL OUT[0], POSITION, CONSTANT
  8. DCL OUT[1], COLOR, CONSTANT
  9.  
  10. MOV OUT[0], IN[0][0]
  11. ADD OUT[1], IN[0][1], IN[1][1]
  12. EMIT
  13.  
  14. MOV OUT[0], IN[1][0]
  15. ADD OUT[1], IN[1][1], IN[2][1]
  16. EMIT
  17.  
  18. MOV OUT[0], IN[2][0]
  19. ADD OUT[1], IN[2][1], IN[0][1]
  20. EMIT
  21.  
  22. ENDPRIM
  23.  
  24. END
  25.