#clojurescript

There’s a library for using React from Clojurescript, which used to be called Cloact, until the author realized that this would just make everyone think about bird genitals whenever it was mentioned, and changed it to Reagent.

cljs.user=> (let[u8 (js/Uint8Array. 1)] (aset u8 0 257) u8) #object[Uint8Array 1] cljs.user=> (let[u8 (js/Uint8Array. 1)] (aset u8 0 -1) u8) #object[Uint8Array 255] 値がクランプされる（値は、型の上限／下限で足切りされる）。 cljs.user=> (let[val (js/Uint8ClampedArray. 1)] (aset val 0 257) val) #object[Uint8ClampedArray 255] cljs.user=> (let[val (js/Uint8ClampedArray. 1)] (aset val 0 -1) val) #object[Uint8ClampedArray 0]

音声を再生する。 (let [btn (.querySelector js/document.body "#start_button") 　　ctx (js/AudioContext. )] 　(btn.addEventListener 　　"click" 　　(fn [] 　　　;; ファイルのロード 　　　(-> (js/fetch "./sound/sample.mp3") 　　　　　;; AudioBuffer 生成のためのデータを取り出す 　　　　　( .then 　　　　　　(fn [response] (.arrayBuffer response))) 　　　　　;; AudioBuffer 生成 　　　　　( .then 　　　　　　(fn [buffer] (.decodeAudioData ctx buffer))) 　　　　　;; 再生 　　　　　( .then 　　　　　　(fn [decodeAudio] 　　　　　　　;; ノードを生成 　　　　　　　(let [node (.createBufferSource ctx)] 　　　　　　　　;; デコードしたオーディオデータをひもづける 　　　　　　　　(set! (.-buffer node) decodeAudio) 　　　　　　　　;; ノードを接続する 　　　　　　　　(.connect node (.-destination ctx) 　　　　　　　　;; ノードの再生が完了した後の解放処理 　　　　　　　　(node.addEventListener 　　　　　　　　　"ended" 　　　　　　　　　(fn [] 　　　　　　　　　　(do 　　　　　　　　　　　(.stop node) 　　　　　　　　　　　(.disconnect node)))) 　　　　　　　　;; ノードの再生を開始する 　　　　　　　　(.start node) 　　　　　　　　(.log js/console (.-destination ctx)) 　　　　　　 ))) 　　　　　( .catch 　　　　　　(fn [] (js/alert "error!!")))) )))

[ https://asukiaaa.blogspot.com/2024/05/use-resolve-and-reject-of-promise-in-clojure-script.html ]

[ https://clojurescript.org/guides/promise-interop ]

弾の進行方向にたいして、正しい角度をつけて画像を表示する、という小さな工夫を加えた。 なるほどね、と。