From 1b2b7c3eb939724696894f31ff27db97b0cac84c Mon Sep 17 00:00:00 2001 From: Andreas Widen Date: Sat, 25 Nov 2023 17:21:37 +0100 Subject: Initial commit. Signed-off-by: Andreas Widen --- apps/media/data.scm | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 59 insertions(+) create mode 100644 apps/media/data.scm (limited to 'apps/media/data.scm') diff --git a/apps/media/data.scm b/apps/media/data.scm new file mode 100644 index 0000000..9f54a43 --- /dev/null +++ b/apps/media/data.scm @@ -0,0 +1,59 @@ +;;; Harmonic Flow web site + +(define-module (apps media data) + #:use-module (apps base utils) + #:use-module (apps i18n) + #:use-module (apps media types) + #:use-module (srfi srfi-19) + #:export (screenshots)) + + +;;; +;;; Data. +;;; + + +(define screenshots + (list + (screenshot + #:title (C_ "screenshot title" "HFGE example: Basic 2D") + #:slug "hfge-screenshot-basic2d" + #:image (hfweb-url "static/media/img/hfge_screenshot_big_1.png") + #:preview (hfweb-url "static/media/img/hfge_screenshot_min_1.png") + #:caption (G_ "HFGE example: Basic 2D")) + + (screenshot + #:title (C_ "screenshot title" "HFGE example: Basic 3D (minimal convex hull in green)") + #:slug "hfge-screenshot-basic3d" + #:image (hfweb-url "static/media/img/hfge_screenshot_big_2.png") + #:preview (hfweb-url "static/media/img/hfge_screenshot_min_2.png") + #:caption (G_ "HFGE example: Basic 3D (minimal convex hull in green)")) + + (screenshot + #:title (C_ "screenshot title" "HFGE example: glTF skinning") + #:slug "hfweb-screenshot-gltf-skinning" + #:image (hfweb-url "static/media/img/hfge_screenshot_big_3.png") + #:preview (hfweb-url "static/media/img/hfge_screenshot_min_3.png") + #:caption (G_ "HFGE example: glTF skinning")) + + (screenshot + #:title (C_ "screenshot title" "HFGE example: Deferred rendering") + #:slug "hfge-screenshot-deferred-rendering" + #:image (hfweb-url "static/media/img/hfge_screenshot_big_4.png") + #:preview (hfweb-url "static/media/img/hfge_screenshot_min_4.png") + #:caption (G_ "HFGE example: Deferred rendering")) + + (screenshot + #:title (C_ "screenshot title" "HFGE example: Collision 3D") + #:slug "hfge-screenshot-collision3d" + #:image (hfweb-url "static/media/img/hfge_screenshot_big_5.png") + #:preview (hfweb-url "static/media/img/hfge_screenshot_min_5.png") + #:caption (G_ "HFGE example: Collision 3D")) + + (screenshot + #:title (C_ "screenshot title" "HFGE example: Collision 2D") + #:slug "hfge-screenshot-collision2d" + #:image (hfweb-url "static/media/img/hfge_screenshot_big_6.png") + #:preview (hfweb-url "static/media/img/hfge_screenshot_min_6.png") + #:caption (G_ "HFGE example: Collision 2D")) + )) \ No newline at end of file -- cgit v1.2.3-54-g00ecf