RayCastSphere.fuse

--[[--
RayCastSphere

    Based on https://www.shadertoy.com/view/XdjBDG a WebGL
    shader from shadertoy.com converted to DCTL and embeddet
    into a Lua Fuse by JiPi (https://www.youtube.com/channel/UCItO4q_3JgMVV2MFIPDGQGg)
    for use in DaFusion.

    Shader created by diroru

--]] --

-- MANDATORY -----------------------------------------------------------------
local shadertoy_name       = "RayCastSphere"
local shadertoy_author     = "diroru"
local shadertoy_id         = "XdjBDG"
local shadertoy_license    = ""
local dctlfuse_category    = "Planet"
local dctlfuse_name        = "RayCastSphere"
local dctlfuse_author      = "JiPi"
-- OPTIONAL ------------------------------------------------------------------
local dctlfuse_versionNo   = 1
local dctlfuse_versionDate = "22 Feb 2021"
local dctlfuse_authorurl   = "https://www.youtube.com/c/JiPi_YT"
local dctlfuse_authorlogo  = 'width="320" height="60" src="data:image/png;base64,/9j/4AAQSkZJRgABAQEAYABgAAD/4QBoRXhpZgAATU0AKgAAAAgABAEaAAUAAAABAAAAPgEbAAUAAAABAAAARgEoAAMAAAABAAIAAAExAAIAAAARAAAATgAAAAAAAABgAAAAAQAAAGAAAAABcGFpbnQubmV0IDQuMi4xNAAA/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB/9sAQwEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB/8AAEQgAPAFAAwEhAAIRAQMRAf/EAB8AAAEFAQEBAQEBAAAAAAAAAAABAgMEBQYHCAkKC//EALUQAAIBAwMCBAMFBQQEAAABfQECAwAEEQUSITFBBhNRYQcicRQygZGhCCNCscEVUtHwJDNicoIJChYXGBkaJSYnKCkqNDU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2drh4uPk5ebn6Onq8fLz9PX29/j5+v/EAB8BAAMBAQEBAQEBAQEAAAAAAAABAgMEBQYHCAkKC//EALURAAIBAgQEAwQHBQQEAAECdwABAgMRBAUhMQYSQVEHYXETIjKBCBRCkaGxwQkjM1LwFWJy0QoWJDThJfEXGBkaJicoKSo1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoKDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uLj5OXm5+jp6vLz9PX29/j5+v/aAAwDAQACEQMRAD8A/kHooAK3NGsrbVBc6YI3OsXbWw0STztkMlyjSCTTpIyuGm1IPHHZyF1CXcUULYS5eSPpwlOnVxEKVXm5aqqU4NNRtXqU5ww0pNppU44h0pVerpKaVnZm+H9h7S2IUnTdKvFcsuTlrSoVI4acnZ/u6eIdKpVja8qcZxTTd1iFWDFSpDA7SpBDBgcFSDyCDxjGc8Vq2ug63fXthp1ppGpT32q3trpum2sdncGa+v76VILOztU8sGa4uZpY44Iky8juoUHIrCMJzajGMpSbUUkm3eTsl6t6LzOWdSnTV5zhBWbvKSirRV5PVrRLVvoty34mmhOpCwtVt/suh28eiQz26Rqt6bF5RdagzxqDMb++kuruJ5C8kdtNBbl3ECk89XRjZxniq7pqMaaqOFJQiox9lT/d09Ekm3CMXKVvek3J6s6cRX+sVpVlCMIy5VCEIqEY04QjCmrJJX5Ix5nvKV5PVsKK5TEKKACigAooAKKACigAooA+p/A/7DH7bXxO8KaL48+G37Hf7U/xC8DeJLZ73w74z8D/ALPnxa8WeFNfs47ia0ku9F8RaD4Rv9I1W2S6t7i2eexvJ4luIJoS4kidV6v/AIduf8FE/wDowj9tL/xFr45f/MLQB8W19ceG/wBgD9vDxn4d0Dxh4P8A2J/2uPFfhLxXouleJPC/ijw3+zd8Y9d8O+JPDuu2MGqaJr+ga3pfgy60zWNF1jTLq21HStV065ubHULG5gu7Sea3mjkYAwfiN+xV+2T8HvCOpfED4ufslftNfCzwFoslhFrHjf4jfAb4p+CPCOky6pf22laZHqXiXxN4V0zRrGTUdUvLPTbBLq9ia8v7u2s7cSXE8UbeF+DfBXjL4jeKdE8D/D3wl4m8d+NfE19Hpnhvwf4N0HVfFHinxBqUqs0Wn6J4f0S0vtW1a+kVHaO0sLS4uHVGKxkKcAH1JJ/wTn/4KERf639hH9sqPHXzP2YPjan/AKF4HFUpP+CfP7e8X+t/Yg/a9ix18z9mr4zJ/wCheCxQBUk/YJ/bohR5Jf2Lv2soo41LSPJ+zn8YERFUZLOzeDgqqBySSAB1rwLxx8NviL8MdUTQ/iV4B8a/D3W5IvPj0fxx4W1zwnqkkI25mTT9esdPu2iG9f3iwlPmXnkZAOKr174R/s+/Hv8AaAv9Z0v4D/BD4vfGzU/DtpbX/iDTvhH8NfGfxIv9CsL2Z7ezvdZtPBui6zcaZaXdxFLBbXN7HBDPNG8UTu6MoAPdP+Hbn/BRP/owj9tL/wARa+OX/wAwtfJ/i3wj4s8A+Jtd8FeO/C/iLwV4y8L6nd6L4m8JeLdF1Lw54m8O6zYStBfaTrug6xbWeq6RqdnMrQ3dhqFpb3VvKrRzRI4IoA52igAooAKKACpIo5JpYooVZ5ZZEjiRfvNI7BUVf9pmIA9zTSbaS3bSXq3ZCbUU23ZJNtvolq38kf6K/wDwTE/ZR/Y8+Cf7HWtfts/Ev4a+A/EPiTRRNouu6zpfhu2hvdV1nwhq1l8PvEHjDUbq2gvNYkk8YeO7XUddW2snfR7bT7tdQ0rRRLfSWo9M/ZZ/bX/YG/4KveGPiRoXwa8P6z4I8R+CT4ii0nxXD4Y1P4ca3oXiTw5ZLqunzNpH9u+IdL1jSNU0oXGq6VqtxfrcFdN1LTNY0PwtqZ0WXV/vcwz/AB2WYmvi8mxbwmEyrM8bllDAUk44HGVcppKWYYrMsPFqOM/tGunKq63NVjCvTpU5Qo0abovgvwmwHEvhVUq8UzjjsVxHhMZiMf8AXKFLGZjVeEy7JM2zaMcZPCVXhv7CwHEGX4XJ40cRhKeEqYOValSqVZYqqv4G/wBuv4IWPwE/aM8X+EdHt7a00DUnuPEGiWtkHFhbQ/25rfhzVodNWTEiaSnibw5rv9jRSKkkGkmygkRZI2FfHlfKZzQo4bNMdSw0eXDe3lVwsOZScMLiEsRhoOSsnKFGrCMtF7yei2PKyN4n+ycDSxtb6zjsLS+oY7EpWWJx2XTlgcZiIrpGvicPVqxWtozWoUV5h6oUUAFFABRQAUUAFFABRQB/q/8A/BB7/lEb+xH/ANk013/1ZHjav1xJxyegoA/xD6/2DP8AgmZc26/8E3v+CfatPCCP2Iv2UQQZUBBHwH8BAggtkEHgg9KAPz5/4OV5oZP+CPv7RyxyxuR4p+ApIR1Ygf8AC9Ph+M4Uk4yQM+4r+Dj/AIIs/wDKVf8AYV/7L74X/wDRF/QB/rY0UAFec/FT4P8Awp+Ofg3U/h58Zvhx4I+KfgbWI3j1Lwn4/wDDGj+K9Bud0bxCY6drVpeW8V3Csjm1voEjvLSQia1nhlVXAB/m0/8ABwN/wSV8L/8ABOD44eDPiD8CLLU7f9mH4/rrT+EtD1C9u9Yl+F3j3w8LOfxH8Pm1m+nutSv9Cu7DULTX/BV3rVxLq0tj/bejXFzqUnhmbVr778/4M+ZEj/aD/bLaR0QH4N/DkAuwUE/8JtqpxliBnAJx7GgD+9n7Vbf8/EH/AH9j/wDiq/yLf+Cu5Df8FQP29GUgg/tR/F0gg5BB8WX5BBHBBHII60AfnRRQAUUAFFABT4pZIZI5omKSxOkkbr1SRGDIw91YAj3FNNxaadmmmmujWqfyYmk001dNWafVPdH9k37C3/BWz4DeAPgVZ/Cb4w/DvxjqfhLVbG7updH8JS2klpJH4jvpNevbR4Tc6R9kXSNQvCmjXNreHULRbOynH2W/t1lEniH/AIKXfsbfADT/ABU37KnwY8eeGPEPi3SNT0afWNbh8K6MLGw1ieyvNUitrPQreDSPO1S803TrnV9Uu0OuazJp+nDVtXu4dOsoIP8AVvCfswOPuKOIlmGB474by/gXi2dDiLD1q+CxlfiLAZfnUaWaSwqwX7rCvFUqeJeDddYxSxEKUZ1MPT9pUwy+fyTxu4n4e4LzngPAQrLBZtUwMM0oulhJwqVctjhsPOWEx84zzDB0sfHB4dY6hh3FYilRo0arnGmpP+YD9sL4y6h8dvilF4zuIglhpOhQeFNPWF5bqG18rWNc8TXtvNqLIkN9qFzqfifUNWvZLX/REm1F7a0LQ2wNfKNfwj9I/gvB+HfjXx7wXlka6yvh7M8Ll2WVcRTdOpisBRyrALDY1XjFThi6dsRCrTSpVVU56fuSSOnIHUllGDqVklWrxq4muorlXt8VXq4iu+X7LlVqzk022m7Nt6hRX4iewFFABRQAUUAFFABRQAUUAf6v/wDwQe/5RG/sR/8AZNNd/wDVkeNq/Wi9k8qzu5P+edtO/H+xE7f0oA/xGK/s9/Zb/wCDU34eftE/syfs6ftA3v7Z/jTwte/HT4E/CL4x3fhi1+C2h6ra+HLr4m/D/wAPeNbjQbbU5viJYy6lBpEutvp8N/LZWkl5HbrcPa27SGJAD5z/AOCoH/BuH4F/4J5/sYfE39qzRv2qvFnxR1LwDqvw+0y28Gan8KtH8K2Oo/8ACbeP/DfgyaefWbXxvrk8H9nwa5LfRxx6fJ9omgjhaSJGZx+Rv/BFn/lKv+wr/wBl98L/APoi/oA/1sa/mG/4OufH3jr4df8ABP8A+CWtfD7xp4t8C6xeftheCtJu9W8HeI9Y8MandaVcfBX483c+mXF/ol5Y3U+nz3VjZXM1lLK1tJcWdrM8bSW8TIAfx8f8E5P+Cn/7d/7Pf7U3wKTwZ+0D8YvHPhbxJ8UvAnhDxP8AB3xn468T+OvA/jnQfFHifTtC1LQ/+ET8S6ve6VZ63eWmpXEOh6/paadrekalLDcWeoxKZo5v9YCgD+Z3/g658P6Lq3/BMPRNX1GC2bU/C/7Tfws1Hw/cSx5uYrzUPDXxE0O9htZQN6CfStTvXniLeVKtsjurSwwMn8iv/BGH/glF4d/4Ks/Eb42+BPEXxo1v4MRfCXwV4Z8W22paL4KsfGkmtya/rt3o8ljPbX3iLw6tklstss6TxzXLSMxjMSAB6AP6D/8AiDr+GX/R9njv/wAMP4f/APnnV/G/+2N8Arb9lf8Aaq/aD/ZwsvE8/jSy+CXxZ8a/De08WXWlR6HdeILXwtrV1plvqlzpEN/qkWnz3UUCSTW0WoXUaSFtku0hQAfNlFABRQAUUAFfW37JP7PcXx9174hKNT8O3GpfDnwDqXjrRfhzqviCHw7rvxX1DTnU/wDCIeD7m8SPTLvXfsq3N/Bpeo6rocesSwW+j2mpHUtRsrK7/Q/CfKMnz3xG4Ry7iLL82zbh95tTxueZVkWGWLzjM8oyqlVzXMsuy/DOvhnWxGNweCrYaMadaNe1VvDxqV1TpT1o0nXqRpRU5SnzKMacJTqTkotxhThFNynNpRiktZNH6X/ET4FfD7wx4V/Zw8ZfCPVPFWr2vx3+DEPxC1Hwnq/h9rLXPBni3Q7650nx/wCEp9PsoxNAnhe/gEV1FcQGWwKTq9xe2sMWoT+S6p8EvHHihUhsvC3ip7WUDzbqz8N6zfAq2B8rQ2bxRKARmW4eCFBzJNGnI/6b/B3xty3jjw+4e4zzenlfDOKqwzfBYrI546hh5YD+w87zTIMNTdOu6dXDLFUsqjiqFFwdqdWMKDrKEJS+Rw/AuY4vEuWEyrFvmqTc6UcLWnOm4VJ0pufue5aVOXvSitrtvU+wZvh1+yx+zR+yb8TtH+IOofCjx149+Kmn/DeLRtL8QeHNV1nU/ht4Qv8Aw7pXin4o6pJDd6dGbL4vx61q1x4F0O50O6bU9AuPCFxd2WraNY68zv8Azhar/Zv9p6j/AGMLsaR9vvP7KF+Y2vhpv2iT7CL1oVWFrsWvlfaTEqxmbeUULgV/h79OqnjMz41wPG/EGX4jIM74sx2Phw/w5XxFHE1su8PMhyfhzK8pxWLlh6k6VGeZ8Sw4ox2Eo3lW9jWqvESXLRhH6+WVVMpoQo4jlhXlOXLQhOFSNPDxp0rTqTpynB1ateVZ8sJSVOnCKlLnbhChRX8HmIUUAFFABRQAUUAFFABRQB/q+/8ABBxt3/BIz9iMjt8NvEC/inxL8cIf1U1+r2uuY9D1mQdU0rUXGPVbSY/0oA/xJK/2Ev8AgmX/AMo3f+CfX/ZkP7KP/qh/AVAH57/8HLX/ACh8/aO/7Gr4C/8Aq8/h/X8Gn/BFn/lKv+wr/wBl98L/APoi/oA/1sa+Gv2/f+Ce/wAA/wDgpH8I/C/wU/aJn8eQeDfCPxG0z4o6S3w98RWXhnWD4n0nwz4r8J2gur6/0TXoptN/srxlrPm2i2kTvc/ZJhOogMcgB8ofsh/8EFf+Cbn7F3xN0H4z/DT4U+I/F3xT8IzR3fg7xj8WfG2q+NpvCWpoHA1vQtAVNJ8IW2vxlkey1yfw7c6po80SXGh3WmTtNJL+ylAH8NP/AAdkft9eBfFw+FX/AAT9+HOv2mv674E8aQfGb48z6TfrLb+F/EFt4a1bQfh38P8AUTBE6T6zJpHi7XvFmvaZJdJ/ZEUng+ae2mu7wHTfOP8Agz2/5OE/bL/7I18Of/U31SgD+92v8if/AIK8f8pQf29f+zpPi9/6lmoUAfnPRQAUUAFFABX0n+z98KPFHibU4/iBFqkPhTwv4U1DfJ4gvJ3thqOp2sP2r+xNPCYaYSo0KatcMRb2Nhcs7+fK0dtJ+4fRu4Kz3j7xt8O8kyCtUweKwvEmW5/i8ypzdKWVZVw7iqWb5jmCqpr2dWjhsJKGFblGM8ZVw9KU4Rm5x9PKMHUxuYYajTfJaaq1KjdlTpUmpzm300XLHo5yim1e5+nngP4peM4rK1ktfFmrW8OAknl6lNdWfynDNbM0k0TwScSQvGxSSNldGKEMe08TfE69ntG+2+LNfu3KYdLaVIWPXcvm7i6555U5xX/SzU4ZybF5jhsflmV5XW+tRpV44yEIewq0qqp1KVaPsVyVYzpyU4yi3GopJptSP1unSk6SjKvVnQcYyjSdSUqcbxTbSbcbabparrY+NJvHvgC/+MXw+0n4pwtYfCbUvEUtp4x3yXN7qGtR3Gmahbae2s6i4mvZNOtNWnsLqSBWFtapG8yosgWRfnn9rz9mO8/Zq8eaVa6bqw8T/DX4gaSfFvww8WKux9U8PTPGXsNQj4C6to/2m1ivGjAiure5sb9Utnu5LK1/yT/aLZPQ4jzHF55hMThq+Z+F+Z5dkeeYenSjSr4XJeLcuy7EZO63L7vsp5nhsXVwFGCapxxePu4xjTU/mM+y7CY3JsfmGHny4/JMww8cTh0vdeVZhSoUaFZStrOlmEeWSveSxcpWSjr8m0V/lEfnAUUAFFABRQAUUAFfsR/wTe/4Il/tU/8ABT74d+Mvil8CfHvwA8H+E/AXjx/h94hT4r+L/G+j68NYj0LQPERuNP0bwd8N/HBn0+fTfEES2V1fXWmx3V7Yana7ovswlkAP3B+H3/BnZ4+vLeCf4q/t1eEPDl0rRNc6X8PvgXrPjW3lTI8+KDXvEfxK8AyW7YyIriTw5cjOGe2/hr+Rv9oz4Vr8C/2hPjt8EkudSvY/g98ZPid8LY73WLRLDV7yPwB411vwpHd6pYxExWeoXKaSs95axkxwXEkkUZKKDQB/qTf8ELNIvtD/AOCSn7D9lqEUkM83wovdXjSWJ4mNl4h8ceLdf0yUK4BMc+nalaTwyD5JoZEmjJR1J/TP4i67ZeF/h9468S6m4j07w74N8T67qEhYIEstI0S+1C6cu3ChYLeQljwuMngUAf4oNf7CX/BMv/lG7/wT6/7Mh/ZR/wDVD+AqAPz3/wCDlr/lD5+0d/2NXwF/9Xn8P6/g0/4Is/8AKVf9hX/svvhf/wBEX9AH+tjX5Wf8Fdf+Cmf/AA6t/Z28CfHz/hSf/C9/+E1+NOhfCD/hE/8AhZH/AArD+zP7a8DfELxn/wAJD/bv/CBfEP7b9m/4QT+zf7J/sa087+1ftn9pxfYfst4AfzoXn/B5FevCy2H/AATttba4/hlvP2sZr6Ef70EP7Nunu34XKV8DftRf8HVX7fvxq0HVvCXwS8KfC/8AZZ0bV4Lq0l8R+Era/wDH3xSt7O8ha3mgsPGPjDHh3SpvIkkEOr6N4B03xBYXJjvtI1fTbyCCaMA/mc1jWNX8Ravqmv8AiDVNS1zXtc1G91jWtb1i+utT1fWNW1K5lvNR1TVNSvZZ7zUNR1C8mmu729u5prm6uZZZ55ZJZGY/2A/8Ge3/ACcJ+2X/ANka+HP/AKm+qUAf3u1/kT/8FeP+UoP7ev8A2dJ8Xv8A1LNQoA/OeigAooAKKACvtf4o+MfBF18DPCfhTwtq8M2gaLoegWOmx6ddQ22qz+OWLXviyTxBokrQX0em3BfULtLsQGFr2/t41lu41DR/1J9HDiDhThvIPpAYzPM4o5XnmY+Dme8PcOUvbfVsdjP7Zl7PMVlVebhSnjadWjldN4ONWOLxGGxOIqYelUpYbFSperl+Ip4fC5peSjWrYWFCmtm6c6sXV5X35oUrxvdxcmk7XX3n8OPBOiJ4a0OPSdTS5hGh6SkltIrv5ogsIIEuYLiPcpWaKNGAkVcf3jzVTxpoEVjHKsSxxZzy+HPfoFYn6c9fpX/QPwxxVleAyDJalLF0FleByLLaOHxEasZUa9HB4DD0cPUhy25XUp0oc9PeMuZarU+vp8V4CGX06ka1PmjRilG/vKSjFWknbWLfTtuz81/2itPWy8TaDNc3E1xYzQN5ltEVikCpNGbl4NybVkljIRHdWAITIxkNL+0Z8a9G+Kkfw/0TwqfEkfhfwPoL2dnaeJL24vJ7e9vIrCC6jga4v9QJjWPTYHecSp58s0g8sJFHX+Kn0k/FHIMPxp9K3IsRPMsfn/ifjPCinkeJpxo1MqwmB4ZWXZnmDxPPUjOhiYYajSwWClSoVJypYvFR9pRjKqq/x7zZYinmcoTqP+0VQg3GVqcoUKtOpaUU7Ozprlbva2lru/zHRX+f55YUUAFFABRQAUUAFf1t/wDBpp+2P4f+FP7SXxo/ZI8bazp2kab+0h4c0DxX8NrjVb6Czjn+KXwzfVIZvCmm/aLiGObU/GXg7xJqd9HAqTXF1N4FsrO0UTXAjmAP9BWvwd/a0/4N1P8Agnv+2H+0nrf7Tvj8/Gnwd4u8aanBrnxI8K/DPxxoOg+B/iFr0UNvBca1rNjrXgvxJrujahq8NtGNdk8H+IPDcepXBm1Ty7fWru+1O6AP288FeDfC/wAOfBvhL4e+B9Fs/DfgrwJ4Z0HwZ4Q8O6crpp+geF/C+lWmieH9FsFkeSRbPStJsbSxtVkkkcQQIHd2BY/lP/wXR/a98Nfshf8ABNn9ojWb3WbWy8e/GXwXrnwD+FGkefCmq6v4r+KWk3vhrU9Q0u3kcNJ/whnhG98Q+Mrq4KPBANEggcNcXtpBcAH+UbX+wl/wTL/5Ru/8E+v+zIf2Uf8A1Q/gKgD89/8Ag5a/5Q+ftHf9jV8Bf/V5/D+v4NP+CLP/AClX/YV/7L74X/8ARF/QB/rY1/Kz/wAHdf8Ayjt+BP8A2el4F/8AVG/tB0Af52tFABX9if8AwZ7f8nCftl/9ka+HP/qb6pQB/e7X+RP/AMFeP+UoP7ev/Z0nxe/9SzUKAPznooAKKACigAr9H/h9/wAE8vFHiTQ7xPEXi7TbHxvrXhnT9e8C+GvDhbXICbi0bUrr/hLb8WsdvZw2toI4pRpVxdpFNJJKLycQR213+ueEfhRjvFPM8yw1HH0MtwOU4aE8ZiZ3niJYrH0sZTyqhh6HK1UjVxmG/wBrnOdONHCxqyjKVZ0qc/HzjOKeU0qUpU5ValabVOC0jy05QdaUpdOWE/cVnzTcVa12vrf4FeFo/AfgXVfCtt4q07xHrPwp0mO5+It4YdXmsdFa5l1C6bS7GWextVvGtUVbHS4ZLmyZre0Z3ihiQBKPgf4heBfjdq2jaPd61aeEbzWr3TLS30rUruxh16QaxLq8Gn3ltp8t2HuLKaSwsJA8aGUwaxZMY0BkaP8A0fyPiqfC3DvBPBWZ8RU3TlllDJKWZ4jFexo18dk8cPlmJp06uMdB1q2KxVOusLSUPaVFQqKzk4xXwVXE47ETxlaiqqpxqe2WHinLkpV71YNKHNyxhBxc29I3TfVn15N/wRv0/wCN3xC0rwj42+N2ifD3xBpV34U1668OW1q2raprfwx1OG7m1e/07X5vI0jRNdupITa2Ud3pmqWen3MUct5HdpLFDL+c/wDwUW/4Jz/D/wDZItbrx/8AC747+HvGng3UvGcfhrT/AIZ63cm7+KHhUNZ3D3Mer6zp+m6XoPiQWF/ZXMEl5ZaVobPayQXEdlNGj3E38i+N3hZis1zLizjjB1qnLh8Dgs5q1a9lhMTllLAVoSqutKNOpHHVJ4WlhqNBwbdSKptJVqco/UZLmqhSw2Eryi6k6s6Fl/EVZzp+4o6pwipynKXSNntF3/JOiv4+PrQooAKKACigAooAK2PD3iHXfCWv6H4q8L6vqPh/xN4Z1jTPEHh3X9HvJ9P1fQ9d0a9g1LSNX0u/tXjubHUdN1C2t72xvLeSOe2uYYponWRFYAH9nn7CH/B2heeFPBui+Af+CgHwh8V/ELW9Ft4LFfjv8EofCsXiLxLCm2JLvxr8L9ZvvB/huPV41HnajrvhHxJpllfg7bXwTZzxPLe/slon/Bzt/wAEj9V05L2/+LfxO8NXLxGRtI1v4H/ESfUYnA4geXw5pXiDSTK3QGPVJIc/emA5oA+Wv2hf+DtD9h3wNoWpQfs8fCv41fHfxobaf+x5de0jSvhV8PBdeSwtn1TXNX1LWPGYjS4aNpLaz8Av58KTKL+1kMTt/FB+3x/wUJ/aR/4KN/Geb4x/tDeJobk6dDdaX8P/AIe+HUutP+Hvwv8ADd1OlxLofg7RLi6vJYnvJIbebXNf1O71DxH4huLa0bV9UuYNP0u1sAD4dr+8v9j/AP4Oiv2Af2fv2Sv2XPgN4y+EH7YWp+L/AIJfs6fBL4ReK9S8M+APgte+G9Q8SfDb4aeGfBuuXvh681X9oHRdUu9Du9U0W6n0m51LR9Jv57CS3lvNNsLhpLWIA+Wv+CvH/Bw5+xZ+35+wb8WP2Xfg78MP2ofDXj/x3rXwz1LSNY+Jfgr4UaP4PtoPBnxI8L+MNUTUtQ8LfGvxlrUMs+maJdQWC2vh+8SW+kt4rh7W3eS6i/mg/wCCe/7Q3gv9k79tb9m39o/4i6X4o1rwP8Hfido3jTxNpXgqy0rUfFd9penR3KT2+hWOu634c0i61BjMvlRahrmmW7ANvukwAQD+4/8A4i5/+Cbv/RE/23v/AA2/wH/+iUr8V/8Agun/AMFzP2TP+CnH7Knw2+BnwF+Hn7RPhLxb4O/aD8N/FjU9R+LvhL4a6D4dn8O6P8OPil4PubKwu/Bnxb8fanLrUmp+N9KngtrjSLWxaxt9Qlk1GK4itra7AP5UaKACv3s/4INf8FSf2f8A/gl18Uvj/wCN/j/4P+MXi/Sfir4A8J+FfD1v8HvD/grxBqFnqGheIrzV7ubWYvGvxB+H1tb2UltcIltJY3eozvOGWW3hjAlYA/pq/wCIuf8A4Ju/9ET/AG3v/Db/AAH/APolK/hY/br+OvhH9p39sn9pn9ofwFp3iPSPBfxn+M/jv4i+F9L8X2emWHiiw0TxPrl1qdha6/ZaNq+v6Ta6rDBOiXkGna3qlpHMGWG+uEAkIB8oUUAFFABRQAV9J/Bj9pP4yfDfxv4T1TQ/GWqXi6VbN4ds9L1u8vdQ0pNFvFWB9P8Aswu4JUt4lWJoEhuIhH5EUR3WwaB/suBuMOIODM/wGZZBmFbB1Hj8vlicPGpVWEzClh8XTrQw2Po0qlJ18PKScZQ54S5JzUJwc2zix+Dw+Nw9SniKamlTqck7LnpSlBrnpyafLNbp2auldMm1n9pr4tWGvfFKLS9YstLsPiLeTJ4j0qz06H+znmg228V5aRXDXE1veLDEE8xp5VYO26M4TZ832l5d2N3bX9lcz2l9Z3MN5aXlvK8NzbXdvKs0FzBNGVkinhmRJYpUYOkiq6kMAa7uNvEHifi/HYZ5xjIOOSZhnFbKoYWksOsC8yzKWPrQpTjKVVxpVowWGdWpUqUacIx9pJ80nngMuwuCpy9jB3r0qEazm+f2ipUlTjzJrl1i25WSUm27dD6Z0P8AbO/aW0PxvH8Qv+Fq+JNX8Sx6FD4aE+tXkt3anRrYEW1p9jhe2hj8hiZFmhEU7uzmeWUSSB/DfGvj7xj8Q9bv/EHjPxDquv6nqN9dajPJqF5cTxR3N4/mTm1t5JGhtUY4XZAiDaqg5xmnxB4p8dcU5JHIM+z/ABWYYD+0sRmlVVHyVcRXrqKVHESpezhUweGlGVTCYT2aoYepUm6cUo0o01h8pwGErvE0KEYVPZRpLVyjFR+1FSu1UkklOd3KSSu9Xfj6K/Pj0gooAKKACigAooAKKACigAooAKKACigAooAKKACigAooAKKACigD/9k="'

-- // ------------------------------------------------------------------------
-- // Registry declaration
-- // ------------------------------------------------------------------------
FuRegisterClass(
  -- >>> SCHNIPP::FUREGISTERCLASS
  (FC_PREFIX==nil and "ST_" or (FC_PREFIX=="" and "" or FC_PREFIX.."_"))..dctlfuse_name, CT_SourceTool, { REGS_Category = (FC_SUBMENU==nil and "Shadertoys (dev)" or (FC_SUBMENU=="" and "Fuses" or FC_SUBMENU))..(FC_CATEGORY==nil and "\\"..dctlfuse_category or ( FC_CATEGORY ~= "" and "\\"..FC_CATEGORY or "")), REGS_OpIconString = (FC_SCPREFIX==nil and "ST-" or (SC_SCPREFIX=="" and "" or FC_SCPREFIX.."-"))..shadertoy_id,
  REGS_OpDescription = "Shadertoy '"..shadertoy_name.."' (ID: "..shadertoy_id..") created by "..shadertoy_author.." and ported by "..dctlfuse_author..(shadertoy_license == "" and ". Copyright "..shadertoy_author.." (CC BY-NC-SA 3.0)" or ". "..shadertoy_license)..". This port is by no means meant to take advantage of anyone or to do anyone wrong : Contact us on Discord (https://discord.gg/75FUn4N4pv) and/or GitHub (https://github.com/nmbr73/Shadertoys) if you see your rights abused or your intellectual property violated by this work.",
  REG_Fuse_NoEdit = not(FC_DEVELOP==nil or FC_DEVELOP==true), REG_Fuse_NoReload = not(FC_DEVELOP==nil or FC_DEVELOP==true), REG_Fuse_TilePic = FC_TITLEPIC, REGS_Company = dctlfuse_company==nil and dctlfuse_author or dctlfuse_company, REGS_URL = dctlfuse_authorurl==nil and "https://nmbr73.github.io/Shadertoys/" or dctlfuse_authorurl,
  REG_Version = FC_VERSIONNO~=nil and FC_VERSIONNO or (dctlfuse_versionNo==nil and 1 or dctlfuse_versionNo),
  -- <<< SCHNAPP::FUREGISTERCLASS

  REG_NoObjMatCtrls      = true,
  REG_NoMotionBlurCtrls  = true,

  REG_Source_GlobalCtrls = true,
  REG_Source_SizeCtrls   = true,
  REG_Source_AspectCtrls = true,
  REG_Source_DepthCtrls  = true,
  --REG_OpNoMask           = true,
  REG_TimeVariant        = true,
  REG_NoPreCalcProcess   = true,  -- call Process for precalc requests (instead of PreCalcProcess)
  })

  dctlfuse_versionNo =  dctlfuse_versionNo/10

-- // ------------------------------------------------------------------------
-- // DCTL kernel parameters
-- // ------------------------------------------------------------------------
RayCastSphereParams =
[[
  float center[2];
  float angle;
  float pivot[2];
  float debug;
  float scale;
  float freq;
  float color[4];
  int width;
  int height;
  float itime;
  int compOrder;
]]


-- source of kernel
RayCastSphereKernel =
    [[
      #define PI 3.1415926f
      #define STEP_SIZE 0.001f //a lower value produces better results but requires more computation

      __DEVICE__ float3 getEyeVec(float2 xy, float3 eyeOrigin) {
        return normalize(to_float3_aw(xy,0) - eyeOrigin);
      }

      __DEVICE__ float angleBetween(float3 a, float3 b) {
          //TODO: signed version
          return _acosf(dot(a, b) / length(a) / length(b));
      }

      //source: https://math.stackexchange.com/questions/1830695/how-to-rotate-a-3d-vector-on-the-surface-of-a-plane-by-a-known-angle
      __DEVICE__ float3 rotateInPlane(float3 v, float3 n, float theta) {
          return _cosf(theta)*v + _sinf(theta)*cross(n, v);
      }

      __DEVICE__ float3 getIntersectionCandidate(float3 sphereOrigin, float3 eyeOrigin, float3 eyeVec, float angleInc) {
        float3 eyeSphere = eyeOrigin-sphereOrigin;
          float theta = angleBetween(eyeSphere, eyeVec)*angleInc;
          //normal of the plane defined by the eye origin, sphere origin and the eye vector
          float3 n = normalize(cross(eyeSphere, eyeVec));
          return normalize(rotateInPlane(eyeSphere, n, theta));
      }

      //we have a triangle formed by three vectors, with only one known side
      //and would like to determine (the lenght of) one of the unknown sides (belonging to vector c)
      //in other words a + mu * b + lambda * c = 0
      //mu and lambda are unknown scalars
      //lambda is what we are looking for
      //c should be normalized
      __DEVICE__ float getDistanceToRay(float3 a, float3 b, float3 c) {
          //TODO: check for corner cases!?
          return (a.x*b.y*b.z - 0.5f*a.y*b.x*b.z - 0.5f*a.z*b.x*b.y)/(c.x*b.y*b.z - 0.5f*c.y*b.x*b.z - 0.5f*c.z*b.x*b.y);
      }

      __DEVICE__ float map(float value, float low1, float high1, float low2, float high2) {
      return low2 + (value - low1) * (high2 - low2) / (high1 - low1);
      }

      __DEVICE__ float2 xyzToLatLon(float3 v) {
          float3 p = normalize(v);
          float lat = map(_asinf(p.z),-PI*0.5f, PI*0.5f, 0.0f, 1.0f);
          float lon = map(_atan2f(p.y, p.x), -PI, PI, 0.0f, 1.0f);
          return to_float2(lat, lon);
      }

      __DEVICE__ float3 xRot(float3 v, float theta) {
        float x = v.x;
        float y = v.y*_cosf(theta) - v.z*_sinf(theta);
        float z = v.y*_sinf(theta) + v.z*_cosf(theta);
        return to_float3(x,y,z);
      }

      __DEVICE__ float3 yRot(float3 v, float theta) {
        float x = v.z*_sinf(theta) + v.x*_cosf(theta);
        float y = v.y;
        float z = v.z*_cosf(theta) - v.x*_sinf(theta);
        return to_float3(x,y,z);
      }

      __DEVICE__ float3 zRot(float3 v, float theta) {
        float x = v.x*_cosf(theta) - v.y*_sinf(theta);
        float y = v.x*_sinf(theta) + v.y*_cosf(theta);
        float z = v.z;
        return to_float3(x,y,z);
      }

__DEVICE__ float2 spin(float2 uv, float2 center, float angle, float aspect)
{
    float C = _cosf(angle);
  float S = _sinf(angle);

  uv -= center;
  float x = uv.x;
  uv.x = (x*aspect * C - uv.y * S);
  uv.y = (x*aspect * S + uv.y * C);
  uv += center;

return uv;
}

//############################################################################################################################
__KERNEL__ void RayCastSphereKernel(__CONSTANTREF__ RayCastSphereParams *params, __TEXTURE2D__ iChannel0, __TEXTURE2D__ iChannel1, __TEXTURE2D_WRITE__ dst)
{
  DEFINE_KERNEL_ITERATORS_XY(x, y);
  //---------------------------------------
  if (x < params->width && y < params->height)
  {

     //-----------------------
     float2 fragCoord = to_float2(x, y);
     float2 iResolution = to_float2(params->width, params->height);
     float ratio = (float)params->width/(float)params->height;
     float itime=params->itime * params->freq;
	 float4 fragColor = to_float4_s(0.0f);
     //-----------------------

    //Functionality.......
    float width = iResolution.x+1;
    float height =  iResolution.y+1;
    float fov_h = PI / 3.0f;
    float eyeZ = -width / 2.0f / _tanf(fov_h*0.5f);
    float3 eyeOrigin = to_float3(width*0.5f, height*0.5f, eyeZ);
    float fov_v = _atan2f(height*0.5f, eyeZ)*2.0f;

    float3 sphereOrigin = to_float3(width*0.5f,height*0.5f, -500.0f);
    float sphereRadius = 200.0f;

	float3 eyeVec = getEyeVec(fragCoord, eyeOrigin);

	// Standardparameter
	float2 uv = to_float2(eyeVec.x,eyeVec.y);

    uv -=  to_float2( (params->center[0]-0.5f), (params->center[1]-0.5f)/ratio);
    uv *= params->scale;
    float2 pivot = to_float2(((params->pivot[0]-0.5f)),(params->pivot[1]-0.5f)/ratio);
    uv = spin(uv, pivot, params->angle, 1.0f);

	eyeVec = to_float3(uv.x,uv.y,eyeVec.z);


    float3 eyeSphere = eyeOrigin-sphereOrigin;

    //DEBUG
    float theta_limit = _asinf(sphereRadius/length(eyeSphere));

    uv = fragCoord / iResolution;


    //fragColor = to_float4(uv.x,uv.y,0.5f+0.5f*_sinf(itime),1.0f);
    //fragColor = to_float4_aw(eyeVec(fragCoord, eyeOrigin),1.0f);
    fragColor = to_float4(params->color[0], params->color[1], params->color[2],params->color[3]); // Background
    for (float i=0.0f; i<1.0f; i = i+STEP_SIZE) {
    //float3 isc = getIntersectionCandidate(sphereOrigin, eyeOrigin, eyeVec, i);
        float3 isc = normalize(_mix(normalize(eyeVec),normalize(eyeSphere),i));
        float d =  getDistanceToRay(eyeSphere, eyeVec, isc);
        float3 isc_r = xRot(yRot(isc, itime*1.0f),itime*0.3f);
        float2 latlon = xyzToLatLon(isc_r);
        float displacement = _tex2DVecN(iChannel1, latlon.x, latlon.y, 15).x*100.0f;
        if (d <= sphereRadius + displacement && d > 0.0f) {
            //fragColor = to_float4(latlon, 0.0f, 1.0f);
            fragColor = _tex2DVecN(iChannel0, latlon.x, latlon.y, 15);
            //fragColor = to_float4((sphereOrigin + isc_r*d)*0.005f, 1.0f);
            break;
        }
    }
    _tex2DVec4Write(dst, x, y, fragColor);
  }
}
]]

-------------------------------------------------------------------
--       Create
-------------------------------------------------------------------
function Create()
--------------------------------------------
StandardShaderFuseTopControls();
--------------------------------------------

  Sep1 = self:AddInput(string.rep("_", 52), "Separator1", {
    LINKID_DataType = "Text",
    INPID_InputControl = "LabelControl",
    INP_External = false,
    INP_Passive = true,
  })

  --------------- RayCastSphere ---------------
  InCenter = self:AddInput("Center", "Center", {
    LINKID_DataType = "Point",
    INPID_InputControl = "OffsetControl",
    INPID_PreviewControl = "CrosshairControl",
    INP_DoNotifyChanged = true,
    })

  InScale = self:AddInput("Scale", "Scale", {
    LINKID_DataType = "Number",
    INPID_InputControl = "SliderControl",
    --INPID_PreviewControl = "RectangleControl",
    RCD_LockAspect     = 1,
    RC_DoLockAspect    = true,
    RCID_Center        = "Center",
    INP_Default = 1.0,
    INP_MinAllowed = 0.1,
    INP_MaxAllowed = 5.0,
    })

  InDebug = self:AddInput("Debug", "Debug", {
    LINKID_DataType = "Number",
    INPID_InputControl = "SliderControl",
    INP_Default = 1.0,
    --INP_MinScale = 0.0,
    --INP_MaxScale = 5.0,
    --INPID_PreviewControl = "RectangleControl",
    RCD_LockAspect     = 1,
    RC_DoLockAspect    = true,
    RCID_Center = "Center",
    IC_Visible          = false,
  })

  InAngle = self:AddInput("Angle", "Angle", {
    LINKID_DataType = "Number",
    INPID_InputControl = "ScrewControl",
    INPID_PreviewControl = "AngleControl",
    --INP_MinAllowed =   0.0,
    INP_MinScale = 0.0,
	  INP_MaxScale = 360.0,
    INP_Default = 0.0,
    ACID_Center = "Center",
    --PC_GrabPriority = 1 -- give this a higher priority than the rectangle
    })
  InPivot = self:AddInput("Pivot", "Pivot", {
    LINKID_DataType = "Point",
    INPID_InputControl = "OffsetControl",
    INPID_PreviewControl = "CrosshairControl",
    CHC_Style = "DiagonalCross",
    PC_GrabPriority = -1,
    })
  InWidgets = self:AddInput("On-Screen Widgets", "OnScreen Widgets", {
    LINKID_DataType = "Number",
    INPID_InputControl = "MultiButtonControl",
    INP_Default = 0,
    INP_Integer = true,
    INP_External        = false,
	INP_Passive         = true,
    INP_DoNotifyChanged = true,
    MBTNC_ForceButtons = true,
    MBTNC_StretchToFit = true,
    { MBTNC_AddButton = "Show", },
    { MBTNC_AddButton = "Hide", },
  })


  Sep2 = self:AddInput(string.rep("_", 52), "Separator2", {
    LINKID_DataType = "Text",
    INPID_InputControl = "LabelControl",
    INP_External = false,
    INP_Passive = true,
  })

  InFrequency = self:AddInput("Frequency", "Frequency", {
    LINKID_DataType = "Number",
    INPID_InputControl = "SliderControl",
    INP_Default = 1.0,
    --INP_MinAllowed = -1.0,
    --INP_MaxAllowed = 1.0,
    })

  InStop = self:AddInput("Stop", "Stop", {
    LINKID_DataType = "Number",
    INPID_InputControl = "CheckboxControl",
	  INP_Integer = true,
    INP_DoNotifyChanged = true,
    INP_Default         = 0,
    IC_Visible          = true,
    --INP_External        = false,
  })
  InStartStop = self:AddInput("", "StartStop", {
    { MBTNC_AddButton = "Stop", MBTNCID_AddID = "StopAnimation", },
    { MBTNC_AddButton = "Start", MBTNCID_AddID = "StartAnimation", },
    INPID_DefaultID = "StartAnimation",
    LINKID_DataType = "FuID",
    INPID_InputControl = "MultiButtonIDControl",
    ICD_Width = 1.0,
    MBTNC_StretchToFit = true,
    MBTNC_ForceButtons = true,
    INP_DoNotifyChanged  = true,
    IC_Visible = false,
    --INP_External = false,
  })


  InActtime = self:AddInput("Acttime", "Acttime", {
    LINKID_DataType = "Number",
    INPID_InputControl = "SliderControl",
    INP_Default = 0.0,
	  IC_Visible          = false,
    --INP_MinAllowed = -1.0,
    --INP_MaxAllowed = 1.0,
    })

  InTimeoffset = self:AddInput("Timeoffset", "Timeoffset", {
    LINKID_DataType = "Number",
    INPID_InputControl = "SliderControl",
    INP_Default = 0.0,
    --INP_MinAllowed = -1.0,
    --INP_MaxAllowed = 1.0,
    })



self:BeginControlNest("Parameter", "_Parameter", true, {})

 InRedCH = self:AddInput("Red", "RedCH", {
    ICS_Name            = "Background Color",
    LINKID_DataType     = "Number",
    INPID_InputControl  = "ColorControl",
    INP_Default         = 0.5,
    INP_MaxScale        = 0.5,
    CLRC_ShowWheel      = false,
    IC_ControlGroup     = 1,
    IC_ControlID        = 0,
  })
  InGreenCH = self:AddInput("Green", "GreenCH", {
    LINKID_DataType     = "Number",
    INPID_InputControl  = "ColorControl",
    INP_Default         = 0.5,
    IC_ControlGroup     = 1,
    IC_ControlID        = 1,
  })
  InBlueCH = self:AddInput("Blue", "BlueCH", {
    LINKID_DataType     = "Number",
    INPID_InputControl  = "ColorControl",
    INP_Default         = 0.5,
    IC_ControlGroup     = 1,
    IC_ControlID        = 2,
  })
InAlphaCH = self:AddInput("Alpha", "AlphaCH", {
    LINKID_DataType     = "Number",
    INPID_InputControl  = "ColorControl",
    INP_Default         = 0.5,
    IC_ControlGroup     = 1,
    IC_ControlID        = 3,
  })


self:EndControlNest()

--------------------------------------------

   InLogoSw = self:AddInput("Logo", "LogoSw", {
    LINKID_DataType = "Number",
    INPID_InputControl = "CheckboxControl",
  	INP_Integer = true,
    INP_DoNotifyChanged = true,
    INP_Default         = 1,
    IC_Visible          = true,
    INP_External        = false,
	  INP_Passive         = true,
  })

--------------------------------------------
StandardShaderFuseBottomControls();
--------------------------------------------
------------------- In/Out -----------------
  InImage1 = self:AddInput("Image", "Image", {
    LINKID_DataType = "Image",
    LINK_Main = 1,
	  --LINK_Visible = false,
    INP_Required = false
  })
  InDepthTex = self:AddInput("Depth", "DepthTex", {
    LINKID_DataType = "Image",
    LINK_Main = 2,
	  --LINK_Visible = false,
    INP_Required = false
  })


  OutImage = self:AddOutput("Output", "Output", {
    LINKID_DataType = "Image",
    LINK_Main = 1,
  })
end


-------------------------------------------------------------------
--       NotifyChanged
-------------------------------------------------------------------
function NotifyChanged(inp, param, time)


  if inp ~= nil and param ~= nil then

    if inp == InCenter then
        -- the center moved, reposition the axis according to the current offset
        nCenterX = param.X
        nCenterY = param.Y

        InPivot:SetAttrs({
            PCD_OffsetX = nCenterX - 0.5,
            PCD_OffsetY = nCenterY - 0.5,
            })

        InAngle:SetAttrs({
            PCD_OffsetX = (nCenterX - 0.5)/100,
            PCD_OffsetY = (nCenterY - 0.5)/100,
            })
    end
    if inp == InWidgets then
      if param.Value == 1.0 then
         InCenter:SetAttrs({ PC_Visible = false })
         InAngle:SetAttrs({ PC_Visible = false })
         InPivot:SetAttrs({ PC_Visible = false })
         InScale:SetAttrs({ PC_Visible = false })
      else
         InCenter:SetAttrs({ PC_Visible = true })
         InAngle:SetAttrs({ PC_Visible = true })
         InPivot:SetAttrs({ PC_Visible = true })
         InScale:SetAttrs({ PC_Visible = true })
      end
    end

    if inp == InStop then
      if param.Value == 1 then
	     InActtime:SetAttrs({IC_Visible = true})
	  else
	     InActtime:SetAttrs({IC_Visible = false})
	  end
	end


    if inp == InLogoSw then
      if param.Value == 1 then
        authorlogo:SetAttrs({IC_Visible = true})
      else
        authorlogo:SetAttrs({IC_Visible = false})
	    end
	  end
  end
end

-------------------------------------------------------------------
--       Process
-------------------------------------------------------------------
function Process(req)
    local center = InCenter:GetValue(req)
    local angle = -InAngle:GetValue(req).Value/360*3.1415*2
    local debug = InDebug:GetValue(req).Value
    local scale = InScale:GetValue(req).Value
    local freq = InFrequency:GetValue(req).Value
    local framerate = self.Comp:GetPrefs("Comp.FrameFormat.Rate") -- get the frame rate of the comp set in the preferences


    --This creates an image for us to work on.
    local imgattrs = {
        IMG_Document = self.Comp,
        { IMG_Channel = "Red", },
        { IMG_Channel = "Green", },
        { IMG_Channel = "Blue", },
        { IMG_Channel = "Alpha", },
        IMG_Width = Width,
        IMG_Height = Height,
        IMG_XScale = XAspect,
        IMG_YScale = YAspect,
        IMAT_OriginalWidth = realwidth,
        IMAT_OriginalHeight = realheight,
        IMG_Quality = not req:IsQuick(),
        IMG_MotionBlurQuality = not req:IsNoMotionBlur(),
        }

    if not req:IsStampOnly() then
        imgattrs.IMG_ProxyScale = 1
    end

    if SourceDepth ~= 0 then
        imgattrs.IMG_Depth = SourceDepth
    end

    local p = Pixel({R=0,G=0,B=0,A=0})

    if (InImage1:GetValue(req) ~= nil) then
        src1 = InImage1:GetValue(req)
    else
        src1 = Image(imgattrs)
        src1:Fill(p)
    end

	if (InDepthTex:GetValue(req) ~= nil) then
        src2 = InDepthTex:GetValue(req)
    else
        src2 = Image(imgattrs)
        src2:Fill(p)
    end

    local dst = Image {IMG_Like = src1, IMG_DeferAlloc = true}


    if req:IsPreCalc() then
	   --print("\n######################### Precalc ##############################\n")
	   local out = Image({IMG_Like = dst, IMG_NoData = true})
       OutImage:Set(req, out)
	   return
	end


    --StartStop
    if InStop:GetValue(req).Value == 0 then
	   _acttime = req.Time + InTimeoffset:GetValue(req).Value
	   startstopsema = 1
	else
	   if startstopsema == 1 then
	      InActtime:SetSource(Number(req.Time),0)
	      startstopsema = 0
	      _acttime = req.Time + InTimeoffset:GetValue(req).Value
	   else
	      _acttime = InActtime:GetValue(req).Value + InTimeoffset:GetValue(req).Value
	   end
	end

    acttime = _acttime / framerate


    --Sep1:SetAttrs({LINKS_Name = "____________RayCastSphere______________________",LBLC_LabelColor = 3,})

    node = DVIPComputeNode(req, "RayCastSphereKernel", RayCastSphereKernel, "RayCastSphereParams", RayCastSphereParams)

    if not pcall(function ()
        params.center[0] = center.X
        params.center[1] = center.Y
	      params.scale = 1/scale
        params.angle = angle
        params.pivot[0] = InPivot:GetValue(req).X
        params.pivot[1] = InPivot:GetValue(req).Y
        params.debug = debug
        params.freq = freq

        params.color       = {InRedCH:GetValue(req).Value, InGreenCH:GetValue(req).Value, InBlueCH:GetValue(req).Value}

        params.compOrder = src1:IsMask() and 1 or 15
        params.width  = src1.DataWindow:Width()
        params.height = src1.DataWindow:Height()

        params.itime = acttime --req.Time / framerate

        node:SetParamBlock(params)
    end) then
        params = node:GetParamBlock(RayCastSphereParams)

        params.center[0] = center.X
        params.center[1] = center.Y
	      params.scale = 1/scale
        params.angle = angle
        params.pivot[0] = InPivot:GetValue(req).X
        params.pivot[1] = InPivot:GetValue(req).Y
        params.debug = debug
        params.freq = freq

        params.color       = {InRedCH:GetValue(req).Value, InGreenCH:GetValue(req).Value, InBlueCH:GetValue(req).Value}

        params.compOrder = src1:IsMask() and 1 or 15
        params.width  = src1.DataWindow:Width()
        params.height = src1.DataWindow:Height()

        params.itime = acttime  --req.Time / framerate

        node:SetParamBlock(params)

    end

    node:AddSampler("RowSampler", TEX_FILTER_MODE_LINEAR,TEX_ADDRESS_MODE_MIRROR, TEX_NORMALIZED_COORDS_TRUE)

    node:AddInput("iChannel0", src1)
	  node:AddInput("iChannel1", src2)
    node:AddOutput("dst", dst)

    local success = node:RunSession(req)
    if not success then
        dst = nil
        dump(node:GetErrorLog()) -- Fehlerausgabe des DCTL
    end

    OutImage:Set(req, dst)
end

-- /* ====================== DO NOT TOUCH OR APPEND ANY CODE HERE ===========================================

-- >>> SCHNIPP::SCHADERFUSECONTROLS.v2

function ShaderFuseControls_AuthImg() if FC_AUTHIMG ~= nil and FC_AUTHIMG ~= ""  then self:AddInput('<p align="'..FC_AUTHIMGALIGN..'"><a href="https://github.com/nmbr73/Shadertoys"><img '..FC_AUTHIMG..' /></a></p>',"DctlFuseLogoLabel", {ICS_ControlPage = (FC_AUTHIMGPOS == 2 and 'Info' or nil),IC_ControlPage=(FC_AUTHIMGPOS == 2 and 1 or FC_AUTHIMGPOS),LINKID_DataType = "Text",INPID_InputControl = "LabelControl",LBLC_MultiLine = true,IC_NoLabel = true,IC_NoReset = true,INP_External = false,INP_Passive = true,}) end end
function ShaderFuseControls_InfoBtn() self:AddInput(dctlfuse_name.." Info ...", "DctlFuseInfoButton", {ICS_ControlPage = (FC_INFOBTNPOS == 2 and 'Info' or nil),IC_ControlPage = (FC_INFOBTNPOS == 2 and 1 or FC_INFOBTNPOS),LINKID_DataType = "Text",INPID_InputControl = "ButtonControl",INP_DoNotifyChanged = false,INP_External = false,BTNCS_Execute = 'bmd.openurl("'..(dctlfuse_infourl~=nil and dctlfuse_infourl or 'https://nmbr73.github.io/Shadertoys/Shaders/'..dctlfuse_category..'/'..dctlfuse_name..'.html')..'")'}) end

function ShaderFuseControls_InfoTxt()
  self:AddInput('<p align="'..FC_INFOTXTALIGN ..'">'
    ..'Shadertoy <a href="https://www.shadertoy.com/view/'..shadertoy_id..'" style="color:white; text-decoration:none; ">'..shadertoy_name..'</a> by <a href="https://www.shadertoy.com/user/'..shadertoy_author..'" style="color:yellow; text-decoration:none; ">'..shadertoy_author..'</a><br />'
    ..'<span style="color:#ff6060; ">'..(shadertoy_license == "" and '&copy; '..shadertoy_author..' (CC BY-NC-SA 3.0)' or shadertoy_license)..'</span><br />'
    ..'DCTLified and DaFused by <a href="'..(dctlfuse_authorurl==nil and "https://nmbr73.github.io/Shadertoys/" or dctlfuse_authorurl)..'" style="color:yellow; text-decoration:none; ">'..dctlfuse_author..'</a><br />'
    ..'<span style="color:#4060ff; ">'..(FC_VERSIONNO==nil and '' or 'Version '..FC_VERSIONNO)..(FC_VERSIONNO~=nil and FC_VERSIONDATE~=nil and ' - ' or '')..(FC_VERSIONDATE==nil and '' or FC_VERSIONDATE)..(FC_VERSIONNO~=nil and FC_VERSIONDATE~=nil and '<br />' or '')..'</span></p>'
    ,"DctlFuseInfoLabel", {ICS_ControlPage =(FC_INFOTXTPOS == 2 and 'Info' or nil),IC_ControlPage = (FC_INFOTXTPOS == 2 and 1 or FC_INFOTXTPOS),LINKID_DataType="Text",INPID_InputControl="LabelControl",LBLC_MultiLine=true,IC_NoLabel=true,IC_NoReset=true,INP_External=false,INP_Passive=true})
end


function StandardShaderFuseTopControls()
  if FC_ITEMORDER         == nil then FC_ITEMORDER       = {ShaderFuseControls_InfoTxt,ShaderFuseControls_InfoBtn,ShaderFuseControls_AuthImg} end
  if FC_AUTHBASEDLAYOUT   == nil then FC_AUTHBASEDLAYOUT = true                  end
  if FC_INFOBTNPOS        == nil then FC_INFOBTNPOS      = 2                     end
  if FC_INFOTXTPOS        == nil then FC_INFOTXTPOS      = 2                     end
  if FC_INFOTXTALIGN      == nil then FC_INFOTXTALIGN    = 'center'              end
  if FC_AUTHIMGPOS        == nil then FC_AUTHIMGPOS      = 2                     end
  if FC_AUTHIMGALIGN      == nil then FC_AUTHIMGALIGN    = 'center'              end
  if FC_VERSIONNO         == nil then FC_VERSIONNO       = dctlfuse_versionNo    end
  if FC_VERSIONDATE       == nil then FC_VERSIONDATE     = dctlfuse_versionDate  end
  if FC_AUTHIMG           == nil then FC_AUTHIMG         = ''                    end
  if dctlfuse_authorlogo  ~= nil then FC_AUTHIMG         = dctlfuse_authorlogo   end

  if FC_AUTHBASEDLAYOUT then
    if dctlfuse_author=='JiPi' then
      FC_ITEMORDER       = {ShaderFuseControls_AuthImg,ShaderFuseControls_InfoBtn,ShaderFuseControls_InfoTxt}
      FC_INFOBTNPOS      = 1
      FC_AUTHIMGPOS      = -1
      FC_AUTHIMGALIGN    = 'center'
      FC_INFOTXTPOS      = 1
      FC_INFOTXTALIGN    = 'center'
    elseif dctlfuse_author=='nmbr73' then
      FC_ITEMORDER       = {ShaderFuseControls_InfoBtn,ShaderFuseControls_InfoTxt,ShaderFuseControls_AuthImg}
      FC_INFOBTNPOS      = 1
      FC_AUTHIMGPOS      = 1
      FC_AUTHIMGALIGN    = 'right'
      FC_INFOTXTPOS      = 1
      FC_INFOTXTALIGN    = 'left'
    end
  end

end

function StandardShaderFuseBottomControls()

  if FC_INFOBTNPOS == 1 or FC_INFOTXTPOS == 1 or FC_AUTHIMGPOS==1 then
    self:AddInput( '<br />',"DctlFuseSeparatorLabel",{LINKID_DataType="Text",INPID_InputControl="LabelControl",LBLC_MultiLine=true,IC_NoLabel=true,IC_NoReset=true,INP_External=false,INP_Passive=true})
  end

  FC_ITEMORDER[1]();
  FC_ITEMORDER[2]();
  FC_ITEMORDER[3]();

end
-- <<< SCHNAPP::SCHADERFUSECONTROLS
-- */