I made one that behaves identically to Ingela's Rapture. You should be able to easily change the bar into a texture while maintaining the functionality.
Code:
dCe1maqiGkQfjKQlHqyuav1PaQYTKkzxks5xavWWeIJjvTmLINHQyAQKRHqTnfLVjvQXbuoNIK7bujhevPfIu9qfvtuIkxebBeP4Jks1irs6KsfRur8seIMPsLUPqk7eWprsmuuvTuvQNcnvfUQevTvGkYxvQyTavQ5IKAVK)kHblromLwSsPhJOjRIllAZa5ZsXOfsonkRgOc9AuvMTsUTqTBk(nOHJklxWZv10P66sA7kv9DjkJhP05rI1JqA)sPvVgcTAix4lm0hrySWJWJgctA5SMtEeDHFUaXpKzCH0PYyqLOTlbAgcTNdZzqJDv4bwttgEnKlmKnmOzqHlf2eGvoHMA8iWAAYWlGEHlO9OHWaCLAimUUCMgYLlxi7i82Y51q2wA6byLtUqsneqVgcpSNBzPGULKVxyBjHHSHbndkCPqgj0iKwQac0NUOPRUjEQPaBZSU3qmXxB2mRxG66IyHlO9OHW6NfKl7)IUWaCLAimUUCMgYLlS(zXZLKIUqYL9Fne(mtZkfY)Dhc4qyCD5mneY)Dhc4q0Llx4ZLKAi8zMMvkGE5YfscxWGgc4sarKl0s6mO51q472GRHWdSGS(omw0fswFhglChElUTCEnKfZHW1bwMPTe4QTKhQz7KDslF8wd2FAiP1qyFA8h8J(o8wmNQeMtKf38Y)O83eIo41orUqqmd7JsdHhybz9DySOlKS(omw4o8wCB58AilMdHRdSmtBjWvBjdB1ozN0YhV1G9NgsAne2Ng)b)OVdVfZPkH5ezXnV8pk)nHOdETtKlxOPgpcSMMm8cOxO9CyodASRcpWAAYWRHCHEG10Kbnew)SWgdRgx0fEQbRZGgH9BeswFhgxef7KcDwCEe6u4sH5(04cRMCFACHolopcZ9PXfohgV16TL2f2i8RBZ9PXXkiqmAfwqaGW907aUjiKdwwggu4sbery9ZINlxlaBCk6cRFwCY3RgMl6cRFwWbllddkCPOl85Y1cWgNcVTCEnKcp57vdZfYTSuYGCHSJWBlNxdzrhZE2lKcvab6tx0mBw)1Szr4ztKRUNcSnxcuxxZKlGnAi0tADAw2Mxivk)y3oaee(ULKVhzenfqpycPLkGa9PlA6Q7RiB4HyWMI4RUbBgy9ZeOUUatifQac0NUOPRRUNQhmE6ocprIagyDh5sG666s4wljFnby1CMdxWGgc4s0mBw)1Szx9rI0d2vKzxcuxeZJCHBTH5WfmOHa6fqebSr0agXxGfjcyDh56AQP2m1La1fXxcGhb0lxixa2eY)5pKKSNbncOx4cApAiS(zb5Y(VOlmaxPgcJRlNPHC5cRFw8CjPOlKCz)xdHpZ0SsH8F3HaoegxxotdH8F3HaoeD5Yf(CjPgcFMPzLcOxUCHHSHbndkCPqBny3Adc3UsZjAWtkK(UeakNqpP1RHuy0ygwSDXExON060anUWBlrZGqIcHXciY02Cj0zXzGgOXfEBjAgeEyp3YsPdj0iSJXZailzsDhsO5Pg5Y1QGQWfLIBlNxdPW3TK898dzgx4Ccadc3cHvFXmPOl8WEULLYiP13nb5cVTCEnKc9aRPjdAi8KVxnmxi3YsjdcDkCPWCFACHK13HXfrXoPqNfNhHvtUpnUqNfNhHFDBUpnowbbIrRWccaeUNEhWnbHNAW6mOry)gH5(04cNdJ3A92s7cBew)S4KVxnmx0fw)S45Y1cWgNIUqoyzzyqHlfqeHpxUwa24u4TLZRHuy9ZcoyzzyqHlfD5cpSNmKEweGU1zqJaIimQK1eLlG(PegGU1trx4H9Cllf0TK89cjcoHXSqag0wHolod0SSnVqQu(XUDaiiKeUGbneqVa6fWgb0laEeqVaUeqVCHh2ZTSugjTUqIGt47ws((5qJBzM404c7aGDkhbHolodiJOPa6jwO9CyodASRcpWAAYWRHCHSJWBlNxdzBj62GWYyhpkb0tCVqlPZGMxdHVBdUgcpWIMfSmTvUCHGJ13zGOiCxc0meAQXJaRPjdVa6fgGU1zqJaIiKrcnARqsiCDGLz0w5cGhneEyp3YszK06cVTCEnKTLUt7Hc4SqY67W4rsRleu1q6mOb8bV2jTLAl1wQTui9AW0wk6tFrHlQ2sqqTL2Lbk3UGW4O3ojnN2jTtAN0oPDIqlPZGMxdHVBdUgcpWIhwnhrx4dRMJW2sK13HXcpWI48FBtQTcFy1Ck4SEucPM6ogpdGSKj12ZbAEQPEN0YhV1G9PMA(HLLbERb7hT8WSutncRMZtn13woVgY2s3P9qzAWMgHpSAofKrznMCjmA23ZGC5c)CbIFiZ4cNtayq4wOhynnzqdHK13HXfrXoPqNfNhHofUuiz9DySWQj3NgxOT6qHK13HXfofUuyUpnUWtnyDg0iKhH5(04cNdnhMZGMxiz9DyC5QbRZGgHTtAN0oPDs7K2jTtAN0oryUpn(lChElMtvcZjYIBE5Fu(BccjRVdJfcQAiDg0a(GxBPq61GPTKb6TL2H3IBlNxdzXCiCDGLzAlLMJqYOss(eM7tJlS(zr1WCrxUWt(wVgSEQTcbbnUWBlrZGWOswtuUOz2veI730VHhI7(Agy9ZeOUUat4cApAiS(zb5Y(VOlmaxPgcJRlNPHC5cRFw8CjPOlKCz)xdHpZ0SsH8F3HaoegxxotdHLJaVdQsKaDMovhIUC5cFUKudHpZ0Ssb0lmUUCMgcGhrxUC5cbbnoYiAkGnxcpSNBzPGULKVxir8ebPWq2WGMbfUuON06czhH3P9qPT0iP1bhqy1Ce(ULKVFo04wMjonUWoayNYrqirHWyberiJeAeDH2ZH5mOXUk8aRPjdVgYf(oJKpkLRgSodA0wHLXoEuIMztXteIV67E21u8q8mWIiqDDrSqs4cg0qa9ciIa2iGit7sUWQXdSMMmOHqY67WyHTtANixiZSpdFQTcn14rG10KHxa9cTvhk6cpSNBzP0HeAe2X4zaKLmPUdj08u3baCQiASNSGQzyBbn5A7c(pmw47ws(E(HmJlCobGbHBHEsRphUGbneqVa6fWgb0laEeqVaUeqVC5YfUxa9x9rKlba