diff options
Diffstat (limited to 'apps/media/data.scm')
| -rw-r--r-- | apps/media/data.scm | 59 |
1 files changed, 59 insertions, 0 deletions
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 |