dedekind flower (remix v6, visual basic 1.0) ft. godel
classical crossover silent movie with glitch pop
June 2nd, 2024suno
歌词
' Define a structure to hold the Dedekind cuts
Type DedekindCut
L() As Double
R() As Double
End Type
' Initialize Dedekind cuts between 11 and 13
Sub Main()
Dim cuts(3) As DedekindCut
' First cut: Simple representation
ReDim cuts(0).L(1)
cuts(0).L(0) = 11
cuts(0).L(1) = 12
' Second cut: More detailed representation
ReDim cuts(1).L(0)
cuts(1).L(0) = 11
ReDim cuts(1).R(0)
cuts(1).R(0) = 12
' Third cut: Intermediate values
ReDim cuts(2).L(10)
cuts(2).L(0) = 11
cuts(2).L(1) = 11.1
cuts(2).L(2) = 11.2
cuts(2).L(3) = 11.3
cuts(2).L(4) = 11.4
cuts(2).L(5) = 11.5
cuts(2).L(6) = 11.6
cuts(2).L(7) = 11.7
cuts(2).L(8) = 11.8
cuts(2).L(9) = 11.9
cuts(2).L(10) = 12
ReDim cuts(2).R(9)
cuts(2).R(6) = 12.7
cuts(2).R(7) = 12.8
cuts(2).R(8) = 12.9
cuts(2).R(9) = 13
' Fourth cut: Finer cuts
ReDim cuts(3).L(13)
cuts(3).L(0) = 11
cuts(3).L(1) = 11.1
cuts(3).L(2) = 11.2
ReDim cuts(3).R(15)
cuts(3).R(0) = 12
cuts(3).R(1) = 12.01
' Fifth cut: Detailed around specific values
Dim specificCut As DedekindCut
ReDim specificCut.L(5)
specificCut.L(0) = 11
' Define a structure to hold the Dedekind cuts
Type DedekindCut
L() As Double
R() As Double
End Type
' Initialize Dedekind cuts between 11 and 13
Sub Main()
Dim cuts(3) As DedekindCut
' First cut: Simple representation
ReDim cuts(0).L(1)
cuts(0).L(0) = 11
cuts(0).L(1) = 12
' Second cut: More detailed representation
ReDim cuts(1).L(0)
cuts(1).L(0) = 11
ReDim cuts(1).R(0)
cuts(1).R(0) = 12
' Third cut: Intermediate values
ReDim cuts(2).L(10)
cuts(2).L(0) = 11
cuts(2).L(1) = 11.1
cuts(2).L(2) = 11.2
cuts(2).L(3) = 11.3
cuts(2).L(4) = 11.4
cuts(2).L(5) = 11.5
cuts(2).L(6) = 11.6
cuts(2).L(7) = 11.7
cuts(2).L(8) = 11.8
cuts(2).L(9) = 11.9
cuts(2).L(10) = 12
ReDim cuts(2).R(9)
cuts(2).R(6) = 12.7
cuts(2).R(7) = 12.8
cuts(2).R(8) = 12.9
cuts(2).R(9) = 13
' Fourth cut: Finer cuts
ReDim cuts(3).L(13)
cuts(3).L(0) = 11
cuts(3).L(1) = 11.1
cuts(3).L(2) = 11.2
ReDim cuts(3).R(15)
cuts(3).R(0) = 12
cuts(3).R(1) = 12.01
' Fifth cut: Detailed around specific values
Dim specificCut As DedekindCut
ReDim specificCut.L(5)
specificCut.L(0) = 11
' Define a structure to hold the Dedekind cuts
Type DedekindCut
L() As Double
R() As Double
End Type
' Initialize Dedekind cuts between 11 and 13
Sub Main()
Dim cuts(3) As DedekindCut
' First cut: Simple representation
ReDim cuts(0).L(1)
cuts(0).L(0) = 11
cuts(0).L(1) = 12
' Second cut: More detailed representation
ReDim cuts(1).L(0)
cuts(1).L(0) = 11
ReDim cuts(1).R(0)
cuts(1).R(0) = 12
' Third cut: Intermediate values
ReDim cuts(2).L(10)
cuts(2).L(0) = 11
cuts(2).L(1) = 11.1
cuts(2).L(2) = 11.2
cuts(2).L(3) = 11.3
cuts(2).L(4) = 11.4
cuts(2).L(5) = 11.5
cuts(2).L(6) = 11.6
cuts(2).L(7) = 11.7
cuts(2).L(8) = 11.8
cuts(2).L(9) = 11.9
cuts(2).L(10) = 12
ReDim cuts(2).R(9)
cuts(2).R(6) = 12.7
cuts(2).R(7) = 12.8
cuts(2).R(8) = 12.9
cuts(2).R(9) = 13
' Fourth cut: Finer cuts
ReDim cuts(3).L(13)
cuts(3).L(0) = 11
cuts(3).L(1) = 11.1
cuts(3).L(2) = 11.2
ReDim cuts(3).R(15)
cuts(3).R(0) = 12
cuts(3).R(1) = 12.01
' Fifth cut: Detailed around specific values
Dim specificCut As DedekindCut
ReDim specificCut.L(5)
specificCut.L(0) = 11
' Define a structure to hold the Dedekind cuts
Type DedekindCut
L() As Double
R() As Double
End Type
' Initialize Dedekind cuts between 11 and 13
Sub Main()
Dim cuts(3) As DedekindCut
' First cut: Simple representation
ReDim cuts(0).L(1)
cuts(0).L(0) = 11
cuts(0).L(1) = 12
' Second cut: More detailed representation
ReDim cuts(1).L(0)
cuts(1).L(0) = 11
ReDim cuts(1).R(0)
cuts(1).R(0) = 12
' Third cut: Intermediate values
ReDim cuts(2).L(10)
cuts(2).L(0) = 11
cuts(2).L(1) = 11.1
cuts(2).L(2) = 11.2
cuts(2).L(3) = 11.3
cuts(2).L(4) = 11.4
cuts(2).L(5) = 11.5
cuts(2).L(6) = 11.6
cuts(2).L(7) = 11.7
cuts(2).L(8) = 11.8
cuts(2).L(9) = 11.9
cuts(2).L(10) = 12
ReDim cuts(2).R(9)
cuts(2).R(6) = 12.7
cuts(2).R(7) = 12.8
cuts(2).R(8) = 12.9
cuts(2).R(9) = 13
' Fourth cut: Finer cuts
ReDim cuts(3).L(13)
cuts(3).L(0) = 11
cuts(3).L(1) = 11.1
cuts(3).L(2) = 11.2
ReDim cuts(3).R(15)
cuts(3).R(0) = 12
cuts(3).R(1) = 12.01
' Fifth cut: Detailed around specific values
Dim specificCut As DedekindCut
ReDim specificCut.L(5)
specificCut.L(0) = 11
' un un un un unstructured to hold the Dedekind cuts
Type DedekindCut
L() As Double
R() As Double
End Type
Dim specificCut As DedekindCut
ReDim specificCut.L(5)
specificCut.L(0) = 11
d e d e k i n d
d e. d. e. k. i. n. d.
kind dede.
推荐歌曲
Duhai Diri
contemplating, indonesian voice, islamic song, acoustic, piano, arabian musical tone, nasyid
Porteurs d'espoirs
uplifting pop piano-driven
Heroes of Surabaya
intense drum intro, Power metal, male AI, gamelan, medieval
Рух Народжую Я
Bubblegum Dance Chanson Electronic Disco Harpischord Symphonic Metal MYSTERIOUS ,Dark Wave
Trái Tim Tan Vỡ
synthwave saxophone mix
Neon Dreams
electric piano cyberpunk fast dance
From Rags to Riches
heavy bass trap aggressive
Unbreakable Bond
Sweeping, cinematic, romantic, orchestral, epic
Shot for Shot
Country Duet,harmonies
Pastora melodia
orchestral, epic
FishKisser
melodic synth guitar solos Buckethead's style, harmony xylophone, 80's progressive metal, fusion-soul
Drottningens Uppdrag
folk acoustic medieval
secret of the developper
Blues Rock American Primitivism
Pai
Rima hip Hop
Sabor de la Fiesta
female vocalist,male vocalist,regional music,lush,hispanic american music,hispanic music
QIb narwI' - Klingon Song
rock, guitar, bass, epic
Daydream in My Pocket
drum and bass,piano, guitar