examples/slider.gsh

   1 #!/usr/bin/env guish
   2 ########################################################################
   3 # Copyright (C) 2024 Francesco Palumbo <phranz.dev@gmail.com>, Naples (Italy)
   4 #
   5 # This program is free software: you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation, either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # This program is distributed in the hope that it will be useful,
  11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with this program.  If not, see <https://www.gnu.org/licenses/>.
  17 ########################################################################
  18
  19 slider = {
  20     bl = @1
  21     if and({not(isblock(@bl))}, {not(isfunc(some(@bl)))})() {
  22         e "[slider] at '@{LINE}': error, no function given!\n"
  23         return 0
  24     }
  25     p=|p|
  26         v!s'b:1|bc:#dbff10|g:2|a:m|h:200|w:20'X,Y
  27     l=|l|
  28         s'bg:gray|b:2|bc:black|h:40|w:15'Y
  29         => m {
  30             t = div(mul(@self.y, 100), sub(@p.h, @p.g, @self.h, mul(@self.b, 2)))
  31             if not(eq(@self.x, @t)) {
  32                 bl(@t)
  33             }
  34         }
  35     @p << @l+
  36     return @p
  37 }
  38
  39 s = slider({puts(@1)})