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.

추천

throwaway4
throwaway4

ragtime, blues, electronica

summer
summer

dance, bass,male voice

Healing Heart
Healing Heart

pop piano-driven uplifting

March On
March On

male vocals, brass band, military drums

The Home Song
The Home Song

r&r, rap, country, ballard

Electric Pulse
Electric Pulse

minimal-techno synthesized robotic

The FOOL
The FOOL

Fastbeat-Pop R&B Emotional Electro Dreamy Swing Sad Melodic Male vocal

Miracle
Miracle

Male voice, acoustic, dreamy, acoustic guitar, pop, like a lullaby

Dreamland Whispers
Dreamland Whispers

lullaby dreamy piano

Salam ya salam
Salam ya salam

Arabian club music, pop, dance, house, electronic

Midnight Rencontre
Midnight Rencontre

whimsical smooth jazz

Seasons of my Life
Seasons of my Life

new wave, synthwave, darkwave, post-punk

Clown Carnage
Clown Carnage

grunge abrasive jazzy

Flip the Table
Flip the Table

anthemic pop rock

Cosmic Chill
Cosmic Chill

electronic dreamy ethereal