gCS_js_dataurl.tcl

#=== gCS.js (Yuji SODE,2017): the MIT License; https://gist.github.com/YujiSODE/a8d3ba4f02567533124a6fd05563f125 ===
#These functions ("gCS_color" and "gCS_pattern") generate a stratum for geological columnar section on a given canvas tag. "gCS_scale" generates scale bar.
#base64 encoded dataurl version on Mon_Nov_06_14:28:14_GMT_2017
set	dataurls(gCS.js) {data:text/javascript;base64,LypnQ1MuanMKKgoqICAgIENvcHlyaWdodCAoYykgMjAxNyBZdWppIFNPREUgPHl1amkuc29kZUBnbWFpbC5jb20+CioKKiAgICBUaGlzIHNvZnR3YXJlIGlzIHJlbGVhc2VkIHVuZGVyIHRoZSBNSVQgTGljZW5zZS4KKi8KLy9UaGVzZSBmdW5jdGlvbnMgKCJnQ1NfY29sb3IiIGFuZCAiZ0NTX3BhdHRlcm4iKSBnZW5lcmF0ZSBhIHN0cmF0dW0gZm9yIGdlb2xvZ2ljYWwgY29sdW1uYXIgc2VjdGlvbiBvbiBhIGdpdmVuIGNhbnZhcyB0YWcuCi8vImdDU19zY2FsZSIgZ2VuZXJhdGVzIHNjYWxlIGJhci4KdmFyIGdDU19jb2xvcj1mdW5jdGlvbihjdnMseDAseTAsZHgxLGR4MixkeSxjb2xvcix0ZXh0KXsKICAgIC8qY3ZzIGlzIGEgY2FudmFzIGVsZW1lbnQKICAgICogeDAsIHkwLCBkeDEsIGR4MiBhbmQgZHkgYXJlIGxlbmd0aHMgaW4gcGl4ZWxzCiAgICAqIGR4MSBhbmQgZHgyIGFyZSBsb3dlciBhbmQgdXBwZXIgd2lkdGhzCiAgICAqIGNvbG9yIGlzIENTUyA8Y29sb3I+IHZhbHVlCiAgICAqIHRleHQgaXMgc2hvcnQgdGV4dAogICAgKi8KICAgIC8qCiAgICAqIHgwLCB5MCwgZHgxLCBkeDIgYW5kIGR5IGFyZSBzaG93biBhcyBmb2xsb3dzOgogICAgKiAoeDAseTApCiAgICAqICstLS0tLS0tKyAoeDArZHgyLHkwKQogICAgKiB8ICAgICAgICBcCiAgICAqICstLS0tLS0tLS0rICh4MCtkeDEseTArZHkpCiAgICAqICh4MCx5MCtkeSkKICAgICovCiAgICAvL2N0eCBpcyAyZCBjb250ZXh0IG9mIGNhbnZhcyB0YWcKICAgIC8vdyBhbmQgaCBhcmUgbWF4IHdpZHRoIGFuZCBtZWRpdW0gaGVpZ2h0IG9mIGEgc3RyYXR1bQogICAgdmFyIGN0eD1jdnMuZ2V0Q29udGV4dCgnMmQnKSx3PU1hdGgubWF4KGR4MSxkeDIpLGg9KGR5LzIpPDE/MTpNYXRoLmZsb29yKGR5LzIpOwogICAgLy9hIHN0cmF0dW0KICAgIGN0eC5maWxsU3R5bGU9Y29sb3I7CiAgICBjdHguYmVnaW5QYXRoKCksY3R4Lm1vdmVUbyh4MCx5MCk7CiAgICBjdHgubGluZVRvKHgwLHkwK2R5KSxjdHgubGluZVRvKHgwK2R4MSx5MCtkeSksY3R4LmxpbmVUbyh4MCtkeDIseTApOwogICAgY3R4LmNsb3NlUGF0aCgpLGN0eC5maWxsKCk7CiAgICAvL2EgdGV4dAogICAgY3R4LmZpbGxTdHlsZT0iIzAwMCI7CiAgICB0ZXh0PSF0ZXh0PyIiOnRleHQ7CiAgICBjdHguZmlsbFRleHQodGV4dCx4MCt3LHkwK2gpOwogICAgY3R4PW51bGw7CiAgICAvL3JldHVybmVkIHZhbHVlIGlzIHRvIGJlIHRoZSBuZXh0IHgwIGFuZCB5MCBhcyBhbiBhcnJheTogW3gwLHkwXQogICAgcmV0dXJuIFt4MCx5MCtkeV07Cn07CnZhciBnQ1NfcGF0dGVybj1mdW5jdGlvbihjdnMseDAseTAsZHgxLGR4MixkeSxzcmMsdGV4dCl7CiAgICAvKmN2cyBpcyBhIGNhbnZhcyBlbGVtZW50CiAgICAqIHgwLCB5MCwgZHgxLCBkeDIgYW5kIGR5IGFyZSBsZW5ndGhzIGluIHBpeGVscwogICAgKiBkeDEgYW5kIGR4MiBhcmUgbG93ZXIgYW5kIHVwcGVyIHdpZHRocwogICAgKiBzcmMgaXMgZmlsZXBhdGggdG8gaW1hZ2VmaWxlIG9yIGRhdGF1cmwgb2YgaW1hZ2Ugd2hpY2ggaXMgdXNlZCBhcyBwYXR0ZXJuCiAgICAqIHRleHQgaXMgc2hvcnQgdGV4dAogICAgKi8KICAgIC8qCiAgICAqIHgwLCB5MCwgZHgxLCBkeDIgYW5kIGR5IGFyZSBzaG93biBhcyBmb2xsb3dzOgogICAgKiAoeDAseTApCiAgICAqICstLS0tLS0tKyAoeDArZHgyLHkwKQogICAgKiB8ICAgICAgICBcCiAgICAqICstLS0tLS0tLS0rICh4MCtkeDEseTArZHkpCiAgICAqICh4MCx5MCtkeSkKICAgICovCiAgICAvL2N0eCBpcyAyZCBjb250ZXh0IG9mIGNhbnZhcyB0YWcKICAgIC8vdyBhbmQgaCBhcmUgbWF4IHdpZHRoIGFuZCBtZWRpdW0gaGVpZ2h0IG9mIGEgc3RyYXR1bQogICAgLy9JbWcgaXMgaW1hZ2Ugb2JqZWN0CiAgICB2YXIgY3R4PWN2cy5nZXRDb250ZXh0KCcyZCcpLHc9TWF0aC5tYXgoZHgxLGR4MiksaD0oZHkvMik8MT8xOk1hdGguZmxvb3IoZHkvMiksSW1nPW5ldyBJbWFnZSgpOwogICAgSW1nLnNyYz1zcmM7CiAgICBJbWcuYWRkRXZlbnRMaXN0ZW5lcignbG9hZCcsZnVuY3Rpb24oKXsKICAgICAgICAvL2Egc3RyYXR1bQogICAgICAgIGN0eC5maWxsU3R5bGU9Y3R4LmNyZWF0ZVBhdHRlcm4oSW1nLCdyZXBlYXQnKTsKICAgICAgICBjdHguYmVnaW5QYXRoKCksY3R4Lm1vdmVUbyh4MCx5MCk7CiAgICAgICAgY3R4LmxpbmVUbyh4MCx5MCtkeSksY3R4LmxpbmVUbyh4MCtkeDEseTArZHkpLGN0eC5saW5lVG8oeDArZHgyLHkwKTsKICAgICAgICBjdHguY2xvc2VQYXRoKCksY3R4LmZpbGwoKTsKICAgICAgICAvL2EgdGV4dAogICAgICAgIGN0eC5maWxsU3R5bGU9IiMwMDAiOwogICAgICAgIHRleHQ9IXRleHQ/IiI6dGV4dDsKICAgICAgICBjdHguZmlsbFRleHQodGV4dCx4MCt3LHkwK2gpOwogICAgICAgIGN0eD1JbWc9bnVsbDsKICAgIH0sZmFsc2UpOwogICAgLy9yZXR1cm5lZCB2YWx1ZSBpcyB0byBiZSB0aGUgbmV4dCB4MCBhbmQgeTAgYXMgYW4gYXJyYXk6IFt4MCx5MF0KICAgIHJldHVybiBbeDAseTArZHldOwp9Owp2YXIgZ0NTX3NjYWxlPWZ1bmN0aW9uKGN2cyxsYWJlbCx3LGgpewogICAgLypjdnMgaXMgYSBjYW52YXMgZWxlbWVudAogICAgKiBsYWJlbCBpcyBsYWJlbCBvZiBzY2FsZQogICAgKiB3IGFuZCBoIGFyZSB3aWR0aCBhbmQgaGVpZ2h0IG9mIHNjYWxlIGluIHBpeGVscwogICAgKi8KICAgIC8vY3R4IGlzIDJkIGNvbnRleHQgb2YgY2FudmFzIHRhZwogICAgLy9jVyBhbmQgY0ggYXJlIHdpZHRoIGFuZCBoZWlnaHQgb2YgY2FudmFzIGVsZW1lbnQKICAgIC8vTCBpcyBsYWJlbCBzaXplIGluIHBpeGVscwogICAgdmFyIGN0eD1jdnMuZ2V0Q29udGV4dCgnMmQnKSxjVz1jdnMud2lkdGgsY0g9Y3ZzLmhlaWdodCxMPTA7CiAgICBjdHguZmlsbFN0eWxlPSIjMDAwIjsKICAgIGN0eC5zdHJva2VTdHlsZT0iIzAwMCI7CiAgICBjdHgubGluZVdpZHRoPXc7CiAgICBMPWN0eC5tZWFzdXJlVGV4dChsYWJlbCkud2lkdGg7CiAgICBjdHguYmVnaW5QYXRoKCksY3R4Lm1vdmVUbyhNYXRoLmZsb29yKGNXLShMLzIpKSxjSC1oKTsKICAgIGN0eC5saW5lVG8oTWF0aC5mbG9vcihjVy0oTC8yKSksY0gpLGN0eC5zdHJva2UoKTsKICAgIGN0eC5maWxsVGV4dChsYWJlbCxjVy1MLGNILWgpOwogICAgY3R4PW51bGw7Cn07Ci8qCiogICAgICAgICAgTUlUIExpY2Vuc2UKKgoqIENvcHlyaWdodCAoYykgMjAxNyBZdWppIFNvZGUKKgoqIFBlcm1pc3Npb24gaXMgaGVyZWJ5IGdyYW50ZWQsIGZyZWUgb2YgY2hhcmdlLCB0byBhbnkgcGVyc29uIG9idGFpbmluZyBhIGNvcHkKKiBvZiB0aGlzIHNvZnR3YXJlIGFuZCBhc3NvY2lhdGVkIGRvY3VtZW50YXRpb24gZmlsZXMgKHRoZSAiU29mdHdhcmUiKSwgdG8gZGVhbAoqIGluIHRoZSBTb2Z0d2FyZSB3aXRob3V0IHJlc3RyaWN0aW9uLCBpbmNsdWRpbmcgd2l0aG91dCBsaW1pdGF0aW9uIHRoZSByaWdodHMKKiB0byB1c2UsIGNvcHksIG1vZGlmeSwgbWVyZ2UsIHB1Ymxpc2gsIGRpc3RyaWJ1dGUsIHN1YmxpY2Vuc2UsIGFuZC9vciBzZWxsCiogY29waWVzIG9mIHRoZSBTb2Z0d2FyZSwgYW5kIHRvIHBlcm1pdCBwZXJzb25zIHRvIHdob20gdGhlIFNvZnR3YXJlIGlzCiogZnVybmlzaGVkIHRvIGRvIHNvLCBzdWJqZWN0IHRvIHRoZSBmb2xsb3dpbmcgY29uZGl0aW9uczoKKiBUaGUgYWJvdmUgY29weXJpZ2h0IG5vdGljZSBhbmQgdGhpcyBwZXJtaXNzaW9uIG5vdGljZSBzaGFsbCBiZSBpbmNsdWRlZCBpbiBhbGwKKiBjb3BpZXMgb3Igc3Vic3RhbnRpYWwgcG9ydGlvbnMgb2YgdGhlIFNvZnR3YXJlLgoqCiogVEhFIFNPRlRXQVJFIElTIFBST1ZJREVEICJBUyBJUyIsIFdJVEhPVVQgV0FSUkFOVFkgT0YgQU5ZIEtJTkQsIEVYUFJFU1MgT1IKKiBJTVBMSUVELCBJTkNMVURJTkcgQlVUIE5PVCBMSU1JVEVEIFRPIFRIRSBXQVJSQU5USUVTIE9GIE1FUkNIQU5UQUJJTElUWSwKKiBGSVRORVNTIEZPUiBBIFBBUlRJQ1VMQVIgUFVSUE9TRSBBTkQgTk9OSU5GUklOR0VNRU5ULiBJTiBOTyBFVkVOVCBTSEFMTCBUSEUKKiBBVVRIT1JTIE9SIENPUFlSSUdIVCBIT0xERVJTIEJFIExJQUJMRSBGT1IgQU5ZIENMQUlNLCBEQU1BR0VTIE9SIE9USEVSCiogTElBQklMSVRZLCBXSEVUSEVSIElOIEFOIEFDVElPTiBPRiBDT05UUkFDVCwgVE9SVCBPUiBPVEhFUldJU0UsIEFSSVNJTkcgRlJPTSwKKiBPVVQgT0YgT1IgSU4gQ09OTkVDVElPTiBXSVRIIFRIRSBTT0ZUV0FSRSBPUiBUSEUgVVNFIE9SIE9USEVSIERFQUxJTkdTIElOIFRIRQoqIFNPRlRXQVJFLgoqLwo=};