Posted to tcl by mookie at Mon Apr 27 21:50:19 GMT 2026view pretty

construct
>? image svg_css_class character_card character_v4.svg :: image args
>? image svg_css_class character_card character_v4.svg :: rendering args
>? character_card.di :: double dictionary
>? /forest/crystal_forest/crystal/resources/character_card.di :: double dictionary construct
>? rendered successfully :: svg data for character_card character_v4.svg
>? image :: object type
>? svg :: img type
>? svg_css_class :: dispatched svg class
>? character_card :: dispatched svg anchor
>? character_v4.svg :: dispatched svg data

double dictionary recall
>? URL:  :: IP: 127.0.0.1
>? 3334343835336531643563363430336361346266396566343239653466333433 :: viewer crystal.key
>? image svg_css_class character_card character_v4.svg :: image args
>? image svg_css_class character_card character_v4.svg :: rendering args
>? character_card.di :: double dictionary
>? rendered successfully :: svg data for character_card character_v4.svg
>? image :: object type
>? svg :: img type
>? svg_css_class :: dispatched svg class
>? character_card :: dispatched svg anchor
>? character_v4.svg :: dispatched svg data

--------

  variable base32_crystal [crystal::2Base [crystal::hextdict "retrieve_from" "crystal" "crystal_resources" "$base32_svg_anchor.di"]]
  crystal::debug 1 "$base32_svg_anchor.di" "double dictionary" 

  switch [file exists $base32_crystal] {
    0 { 
      crystal::memory create $base32_crystal
      crystal::memory insert $base32_crystal $base32_anchor $base32_surface $base32_deep  
    }
  } ;# end switch

  variable base16_svg_data [crystal::2Hex [crystal::lidx [crystal::memory query $base32_crystal "$base32_anchor"] 1]]
  crystal::hextdict "insert_to" "crystal" "character_resources" "character_card.di" $base16_svg_data

  crystal::debug 0 $base16_svg_data "error"
  crystal::debug 1 "rendered successfully" "svg data for $base32_anchor $base32_surface" 
  ;# return [crystal::hextdict "retrieve_from" "crystal" "character_resources" "character_card.di"]
  return [crystal::2Base [crystal::hextdict "retrieve_from" "crystal" "character_resources" "character_card.di"]]


Looks glorious with syntax highlighting and my letter b is starting to fail on my keyboard.