(define char->dice (quote ((#\1 D11) (#\2 D12) (#\3 D13) (#\4 D14) (#\5 D15) (#\6 D16) (#\7 D21) (#\8 D22) (#\9 D23) (#\0 D24) (#\A D25) (#\B D26) (#\C D31) (#\D D32) (#\E D33) (#\F D34) (#\G D35) (#\H D36) (#\I D41) (#\J D42) (#\K D43) (#\L D44) (#\M D45) (#\N D46) (#\O D51) (#\P D52) (#\Q D53) (#\R D54) (#\S D55) (#\T D56) (#\U D61) (#\V D62) (#\W D63) (#\X D64) (#\Y D65) (#\Z D66))))(define dice->bin (quote ((D11 "000000") (D12 "000001") (D13 "00001") (D14 "00010") (D15 "000110") (D16 "000111") (D21 "001000") (D22 "001001") (D23 "00101") (D24 "00110") (D25 "001110") (D26 "001111") (D31 "01000") (D32 "01001") (D33 "0101") (D34 "0110") (D35 "01110") (D36 "01111") (D41 "10000") (D42 "10001") (D43 "1001") (D44 "1010") (D45 "10110") (D46 "10111") D51 "110000" (D52 "110001") (D53 "11001") (D54 "11010") (D55 "110110") (D56 "110111") (D61 "111000") (D62 "111001") (D63 "11101") (D64 "11110") (D65 "111110") (D66 "111111"))))(define (lookup key alist) (let ((p (assoc key alist))) (or (and p (cadr p)) (error "No mapping for key" key))))(define (encode->dice str) (map (lambda (ch) (lookup ch char->dice)) (string->list str)))(define (dice->binary dice-list) (apply string-append (map (lambda (d) (lookup d dice->bin)) dice-list)))

************ : log created on : Wednesday August 26 2026 @ 17:17:17
00:00:00.000 : [sys] running on x86_64 / Windows 11 x64 (version 10.0.26200)
00:00:00.000 : [sys] Command line: E:\Steam\steamapps\common\Euro Truck Simulator 2\bin\win_x64\eurotrucks2.exe mm_max_resource_size 100 -mm_max_tmp_buffers_size 1000 -mm_pool_size 16384 -worker_threads 6
00:00:00.000 : [cpu] AuthenticAMD [AMD Ryzen 5 5500 ] - 1 package, 6 cores, 12 threads.
00:00:00.000 : [cpu] logical_id : 0 1 2 3 4 5 6 7 8 9 10 11

:: Dieses Skript stellt bei DJI Osmo 360 Videos das urspruengliche Aufnahmedatum wieder her, das beim Export der .OSV-Rohdatei in eine .mp4 verloren geht. Als Quelle dient wahlweise der Dateiname der .OSV (CAM_JJJJMMTTHHMMSS_...) oder deren Aenderungsdatum. Zu jeder .OSV wird automatisch die gleichnamige .mp4 im selben Ordner gesucht; existiert keine passende Datei, kann manuell ein anderer Dateiname angegeben werden.
:: Da die Osmo 360 kein GPS besitzt und daher keine Zeitzone in den Metadaten speichert, erfolgt eine Abfrage zur Angabe der Zeitzone, mit der Zeitzone dieses PCs als Standardwert. Wichtig: In der Kamera muss stets die lokale Uhrzeit des Aufnahmeortes eingestellt sein.
:: Optional koennen die Videos zusaetzlich per FFmpeg mit einem waehlbaren CRF-Wert komprimiert werden (H.265 oder AV1). Das korrekte Aufnahmedatum wird sowohl in die Originaldatei als auch in die komprimierte Ausgabedatei geschrieben.
::
:: Verwendung des Scripts:

;; ============================================================
;; R4RS-Compatible Dice Code System (Proper Lists Only)
;; Two user-facing functions:
;; (encode->dice "ABC123")
;; (dice->binary '(D1 D2 D13))

************ : log created on : Wednesday August 26 2026 @ 15:46:49
00:00:00.000 : [sys] running on x86_64 / Windows 11 x64 (version 10.0.26200)
00:00:00.000 : [sys] Command line: E:\Steam\steamapps\common\Euro Truck Simulator 2\bin\win_x64\eurotrucks2.exe -mm_max_resource_size 85 -mm_max_tmp_buffers_size 1000 -mm_pool_size 16384 -worker_threads 6
00:00:00.000 : [cpu] AuthenticAMD [AMD Ryzen 5 5500 ] - 1 package, 6 cores, 12 threads.
00:00:00.000 : [cpu] logical_id : 0 1 2 3 4 5 6 7 8 9 10 11

************ : log created on : Wednesday August 26 2026 @ 15:13:57
00:00:00.000 : [sys] running on x86_64 / Windows 11 x64 (version 10.0.26200)
00:00:00.000 : [sys] Command line: E:\Steam\steamapps\common\Euro Truck Simulator 2\bin\win_x64\eurotrucks2.exe -mm_max_resource_size 85 -mm_max_tmp_buffers_size 1000 -mm_pool_size 16384 -worker_threads 6
00:00:00.000 : [cpu] AuthenticAMD [AMD Ryzen 5 5500 ] - 1 package, 6 cores, 12 threads.
00:00:00.000 : [cpu] logical_id : 0 1 2 3 4 5 6 7 8 9 10 11

https://ideone.com/zGq17J

;; ============================================================
;; R4RS-Compatible Dice Code System (Proper Lists Only)
;; Two user-facing functions:
;; (encode->dice "ABC123")
;; (dice->binary '(D1 D2 D13))

************ : log created on : Wednesday August 26 2026 @ 16:56:41
00:00:00.000 : [sys] running on x86_64 / Windows 11 x64 (version 10.0.26200)
00:00:00.000 : [sys] Command line: E:\Steam\steamapps\common\Euro Truck Simulator 2\bin\win_x64\eurotrucks2.exe -mm_max_resource_size 85 -mm_max_tmp_buffers_size 1000 -mm_pool_size 16384 -worker_threads 6
00:00:00.000 : [cpu] AuthenticAMD [AMD Ryzen 5 5500 ] - 1 package, 6 cores, 12 threads.
00:00:00.000 : [cpu] logical_id : 0 1 2 3 4 5 6 7 8 9 10 11

PK]A]