Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.

36 lignes
869 B

  1. {$STATIC BaseVec 'vec2(0.0)'}
  2. {$CLASS Base1}
  3. {$FUNC 'vec2' 'TestProc' 'vec2' 'aVec'}
  4. vec2 tmp = aVec;
  5. tmp += vec2(1.0);
  6. return tmp;
  7. {$END}
  8. {$END}
  9. {$CLASS Base2}
  10. {$FUNC 'vec2' 'TestProc' 'vec2' 'aVec'}
  11. return aVec + vec2(1.0);
  12. {$END}
  13. {$END}
  14. {$CLASS SimpleClass $EXTENDS Base1 Base2}
  15. {$UNIFORM 'sampler2D' 'uTexture0'}
  16. {$UNIFORM 'sampler2D' 'uTexture1'}
  17. {$UNIFORM 'vec4' 'uColor'}
  18. {$FUNC 'vec2' 'TestProc' 'vec2' 'aVec'}
  19. vec2 v = aVec;
  20. v = {$INHERITED Base1 TestProc BaseVec $INLINE};
  21. v = {$INHERITED Base2 'v'};
  22. return v;
  23. {$END}
  24. {$MAIN}
  25. vec2 texCoord = {$CALL TestProc 'gl_TexCoord[0]'};
  26. gl_FragColor =
  27. texture2D(uTexture0, texCoord) *
  28. texture2D(uTexture1, texCoord) *
  29. uColor;
  30. {$END}
  31. {$END}