Rev 2247 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 2247 | Rev 2274 | ||
|---|---|---|---|
| Line 257... | Line 257... | ||
| 257 | 257 | ||
| 258 | proc bpm2sec {{bpm 120} {beats 8}} { |
258 | proc bpm2sec {{bpm 120} {beats 8}} { |
| 259 | set bps [/ $bpm 60.0] |
259 | set bps [/ $bpm 60.0] |
| 260 | set nsecs [/ $beats $bps] |
260 | set nsecs [/ $beats $bps] |
| 261 | echo "nsecs: $nsecs, bpm: $bpm, beats: $beats"
|
261 | echo "nsecs: $nsecs, bpm: $bpm, beats: $beats"
|
| - | 262 | return $nsecs |
|
| 262 | }
|
263 | }
|
| 263 | 264 | ||
| 264 | src binaural-drones; ;# for binaural drones |
265 | src binaural-drones; ;# for binaural drones |
| 265 | set genesis $timenow ;# for uptime |
266 | set genesis $timenow ;# for uptime |