update

20240902004634-org_modeとlivecoding.org

@@ -180,7 +180,7 @@ https://tidalcycles.org/
 ** さっそく音を鳴らしてみる
 
 #+begin_src tidal :results silent
-d1 $ sound "bd:0 sd:1"
+d1 $ sound "bd sd"
 #+end_src
 
 - bd: バスドラム
@@ -192,6 +192,7 @@ d1 $ sound "bd:0 sd:1"
 d1 $ sound "bd sd"
 #+end_src
 
+#+ATTR_ORG: :width 700
 [[file:./img/bd_sn.svg]]
 
 *** tidalcyclesのサイクルという概念
@@ -209,7 +210,7 @@ d1 $ sound "bd sd"
     d1 $ sound "bd"
 
     -- ベース
-    d2 $ sound "bd"
+    -- d2 $ sound "bd"
     -- メロディー
     --d3 $ sound "cp"
   #+end_src
@@ -218,7 +219,7 @@ d1 $ sound "bd sd"
   : tidal>
 
 #+begin_src tidal :results silent
-setcps (155/60/4)
+setcps (150/60/4)
 #+end_src
 
 基本的にはこんな感じ

20240903214432-org_babelでtidalcyclesを実行したい.org

@@ -7,24 +7,30 @@
 https://github.com/ikoamu/ob-tidalcycles/blob/main/ob-tidalcycles.el
 
 #+begin_src elisp
-(defun org-babel-execute:tidal (body params)
-  "Execute a block of Tidal Cycles code with org-babel.
-This function is called by `org-babel-execute-src-block'"
-  (interactive)
-  (let ((result (ignore-errors
-		  (tidal-send-string "hush") t)))
-    (unless result (tidal-start-haskell)))
-  (tidal-send-string ":{")
-  (tidal-send-string body)
-  (tidal-send-string ":}")
-  ;; result is always tidal>
-  "tidal>")
+  (defun org-babel-execute:tidal (body params)
+    "Execute a block of Tidal Cycles code with org-babel.
+  This function is called by `org-babel-execute-src-block'"
+    (interactive)
+    ;(let ((result (ignore-errors
+    ;		    (tidal-send-string "hush") t)))
+    ;  (unless result (tidal-start-haskell)))
+    (tidal-send-string ":{")
+    (tidal-send-string body)
+    (tidal-send-string ":}")
+    ;; result is always tidal>
+    "tidal>")
 #+end_src
 
+#+RESULTS:
+: org-babel-execute:tidal
+
+#+header :nohash yes
 #+begin_src tidal
-  -- d1 $ sound "bd"
-  hush
+  -- d1 $ sound "bd*8"
+
 #+end_src
 
 #+RESULTS:
 : tidal>
+
+* headerをつけたい