openGL テッセレーション使用時のglVertexAttribPointer,glDrawArraysの指定方法

Question

説明を簡単にするために、ベジエ曲線のテッセレーションで説明します。
ベジエ曲線　１本当たりの座標は始点、制御点、終点で３点が必要になります。
また、１本毎にvec4形式で線色を指定するものとします。

１本当たりのCPUからGPUへの転送データーは
vec3形式の座標が３点で３×３×４（Float型のため）＝３６バイト
vec4形式の線色情報で４×４＝１６バイト
ストライドは３６＋１６＝５２バイトです。

'openGLの制御部　openTK使用　vaoは省略
’po As Single()　に上記の転送データーが２本分、５２×２＝１０４バイト入っています。

Dim vbo As Integer
GL.GenBuffers(1, vbo)
GL.BindBuffer(BufferTarget.ArrayBuffer, vbo)
GL.BufferData(BufferTarget.ArrayBuffer, po.Length * 4, po, BufferUsageHint.StaticDraw) '4はsingle型のバイト数

GL.VertexAttribPointer(AttribLocation_頂点, 3, VertexAttribPointerType.Float, False, 52, 0)
GL.EnableVertexAttribArray(AttribLocation_頂点)

'36は線色情報のオフセット
GL.VertexAttribPointer(AttribLocation_color, 4, VertexAttribPointerType.Float, False, 52, 36)　
GL.EnableVertexAttribArray(AttribLocation_color)

'↓これで、poに格納された頂点情報から２本をバッチ描画する
GL.DrawArrays(PrimitiveType.Patches, 0, 3*2) '3は頂点の数　始点、制御点、終点　この２本分

ここで分からないのが、
データーが１本分（５２バイト）ならば正常に動作しますが、１０４バイトの様に複数入れると２本目以降を描画しないのです。
仕方無く、
GL.DrawArrays(PrimitiveType.Patches, 0, 32)　’３＊２と記述していますが32と誤表示されます
GL.DrawArrays(PrimitiveType.Patches, 1, 32)　’３＊２と記述していますが32と誤表示されます
と記述していますが、２本目からは線色は正常ですが、始点、制御点、終点がズレます。

知りたいこと
GL.VertexAttribPointer(AttribLocation_頂点, 3, VertexAttribPointerType.Float, False, 52, 0)
GL.VertexAttribPointer(AttribLocation_color, 4, VertexAttribPointerType.Float, False, 52, 36)
この様に記述しましたが、数値パラメーターはこれでどこが誤りですか？

GL.DrawArrays(PrimitiveType.Patches, 0, 3*2)
これも誤りですか？

自分では、どこに誤りがあるか全く分からなくなってきました。上の質問について御教授をお願い致します。

Comments

[cure_fontaine]

GL.DrawArrays(PrimitiveType.Patches, 0, 32) とありますが、３２は３＊２です。「3*2」と投稿していますが表示が変わっています。

Answer 1

自己解決　（まだ改善の余地があるかも知れないが）
頂点シェーダーでは、頂点とそれに関連するアトリビュートは常にまとめて記述しなければならないことが確認できました。（頂点が３点あったとして、最初の１点にだけアトリビュートをつけることはできない）

頂点シェーダー
s1 = "#version 400 core" & vbCrLf
s1 &= "in vec3 position;" & vbCrLf　’これは必須だが
s1 &= "in vec4 color;" & vbCrLf　’省略できない。不要であってもダミーで読み込む必要がある
s1 &= "out vec4 vertex_color1;" & vbCrLf

s1 &= "void main(void) {" & vbCrLf
s1 &= "gl_Position = vec4(position, 1.0);" & vbCrLf
s1 &= "vertex_color1 = color;" & vbCrLf

s1 &= "}" & vbCrLf

プログラム　vaoは省略　
po1()に以下の転送用データーを格納する　これが曲線パッチ１本当たりの描画用データー
始点　　３×４＝１２バイト　’4はsingle型のバイト数
線色　　４×４＝１６バイト　’vec4のため４　4はsingle型のバイト数　ここの設定のみ有効となる
制御点　３×４＝１２バイト　’4はsingle型のバイト数
線色　　４×４＝１６バイト　’vec4のため４　4はsingle型のバイト数　ダミーである
終点　　３×４＝１２バイト　’4はsingle型のバイト数
線色　　４×４＝１６バイト　’vec4のため４　4はsingle型のバイト数　ダミーである

計　８４バイト
po1.Length：曲線パッチ１本当たり　（３＋４）＊３＝２１要素

'頂点バッファーオブジェクト
Dim vbo1 As Integer
GL.GenBuffers(1, vbo1)
GL.BindBuffer(BufferTarget.ArrayBuffer, vbo1)
GL.BufferData(BufferTarget.ArrayBuffer, po1.Length * 4, po1, BufferUsageHint.StaticDraw) '4はsingle型のバイト数

’28とは、頂点当たりのストライド　（３＋４）×４　バイトという意味である
GL.VertexAttribPointer(AttribLocation_頂点, 3, VertexAttribPointerType.Float, False, 28, 0) '3はvec3(x,y,z) のため
GL.EnableVertexAttribArray(AttribLocation_頂点)

'color rgba
’12とは、vec3分のオフセット　３×４　バイトという意味である
GL.VertexAttribPointer(AttribLocation_color, 4, VertexAttribPointerType.Float, False, 28, 12) '4はrgba のため
GL.EnableVertexAttribArray(AttribLocation_color)

' GL.PatchParameter(PatchParameterInt.PatchVertices, 3) 'これを入れても変わらない
GL.LineWidth(wd)
'↓これで、poに格納された頂点情報からバッチ描画する
’テッセレーションの頂点数が３のため３倍している
GL.DrawArrays(PrimitiveType.Patches, 0, (po1.Length / 21) * 3)

＊　これによって、GL.DrawArrays(PrimitiveType.Patches, 0, (po1.Length / 21) * 3)　の記述で複数分の曲線パッチをバッチ描画できる。
転送データーで線色が８バイト分ダミーとなる欠点があるが、曲線パッチを１本ずつ異なる線色で描画する場合、uniform変数によって線色を指定するよりも遥かに高速化される！