example.vsh

; Really simple & stupid PICA200 shader
; Also serves as an example of picasso syntax

; Uniforms
.fvec projMtx[4], mdlvMtx[4]

; Constants
.constf myconst(0.0, 1.0, -1.0, 0.0)
.alias zeros myconst.xxxx
.alias ones myconst.yyyy
.alias negones myconst.zzzz
.alias dummytcoord myconst.xxxy ; (0,0,0,1)

; Outputs
.out outpos position
.out outtc0 texcoord0
.out outtc1 texcoord1
.out outtc2 texcoord2
.out outclr color

; Inputs
.alias inpos v0
.alias intex v1
.alias inarg v2

.proc main
	; r0 = (inpos.x, inpos.y, inpos.z, 1.0)
	mov r0.xyz, inpos
	mov r0.w, ones
	
	; r1 = mdlvMtx * r0
	dp4 r1.x, mdlvMtx[0], r0
	dp4 r1.y, mdlvMtx[1], r0
	dp4 r1.z, mdlvMtx[2], r0
	dp4 r1.w, mdlvMtx[3], r0
	
	; outpos = projMtx * r1
	dp4 outpos.x, projMtx[0], r1
	dp4 outpos.y, projMtx[1], r1
	dp4 outpos.z, projMtx[2], r1
	dp4 outpos.w, projMtx[3], r1
	
	; Set texcoords
	mov outtc0, intex
	mov outtc1, dummytcoord
	mov outtc2, dummytcoord
	
	; Set vertex color
	mov outclr.xyz, inarg
	mov outclr.w, ones
	
	end
.end