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

  1. construct
  2. >? image svg_css_class character_card character_v4.svg :: image args
  3. >? image svg_css_class character_card character_v4.svg :: rendering args
  4. >? character_card.di :: double dictionary
  5. >? /forest/crystal_forest/crystal/resources/character_card.di :: double dictionary construct
  6. >? rendered successfully :: svg data for character_card character_v4.svg
  7. >? image :: object type
  8. >? svg :: img type
  9. >? svg_css_class :: dispatched svg class
  10. >? character_card :: dispatched svg anchor
  11. >? character_v4.svg :: dispatched svg data
  12.  
  13. double dictionary recall
  14. >? URL: :: IP: 127.0.0.1
  15. >? 3334343835336531643563363430336361346266396566343239653466333433 :: viewer crystal.key
  16. >? image svg_css_class character_card character_v4.svg :: image args
  17. >? image svg_css_class character_card character_v4.svg :: rendering args
  18. >? character_card.di :: double dictionary
  19. >? rendered successfully :: svg data for character_card character_v4.svg
  20. >? image :: object type
  21. >? svg :: img type
  22. >? svg_css_class :: dispatched svg class
  23. >? character_card :: dispatched svg anchor
  24. >? character_v4.svg :: dispatched svg data
  25.  
  26. --------
  27.  
  28. variable base32_crystal [crystal::2Base [crystal::hextdict "retrieve_from" "crystal" "crystal_resources" "$base32_svg_anchor.di"]]
  29. crystal::debug 1 "$base32_svg_anchor.di" "double dictionary"
  30.  
  31. switch [file exists $base32_crystal] {
  32. 0 {
  33. crystal::memory create $base32_crystal
  34. crystal::memory insert $base32_crystal $base32_anchor $base32_surface $base32_deep
  35. }
  36. } ;# end switch
  37.  
  38. variable base16_svg_data [crystal::2Hex [crystal::lidx [crystal::memory query $base32_crystal "$base32_anchor"] 1]]
  39. crystal::hextdict "insert_to" "crystal" "character_resources" "character_card.di" $base16_svg_data
  40.  
  41. crystal::debug 0 $base16_svg_data "error"
  42. crystal::debug 1 "rendered successfully" "svg data for $base32_anchor $base32_surface"
  43. ;# return [crystal::hextdict "retrieve_from" "crystal" "character_resources" "character_card.di"]
  44. return [crystal::2Base [crystal::hextdict "retrieve_from" "crystal" "character_resources" "character_card.di"]]
  45.  
  46.  
  47. Looks glorious with syntax highlighting and my letter b is starting to fail on my keyboard.
  48.  

Add a comment

Please note that this site uses the meta tags nofollow,noindex for all pages that contain comments.
Items are closed for new comments after 1 week