0.0.0.0:80 5line / master demos / terminal / terminal.factor
master

Tree @master (Download .tar.gz)

terminal.factor @master — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
! Copyright (C) 2026 Your name.
! See https://factorcode.org/license.txt for BSD license.
USING: 5line kernel literals ;
IN: 5line.demos.terminal

<<
: bassline-a ( -- pattern )
PATTERN: 6/8 @ 240 bpm in key 0
   A2-q
   C3-e E3-e
   A2-q
   E3-e G3-e
   A3-q
   A2-q
   C3-e E3-e
   A2-q
   E3-e G3-e
   A3-q
   C4-e E4-e
   E3-q C4-e
   G3-e
|| FIN ! ;

: melody-a ( -- pattern )
PATTERN: 6/8 @ 240 bpm in key 3
   A5-q.t

   A5-q.t

   A5-s
   C6-e.
   D6-e

   A5-s
   C6-e.
   D6-e
|| FIN ! ;
>>

: play-terminal ( -- )
   { { { $[ melody-a dup dup ] } 2 34 }
     { { $[ bassline-a dup ] } 1 53 } } play-track ;
! About as musical as a cat on a keyboard, but it works!