OPTION EXPLICIT
OPTION DEFAULT NONE
option autorun on
DIM i%, j%, k%, s$
const lightlevel%=23
Const BL%=26
const LE%=24
rtc gettime
setpin BL%,DOUT
SETPIN LE%,DOUT
SETPIN lightlevel%,AIN
spi open 1000000,0,8
spi write 8,0,0,0,0,0,0,0,0
pin(le%)=1
pin(le%)=0
PWM 2,1000,PIN(lightlevel%)/3.3*100
'tens of hours
data 0,0,0,32,0,0,0,0
data 0,0,0,16,0,0,0,0
data 0,0,0,8,0,0,0,0
data 0,0,0,4,0,0,0,0
data 0,0,0,2,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,2,0,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,0,0,128,0,0,0,0
data 0,0,0,64,0,0,0,0
DATA 0,0,0,0,0,0,0,0
'units of hours
data 0,0,64,0,0,0,0,0
data 0,0,32,0,0,0,0,0
data 0,0,16,0,0,0,0,0
data 0,0,8,0,0,0,0,0
data 0,0,4,0,0,0,0,0
data 0,8,0,0,0,0,0,0
data 0,4,0,0,0,0,0,0
data 0,2,0,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,0,128,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0
' tens of minutes
data 16,0,0,0,0,0,0,0
data 8,0,0,0,0,0,0,0
data 4,0,0,0,0,0,0,0
data 2,0,0,0,0,0,0,0
data 1,0,0,0,0,0,0,0
data 0,128,0,0,0,0,0,0
data 0,64,0,0,0,0,0,0
data 128,0,0,0,0,0,0,0
data 64,0,0,0,0,0,0,0
data 32,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0
' units of minutes
data 0,0,0,0,0,0,0,16
data 0,0,0,0,0,0,0,8
data 0,0,0,0,0,0,0,4
data 0,0,0,0,0,0,0,2
data 0,0,0,0,0,0,0,1
data 0,0,0,0,0,0,2,0
data 0,0,0,0,0,0,1,0
data 0,0,0,0,0,0,0,128
data 0,0,0,0,0,0,0,64
data 0,0,0,0,0,0,0,32
DATA 0,0,0,0,0,0,0,0
' tens of seconds
data 0,0,0,0,0,1,0,0
data 0,0,0,0,0,0,128,0
data 0,0,0,0,0,0,64,0
data 0,0,0,0,0,0,32,0
data 0,0,0,0,0,0,16,0
data 0,0,0,0,0,32,0,0
data 0,0,0,0,0,16,0,0
data 0,0,0,0,0,8,0,0
data 0,0,0,0,0,4,0,0
data 0,0,0,0,0,2,0,0
DATA 0,0,0,0,0,0,0,0
' units of seconds
data 0,0,0,0,4,0,0,0
data 0,0,0,0,2,0,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,0,128,0,0
data 0,0,0,0,0,64,0,0
data 0,0,0,0,128,0,0,0
data 0,0,0,0,64,0,0,0
data 0,0,0,0,32,0,0,0
data 0,0,0,0,16,0,0,0
data 0,0,0,0,8,0,0,0
DATA 0,0,0,0,0,0,0,0
dim map%(5,10,7)
dim rearleft%(7)=(0,16,0,0,0,0,0,0)
DIM frontleft%(7)=(0,32,0,0,0,0,0,0)
dim rearright%(7)=(0,0,0,0,0,0,4,0)
DIM frontright%(7)=(0,0,0,0,0,0,8,0)
for i%=0 to 5
for j%=0 to 10
for k%=0 to 7
read map%(i%,j%,k%)
next k%
next j%
next i%
settick 30000,rtcget,1
settick 1000,lightget,2
do
s$=time$
i%=val(left$(s$,2))
i%=i%+1
if i%=24 then i%=0
i%=i%*10000
i%=i% + val(mid$(s$,4,2))*100
i%=i% + val(mid$(s$,7,2))
calcbits i%
loop

sub calcbits(k%)
 LOCal n%=k%
 local th%=n%\100000
 n%=n%-th%*100000
 local uh%=n%\10000
 n%=n%-uh%*10000
 local tm%=n%\1000
 n%=n%-tm%*1000
 local um%=n%\100
 n%=n%-um%*100
 local ts%=n%\10
 local us%=n%-ts%*10
 if PIN(lightlevel%)<0.5 then 'turn off seconds at night
   ts%=10
   us%=10
 endif
 local a%,b%,c%,d%,e%,f%,g%,h%
 a%=map%(0,th%,0) or map%(1,uh%,0) OR map%(2,tm%,0) or map%(3,um%,0) or map%(4,ts%,0) or map%(5,us%,0)
 b%=map%(0,th%,1) or map%(1,uh%,1) OR map%(2,tm%,1) or map%(3,um%,1) or map%(4,ts%,1) or map%(5,us%,1)
 c%=map%(0,th%,2) or map%(1,uh%,2) OR map%(2,tm%,2) or map%(3,um%,2) or map%(4,ts%,2) or map%(5,us%,2)
 d%=map%(0,th%,3) or map%(1,uh%,3) OR map%(2,tm%,3) or map%(3,um%,3) or map%(4,ts%,3) or map%(5,us%,3)
 e%=map%(0,th%,4) or map%(1,uh%,4) OR map%(2,tm%,4) or map%(3,um%,4) or map%(4,ts%,4) or map%(5,us%,4)
 f%=map%(0,th%,5) or map%(1,uh%,5) OR map%(2,tm%,5) or map%(3,um%,5) or map%(4,ts%,5) or map%(5,us%,5)
 g%=map%(0,th%,6) or map%(1,uh%,6) OR map%(2,tm%,6) or map%(3,um%,6) or map%(4,ts%,6) or map%(5,us%,6)
 h%=map%(0,th%,7) or map%(1,uh%,7) OR map%(2,tm%,7) or map%(3,um%,7) or map%(4,ts%,7) or map%(5,us%,7)
 b% = b% OR 48
 if ts%<>0 then g% = g% OR 12
 sendtime a%,b%,c%,d%,e%,f%,g%,h%
end sub
'
sub sendtime a%,b%,c%,d%,e%,f%,g%,h%
 spi write 8,a%,b%,c%,d%,e%,f%,g%,h%
 pin(le%)=1
 pin(le%)=0
end sub
'
sub rtcget
 rtc gettime
end sub
'
sub lightget
 PWM 2,1000,MAX(PIN(lightlevel%)/3.3*100,5)
end sub