dedekind flower (remix v6, visual basic 1.0) ft. godel
classical crossover silent movie with glitch pop
June 2nd, 2024suno
Lyrics
' 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.
Recommended
Dirtsky
Beatnik punk robot dubstep slinky dank
I wanna quit my job and lie down on the beach
lo-fi chill bossa nova
My first love
a quiet, nostalgic atmosphere
Tribes
chubby, soft, smooth, precise, technical, officewave, sophisticated, sensual, synthwave, New Jack Swing
Cinta mati
jazz blues
당신의 결정은 최고의 결정이었어
pop, jazz, funk, bass
v4
Reggae
Íslandsdraumar
uplifting dreamy 80's pop
Nas Trilhas da Saudade
folk tranquila acústica
Counting Down
rock and roll, arena rock, electric guitar intro, progressive, rhythm, hard rock
Dancing in the Rain
dark synth pop with a mix of hyperpop
OlyLife Dreams
electronic hip-hop
Raise Your Glass (And Your Spirits)
playful country
Mother
Nature Mysticisme male light voice
Ambient:
Balearic
Trance Ambient: Balearic
Moonlit Tango
bossa nova smooth sultry
站台有你-Zhàntái yǒu nǐ-HunkenTa
Chinese tradition, pop, zither, flute, molody slow, sweet female voice, funk pop
Under the Moonlight
jazz mellow saxophone