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.
推荐歌曲
golden hour
lush, female vocalist, atmospheric, passionate, triumphant, bittersweet, love, ethereal, romantic, melodic
तारे गिन-गिन
cinematic, 80s, epic, sad, piano, progressive, guitar, drum, trap, 90s, mellow, melody, chill, bass
accordion_dubstep
accordion, dubstep
Festival wecker
Festival wecker, trance, techno, bass, psy, goa
lặng yêu con
acoustic pop, Ghita, melodic metalcore
After the Fall
heavy metal
Did Not Save Us
psychedelic rock, indie rock, synth-pop, neo-psychedelia, heavy baseline
California Sole
pop modern
Spin Cycle Groove
electronic techno rhythmic
La Féerie du Cirque
female vocalist,pop,chanson,melodic,1950s,sentimental,regional music,warm,optimistic
Great Bashkir Land
anthemic, powerful, epic, hard rock, violin cover, ambient finish
Undulating Specter
male vocalist,psychedelia,rock,neo-psychedelia,psychedelic,psychedelic rock,atmospheric,space rock revival,hypnotic,epic
In da hood !
90s rap, catchy
The Spy Girl Among Us
pop groovy
Lil' Ricky the Budgie
humorous hip-hop
Maine/2/tpccc
opera, emotional, epic, piano, intense, chill, slow, rap, trap
