GEOM
PROPERTY GS_INPUT_PRIMITIVE TRIANGLES
PROPERTY GS_OUTPUT_PRIMITIVE TRIANGLE_STRIP
DCL IN[][0], POSITION, CONSTANT
DCL IN[][1], COLOR, CONSTANT
DCL OUT[0], POSITION, CONSTANT
DCL OUT[1], COLOR, CONSTANT
DCL CONST[1][0..6]
MOV OUT[0], IN[0][0]
MOV OUT[1], CONST[1][0]
EMIT
MOV OUT[0], IN[1][0]
MOV OUT[1], CONST[1][1]
EMIT
MOV OUT[0], IN[2][0]
MOV OUT[1], CONST[1][4]
EMIT
ENDPRIM
END