nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gel.demo: Use 'gel_sdl'.

Browse Source
This commit is contained in:
Rod Kay
2023-11-03 18:02:10 +11:00
parent 0b4d19522b
commit 2f6670a24c
34 changed files with 217 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
4-high/gel/applet/demo/distributed/dsa/builder
View File

@@ -6,17 +6,24 @@ set -e
## Clean
#
rm -fr ./dsa
gprclean -r -P ../gel_demo.gpr -Xrestrictions=xgc -Xopengl_platform=glx -Xopengl_profile=lean
gprclean -r -P ../gel_demo.gpr -Xrestrictions=xgc -Xopengl_platform=egl -Xopengl_profile=lean
#########
## Build
#
mkdir --parents dsa/x86_64-unknown-linux-gnu/obj
cp /usr/lib/gcc/x86_64-pc-linux-gnu/13.2.1/adalib/a-sttebu.ali \
dsa/x86_64-unknown-linux-gnu/obj
set +e
po_gnatdist -Xrestrictions=xgc -Xopengl_platform=glx -Xopengl_profile=lean -P demo_dsa.gpr simple_dsa.cfg
po_gnatdist -Xrestrictions=xgc -Xopengl_platform=egl -Xopengl_profile=lean -P demo_dsa.gpr simple_dsa.cfg
set -e
echo __________________________________________________ PHASE 2 _____________________________________________
cp dsa/x86_64-unknown-linux-gnu/obj/*.o dsa/x86_64-unknown-linux-gnu/partitions/simple_dsa/server_partition
cp dsa/x86_64-unknown-linux-gnu/obj/*.o dsa/x86_64-unknown-linux-gnu/partitions/simple_dsa/client_partition
po_gnatdist -Xrestrictions=xgc -Xopengl_platform=glx -Xopengl_profile=lean -P demo_dsa.gpr simple_dsa.cfg
po_gnatdist -Xrestrictions=xgc -Xopengl_platform=egl -Xopengl_profile=lean -P demo_dsa.gpr simple_dsa.cfg

2
4-high/gel/applet/demo/distributed/fused/gel_fused.gpr
View File

@@ -1,8 +1,8 @@
with
"gel",
"../gel_demo",
"lace_shared";
project GEL_fused
is
for Source_Dirs use (".");

2
4-high/gel/applet/demo/distributed/gel_demo.gpr
View File

@@ -1,5 +1,5 @@
with
"gel",
"gel_sdl",
"lace_shared";
project gel_Demo

15
4-high/gel/applet/demo/distributed/gel_demo_client.adb
View File

@@ -3,10 +3,12 @@ with
gel_demo_Server,
gel.Applet.client_World,
gel.Window.setup,
gel.Forge,
gel.Camera,
openGL.Light,
ada.Calendar,
ada.Text_IO,
ada.Exceptions;
@@ -40,6 +42,17 @@ is
the_Applet.client_Camera.Site_is ([0.0, 0.0, 20.0]);
the_Applet.enable_simple_Dolly (1);
-- Set the lights position.
--
declare
Light : openGL.Light.item := the_Applet.Renderer.new_Light;
begin
Light.Site_is ([0.0, -1000.0, 0.0]);
the_Applet.Renderer.set (Light);
end;
next_render_Time := ada.Calendar.clock;
-- Begin processing.