day-12-2125.R

# remotes::install_github("walkerke/mapgl")
library(mapgl)

# CYBERPUNK 2125 - Ultra-striking neon palette
# Deep blacks + electric neons for that Blade Runner / Akira vibe
cyberpunk_2125 <- c(
  "#000000", # Pure black (shadows)
  "#0a0e27", # Deep space blue (dark areas)
  "#1a1a2e", # Dark navy (buildings)
  "#16213e", # Midnight blue
  "#0f3460", # Deep blue (mid-tones)
  "#533483", # Deep purple
  "#e94560", # Hot pink/red (neon signs)
  "#ff006e", # Electric magenta (highlights)
  "#8338ec", # Vivid purple (neon accents)
  "#3a86ff", # Electric blue (cyberpunk staple)
  "#06ffa5", # Neon green (Matrix vibes)
  "#00f5ff" # Cyan (holographic effects)
)

# Create the map - TOKYO 2125
mapboxgl(
  center = c(139.7, 35.7), # Tokyo, Japan
  zoom = 11.5,
  pitch = 65,
  bearing = -30,
  config = list(
    basemap = list(
      theme = "custom",
      "theme-data" = palette_to_lut(
        cyberpunk_2125,
        method = "replace",
        intensity = 1
      ),
      lightPreset = "night"
    )
  )
)

# ALTERNATIVE PALETTES:

# Option 2: MATRIX 2125 (Green monochrome with depth)
matrix_2125 <- c(
  "#000000", # Black
  "#001a00", # Very dark green
  "#003300", # Dark green
  "#004d00", # Forest green
  "#006600", # Mid green
  "#00ff00", # Pure green
  "#00ff41", # Bright green
  "#39ff14" # Neon green
)

# Option 3: SUNSET DYSTOPIA (Warm apocalyptic vibes)
sunset_dystopia <- c(
  "#0d0221", # Deep purple-black
  "#240046", # Dark purple
  "#3c096c", # Royal purple
  "#5a189a", # Purple
  "#7209b7", # Vivid purple
  "#f72585", # Hot pink
  "#ff6d00", # Orange
  "#ff9e00", # Golden orange
  "#ffba08" # Yellow-orange
)

# Option 4: NEON NIGHTS (Classic synthwave)
neon_nights <- c(
  "#120136", # Deep purple-black
  "#035aa6", # Dark blue
  "#40bad5", # Cyan
  "#fcbad3", # Pink
  "#ff6978", # Coral
  "#fffcf9" # Near white (highlights)
)