Mercurial > games > semicongine
annotate examples/E04_input.nim @ 1198:96a094cd0c78 compiletime-tests
sync to notebook in bedroom
author | sam <sam@basx.dev> |
---|---|
date | Sat, 13 Jul 2024 19:26:03 +0700 |
parents | 5934c5615f13 |
children |
rev | line source |
---|---|
527 | 1 import std/enumerate |
797
812b5e28f441
did: update examples to work with improved scenegraph/material api, notice removed complexity!
Sam <sam@basx.dev>
parents:
777
diff
changeset
|
2 import std/tables |
525 | 3 import std/typetraits |
4 import std/math | |
522
f2c97bdbb0b3
did: rename and update older demos to work with new APIs
Sam <sam@basx.dev>
parents:
diff
changeset
|
5 |
1027 | 6 import ../semicongine |
522
f2c97bdbb0b3
did: rename and update older demos to work with new APIs
Sam <sam@basx.dev>
parents:
diff
changeset
|
7 |
525 | 8 const |
9 arrow = @[ | |
1136 | 10 NewVec3f(-1, -1), |
11 NewVec3f(1, -1), | |
12 NewVec3f(-0.3, -0.3), | |
13 NewVec3f(-0.3, -0.3), | |
14 NewVec3f(-1, 1), | |
15 NewVec3f(-1, -1), | |
525 | 16 ] |
527 | 17 # keyboard layout, specifying rows with key widths, negative numbers are empty spaces |
525 | 18 keyrows = ( |
604 | 19 [1.0, -0.6, 1.0, 1.0, 1.0, 1.0, -0.5, 1.0, 1.0, 1.0, 1.0, -0.5, 1.0, 1.0, 1.0, 1.0, -0.1, 1.0, 1.0, 1.0], |
20 [1.2, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.8, -0.1, 1.0, 1.0, 1.0], | |
21 [1.8, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, -1.5, 1.0, 1.0, 1.0], | |
527 | 22 [2.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0], |
23 [2.6, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 2.8, -1.3, 1.0], | |
24 [1.5, 1.5, 1.5, 6, 1.5, 1.5, -1.2, 1.5, -0.1, 1.0, 1.0, 1.0], | |
525 | 25 ) |
527 | 26 keyDimension = 50'f32 |
525 | 27 keyGap = 10'f32 |
1136 | 28 backgroundColor = NewVec4f(0.6705882352941176, 0.6078431372549019, 0.5882352941176471, 1) |
29 baseColor = NewVec4f(0.9411764705882353, 0.9058823529411765, 0.8470588235294118, 1) | |
30 activeColor = NewVec4f(0.6509803921568628, 0.22745098039215686, 0.3137254901960784, 1) | |
530 | 31 arrow_colors = @[ |
32 baseColor * 0.9'f32, | |
33 baseColor * 0.9'f32, | |
34 baseColor * 0.9'f32, | |
35 baseColor * 0.8'f32, | |
36 baseColor * 0.8'f32, | |
37 baseColor * 0.8'f32, | |
38 ] | |
527 | 39 keyIndices = [ |
40 Escape, F1, F2, F3, F4, F5, F6, F7, F8, F9, F10, F11, F12, PrintScreen, | |
41 ScrollLock, Pause, | |
42 | |
43 NumberRowExtra1, `1`, `2`, `3`, `4`, `5`, `6`, `7`, `8`, `9`, `0`, | |
44 | |
45 NumberRowExtra2, NumberRowExtra3, Backspace, Insert, Home, PageUp, | |
46 Tab, Q, W, Key.E, R, T, Key.Y, U, I, O, P, LetterRow1Extra1, | |
47 LetterRow1Extra2, Delete, End, PageDown, | |
48 | |
49 CapsLock, A, S, D, F, G, H, J, K, L, LetterRow2Extra1, LetterRow2Extra2, | |
50 LetterRow2Extra3, Enter, | |
51 | |
52 ShiftL, Key.Z, Key.X, C, V, B, N, M, LetterRow3Extra1, LetterRow3Extra2, | |
53 LetterRow3Extra3, ShiftR, Up, | |
54 | |
55 CtrlL, SuperL, AltL, Space, AltR, SuperR, CtrlR, Left, Down, Right | |
56 ] | |
522
f2c97bdbb0b3
did: rename and update older demos to work with new APIs
Sam <sam@basx.dev>
parents:
diff
changeset
|
57 |
606
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
58 # build keyboard and cursor meshes |
522
f2c97bdbb0b3
did: rename and update older demos to work with new APIs
Sam <sam@basx.dev>
parents:
diff
changeset
|
59 var |
664
c33c8e156e3e
did: update examples to use new API for scene + scene globals
Sam <sam@basx.dev>
parents:
624
diff
changeset
|
60 scene: Scene |
604 | 61 keyvertexpos: seq[Vec3f] |
671 | 62 keyvertexcolor: seq[Vec4f] |
527 | 63 keymeshindices: seq[array[3, uint16]] |
1136 | 64 rowpos = NewVec2f(0, 0) |
525 | 65 i = 0'u16 |
527 | 66 firstRow = true |
67 rowWidth = 0'f32 | |
525 | 68 for row in keyrows.fields: |
69 for key in row: | |
527 | 70 let keySpace = float32(keyDimension * key) |
71 if key > 0: | |
72 if keyIndices[i div 4] == Enter: | |
1136 | 73 keyvertexpos.add NewVec3f(rowpos[0], rowpos[1] - keyDimension - keyGap) |
74 keyvertexpos.add NewVec3f(rowpos[0] + keySpace, rowpos[1] - keyDimension - keyGap) | |
527 | 75 else: |
1136 | 76 keyvertexpos.add NewVec3f(rowpos[0], rowpos[1]) |
77 keyvertexpos.add NewVec3f(rowpos[0] + keySpace, rowpos[1]) | |
78 keyvertexpos.add NewVec3f(rowpos[0] + keySpace, rowpos[1] + keyDimension) | |
79 keyvertexpos.add NewVec3f(rowpos[0], rowpos[1] + keyDimension) | |
527 | 80 keyvertexcolor.add [baseColor, baseColor, baseColor, baseColor] |
81 keymeshindices.add [i, i + 1, i + 2] | |
82 keymeshindices.add [i + 2, i + 3, i] | |
83 rowpos[0] += keySpace + keyGap | |
84 i += 4 | |
85 else: | |
86 rowpos[0] += -keySpace + keyGap | |
87 if firstRow: | |
88 rowWidth = rowpos[0] | |
525 | 89 rowpos[0] = 0 |
527 | 90 rowpos[1] += keyDimension + keyGap * (if firstRow: 2'f32 else: 1'f32) |
91 firstRow = false | |
522
f2c97bdbb0b3
did: rename and update older demos to work with new APIs
Sam <sam@basx.dev>
parents:
diff
changeset
|
92 |
f2c97bdbb0b3
did: rename and update older demos to work with new APIs
Sam <sam@basx.dev>
parents:
diff
changeset
|
93 |
f2c97bdbb0b3
did: rename and update older demos to work with new APIs
Sam <sam@basx.dev>
parents:
diff
changeset
|
94 when isMainModule: |
1140
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
95 var myengine = InitEngine("Input") |
522
f2c97bdbb0b3
did: rename and update older demos to work with new APIs
Sam <sam@basx.dev>
parents:
diff
changeset
|
96 |
f2c97bdbb0b3
did: rename and update older demos to work with new APIs
Sam <sam@basx.dev>
parents:
diff
changeset
|
97 # transform the cursor a bit to make it look nice |
525 | 98 let cursorscale = ( |
1140
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
99 Scale2d(20'f32, 20'f32) * |
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
100 Translate2d(1'f32, 1'f32) * |
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
101 Rotate2d(-float32(PI) / 4'f32) * |
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
102 Scale2d(0.5'f32, 1'f32) * |
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
103 Rotate2d(float32(PI) / 4'f32) |
525 | 104 ) |
604 | 105 var positions = arrow |
106 for i in 0 ..< positions.len: | |
1136 | 107 positions[i] = cursorscale * NewVec3f(positions[i].x, positions[i].y) |
522
f2c97bdbb0b3
did: rename and update older demos to work with new APIs
Sam <sam@basx.dev>
parents:
diff
changeset
|
108 |
606
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
109 # define mesh objects |
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
110 var |
1027 | 111 matDef = MaterialType(name: "default", vertexAttributes: { |
112 "position": Vec3F32, | |
113 "color": Vec4F32, | |
114 }.toTable) | |
1140
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
115 cursormesh = NewMesh( |
1027 | 116 positions = positions, |
117 colors = arrow_colors, | |
1139
114f395b9144
did: finish refactoring and updated all tests accordingly
sam <sam@basx.dev>
parents:
1136
diff
changeset
|
118 material = matDef.InitMaterialData(), |
606
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
119 ) |
1140
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
120 keyboardmesh = NewMesh( |
1027 | 121 positions = keyvertexpos, |
122 colors = keyvertexcolor, | |
123 indices = keymeshindices, | |
1139
114f395b9144
did: finish refactoring and updated all tests accordingly
sam <sam@basx.dev>
parents:
1136
diff
changeset
|
124 material = matDef.InitMaterialData(), |
606
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
125 ) |
1140
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
126 backgroundmesh = NewMesh( |
1027 | 127 positions = @[ |
1136 | 128 NewVec3f(0'f32, 0'f32), |
129 NewVec3f(1'f32, 0'f32), | |
130 NewVec3f(1'f32, 1'f32), | |
131 NewVec3f(0'f32, 1'f32), | |
606
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
132 ], |
1027 | 133 colors = @[ |
606
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
134 backgroundColor, |
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
135 backgroundColor, |
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
136 backgroundColor, |
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
137 backgroundColor, |
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
138 ], |
1027 | 139 indices = @[[0'u16, 1'u16, 2'u16], [2'u16, 3'u16, 0'u16]], |
1139
114f395b9144
did: finish refactoring and updated all tests accordingly
sam <sam@basx.dev>
parents:
1136
diff
changeset
|
140 material = matDef.InitMaterialData(), |
606
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
141 ) |
522
f2c97bdbb0b3
did: rename and update older demos to work with new APIs
Sam <sam@basx.dev>
parents:
diff
changeset
|
142 |
606
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
143 # define mesh objects |
1140
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
144 var keyboard_center = Translate( |
604 | 145 -float32(rowWidth) / 2'f32, |
146 -float32(tupleLen(keyRows) * (keyDimension + keyGap) - keyGap) / 2'f32, | |
147 0'f32 | |
148 ) | |
797
812b5e28f441
did: update examples to work with improved scenegraph/material api, notice removed complexity!
Sam <sam@basx.dev>
parents:
777
diff
changeset
|
149 scene = Scene(name: "scene", meshes: @[backgroundmesh, keyboardmesh, cursormesh]) |
522
f2c97bdbb0b3
did: rename and update older demos to work with new APIs
Sam <sam@basx.dev>
parents:
diff
changeset
|
150 |
606
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
151 # shaders |
604 | 152 const |
1140
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
153 shaderConfiguration = CreateShaderConfiguration( |
1027 | 154 name = "default shader", |
155 inputs = [ | |
1140
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
156 Attr[Vec3f]("position"), |
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
157 Attr[Vec4f]("color", memoryPerformanceHint = PreferFastWrite), |
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
158 Attr[Mat4]("transform", memoryPerformanceHint = PreferFastWrite, perInstance = true), |
797
812b5e28f441
did: update examples to work with improved scenegraph/material api, notice removed complexity!
Sam <sam@basx.dev>
parents:
777
diff
changeset
|
159 ], |
1140
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
160 intermediates = [Attr[Vec4f]("outcolor")], |
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
161 uniforms = [Attr[Mat4]("projection")], |
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
162 outputs = [Attr[Vec4f]("color")], |
1027 | 163 vertexCode = """outcolor = color; gl_Position = vec4(position, 1) * (transform * Uniforms.projection);""", |
164 fragmentCode = "color = outcolor;", | |
604 | 165 ) |
606
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
166 |
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
167 # set up rendering |
1140
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
168 myengine.InitRenderer({matDef: shaderConfiguration}) |
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
169 scene.AddShaderGlobal("projection", Unit4f32) |
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
170 myengine.LoadScene(scene) |
1027 | 171 myengine.HideSystemCursor() |
606
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
172 |
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
173 # mainloop |
1027 | 174 while myengine.UpdateInputs(): |
175 if WindowWasResized(): | |
1140
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
176 scene.SetShaderGlobal("projection", |
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
177 Ortho( |
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
178 0, float32(myengine.GetWindow().Size[0]), |
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
179 0, float32(myengine.GetWindow().Size[1]), |
708 | 180 0, 1, |
664
c33c8e156e3e
did: update examples to use new API for scene + scene globals
Sam <sam@basx.dev>
parents:
624
diff
changeset
|
181 ) |
c33c8e156e3e
did: update examples to use new API for scene + scene globals
Sam <sam@basx.dev>
parents:
624
diff
changeset
|
182 ) |
606
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
183 let |
1140
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
184 winsize = myengine.GetWindow().Size |
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
185 center = Translate(float32(winsize[0]) / 2'f32, float32(winsize[1]) / 2'f32, 0.1'f32) |
797
812b5e28f441
did: update examples to work with improved scenegraph/material api, notice removed complexity!
Sam <sam@basx.dev>
parents:
777
diff
changeset
|
186 keyboardmesh.transform = keyboard_center * center |
1140
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
187 backgroundmesh.transform = Scale(float32(winsize[0]), float32(winsize[1]), 1'f32) |
606
f41c1b78cf5b
add: upgrade all simple examples to new engine version
Sam <sam@basx.dev>
parents:
604
diff
changeset
|
188 |
1140
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
189 let mousePos = Translate(MousePosition().x + 20, MousePosition().y + 20, 0'f32) |
797
812b5e28f441
did: update examples to work with improved scenegraph/material api, notice removed complexity!
Sam <sam@basx.dev>
parents:
777
diff
changeset
|
190 cursormesh.transform = mousePos |
604 | 191 |
192 for (index, key) in enumerate(keyIndices): | |
1027 | 193 if KeyWasPressed(key): |
797
812b5e28f441
did: update examples to work with improved scenegraph/material api, notice removed complexity!
Sam <sam@basx.dev>
parents:
777
diff
changeset
|
194 let baseIndex = index * 4 |
800
668eed376029
add: nice mesh API, fix: copying of whole scenedata all the time
Sam <sam@basx.dev>
parents:
797
diff
changeset
|
195 keyboardmesh["color", baseIndex + 0] = activeColor |
668eed376029
add: nice mesh API, fix: copying of whole scenedata all the time
Sam <sam@basx.dev>
parents:
797
diff
changeset
|
196 keyboardmesh["color", baseIndex + 1] = activeColor |
668eed376029
add: nice mesh API, fix: copying of whole scenedata all the time
Sam <sam@basx.dev>
parents:
797
diff
changeset
|
197 keyboardmesh["color", baseIndex + 2] = activeColor |
668eed376029
add: nice mesh API, fix: copying of whole scenedata all the time
Sam <sam@basx.dev>
parents:
797
diff
changeset
|
198 keyboardmesh["color", baseIndex + 3] = activeColor |
1027 | 199 if KeyWasReleased(key): |
797
812b5e28f441
did: update examples to work with improved scenegraph/material api, notice removed complexity!
Sam <sam@basx.dev>
parents:
777
diff
changeset
|
200 let baseIndex = index * 4 |
800
668eed376029
add: nice mesh API, fix: copying of whole scenedata all the time
Sam <sam@basx.dev>
parents:
797
diff
changeset
|
201 keyboardmesh["color", baseIndex + 0] = baseColor |
668eed376029
add: nice mesh API, fix: copying of whole scenedata all the time
Sam <sam@basx.dev>
parents:
797
diff
changeset
|
202 keyboardmesh["color", baseIndex + 1] = baseColor |
668eed376029
add: nice mesh API, fix: copying of whole scenedata all the time
Sam <sam@basx.dev>
parents:
797
diff
changeset
|
203 keyboardmesh["color", baseIndex + 2] = baseColor |
668eed376029
add: nice mesh API, fix: copying of whole scenedata all the time
Sam <sam@basx.dev>
parents:
797
diff
changeset
|
204 keyboardmesh["color", baseIndex + 3] = baseColor |
604 | 205 |
1140
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
206 myengine.RenderScene(scene) |
604 | 207 |
1140
5934c5615f13
did: update all examples to work with latest refactoring
sam <sam@basx.dev>
parents:
1139
diff
changeset
|
208 myengine.Destroy() |