Stationeers - simple solar clock

#=simple solar clock by swagman====================#
#  ___       _               ___  _           _    #
# / __| ___ | | __ _  _ _   / __|| | ___  __ | |__ #
# \__ \/ _ \| |/ _` || '_| | (__ | |/ _ \/ _|| / / #
# |___/\___/|_|\__,_||_|    \___||_|\___/\__||_\_\ #
#==================================================#
alias SolSens d0 #face to east or west
alias LcdDisp d1
loop:
#--get sec by hour angle
l r0 SolSens SolarAngle
mul r0 r0 600
div r0 r0 180
floor r0 r0
s LcdDisp Setting r0
#--get color
l r0 SolSens Activate
select r0 r0 5 0 #5-day, 0-night
s LcdDisp Color r0
#--
yield
j loop


                   *     .--.
                        / /  `
       +               | |
              '         \ \__,
          *          +   '--'  *
              +   /\
 +              .'  '.   *
        *      /======\      +
              ;:.  _   ;
              |:. (_)  |
              |:.  _   |
    +         |:. (_)  |          *
              ;:.      ;
            .' \:.    / `.
           / .-'':._.'`-. \
           |/    /||\    \|
     jgs _..--"""````"""--.._
   _.-'``                    ``'-._
 -'                                '-