One Wire Weather Station project (open source)

Author

Message

jinzai

17

Years of Service

User Offline

Joined: 19th Aug 2006

Location: USA

Posted: 4th Mar 2008 13:10 Edited at: 4th Mar 2008 13:15

Link

Free time is all I have right now. (What I need is the paid time!)

I really miss my printer, oh how I miss my printer!

Yes, lets get that working.

I like your idea of a cube for display. I would think that you could make 6 plains, and draw to bitmaps...then use put image. It would be a bit of a bear at first, but definitely worth the effort.

EDIT: Also, I should be getting my tax refund before the 11th. I am getting that accelerometer. One really cool use is a seismograph, but I want to make a lightsaber/rifle/sword out of it. I posted a bit of the other code in Music & Sound FX, but you need to use an XBox360 controller for it...and noone has tried it yet. The plug-in allows you to play a wave file multiple times. (i.e. While it is already playing.)

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 4th Mar 2008 14:48

Link

Free time Yes soon to be doing that come Thursday, hope the agency can find something before then.

I think the cube might work as there are 2 plains all ready on the screen doing there task, so its just a matter of joining six plain together and make it rotate, dead easy to write in words why it take so b long in code.

if I had longer at work could have borrowed someones 360 controller and then seen what would have happpen, here why does the 360 downloaded code that I have instaled keep going out to check hardware on line, and how you stop it?

here's the other one I got going but the figures did not come back as the guy said they should.

Rem Project: sunset2
Rem Created: 04/03/2008 04:47:02

Rem ***** Main Source File *****
`'********************************************************************
`'   Sun rise/set /twilight
`'   From Explanatory Supplement
`'   definitions and functions
`DEFDBL A-Z
global tpi#
global pi#
global degs#
global rads#
global glat#
global glong#
global altitude#
global riset

pi# = 3.14159265
tpi# = 2.0 * pi#
twopi# = tpi#
degs# = 180.0 / pi#
rads# = pi# / 180.0

`glat as float
`glong as float
`altitude as float
`x as float
`j as float
`y as integer
`m as integer
`d as integer
`h as integer
`rFNacos as float
`rFNasin as float
`rFNrange as float
`rFNdegmin$ as string
`l as float
`g as float
`e as float
`utold as float
`utnew as float
`lambda as float

CLS
`'
`'    get the date and geographical position from user
`'
print "input the following"
print "    lat : 52.5"
print "   long : -1.9167"
print "   zone : 0"
print "rise/set : 1"
print "Sun alt : -0.833"
print "  year  : 1998"
print "  month : 10"
print "  day   : 25"
print "-- above input below is output ----"
print " day no : -433.5"
print "   UT   : 0651"
print "  zone  : 0651"
print "-------------------------"

INPUT "     lat : ", glat#
INPUT "    long : ", glong#
INPUT "    zone : ", zone
INPUT "rise/set : ", riset
INPUT " Sun alt : ", altitude#
INPUT "   year  : ", y
INPUT "   month : ", m
INPUT "   day   : ", d
day# = FNday(y, m, d, 0)
PRINT "  day no : "; day#
utold# = pi#
utnew# = 0
`sinalt as float
`sinphi as float
`cosphi as float
`glong as float
`ec as float
`gha as float
`days as float

sinalt# = SIN(altitude# * rads#) :`'go for the sunrise/sunset altitude first
sinphi# = SIN(glat# * rads#)
cosphi# = COS(glat# * rads#)
glong# = glong# * rads#

WHILE ABS(utold# - utnew#) > .001
  utold# = utnew#
  days# = day + utold# / tpi#
  t# = days# / 36525
`  '     get arguments of Sun's orbit
  L# = FNrange(4.8949504201433 + 628.331969753199 * t#)
  G# = FNrange(6.2400408 + 628.3019501 * t#)
  ec# = .033423 * SIN(G#) + .00034907 * SIN(2 * G#)
  lambda# = L# + ec#
  E# = -1 * ec# + .0430398 * SIN(2 * lambda#) - .00092502 * SIN(4 * lambda#)
  obl# = .409093 - .0002269 * t#
  delta# = FNasin(SIN(obl#) * SIN(lambda#))
  GHA# = utold# - pi# + E#
  cosc# = (sinalt# - sinphi# * SIN(delta#)) / (cosphi# * COS(delta#))
  SELECT cosc#
  CASE 1
    correction# = 0 :endcase
  CASE -1
    correction# = pi# :endcase
    else
  CASE  0
    correction# = FNacos(cosc#):endcase
  ENDSELECT
  utnew# = FNrange(utold# - (GHA# + glong# + riset * correction#))

endwhile
PRINT "    UT   : ";utnew# * degs# / 15
PRINT "   zone  : ";utnew# * degs# / 15 + zone
wait key
END
`'******************************************************************

`'
`'   the function below returns the true integer part,
`'   even for negative numbers
`'
function FNipart(x as float)
x = SGN(x) * INT(ABS(x))
endfunction x
`'
`'   FNday only works between 1901 to 2099 - see Meeus chapter 7
`'
function FNday(y as integer, m as integer, d as integer , h as integer )
`j= 367 * y - 7 * (y + (m + 9)) / 12 / 4 + 275 * m / 9 + d - 730531.5 + h / 24

j# = 367*y-INT(7*(y+INT((m+9)/12))/4)+INT(275*m/9)+d-730531.5
k=j/36525

endfunction j#
`'
`'   define some arc cos and arc sin functions
`'
function FNacos(x as float )
    s# = SQRt(1 - x * x)
    rFNacos# = ATaN(s# / x)
ENDFunction rFNacos#

function FNasin(x as float )
    c# = SQRt(1 - x * x)
    rFNasin# = ATaN(x / c#)
ENDFunction rFNasin#
`'
`'   the function below returns an angle in the range
`'   0 to two pi
`'
function FNrange(x as float )
    b# = x / tpi#
    a# = tpi# * (b# - FNipart(b#))
    IF a# < 0 THEN a# = tpi# + a#
    rFNrange# = a#
ENDfunction rFNrange#
`'
`'       the function below returns the time in 24 hour
`'   notation - hhmm - given a decimal hours figure.
function FNdegmin$(d)
c# = ABS(d#)
a# = INT(c#)
b# = 60 * (c# - a#)
d$ = STR$(INT(a# * 100 + b# + .5))
d$ = RIGHT$(d$, LEN(d$) - 1)
WHILE LEN(d$) < 4
    d$ = "0" + d$
endWhile
rFNdegmin$ = d$
ENDFunction rFNdegmin$

function sgn(x as float)
   s=(x>0)-(x<0)
endfunction s

`Below is the input and output of the program given the example case used throughout this page, sunrise on 1998 October 25th at Birmingham UK.

`    lat : 52.5
`   long : -1.9167
`   zone : 0
`ise/set : 1
`Sun alt : -0.833
`  year  : 1998
`  month : 10
`  day   : 25
` day no : -433.5
`   UT   : 0651
`  zone  : 0651

+ Code Snippet

Rem Project: sunset2
Rem Created: 04/03/2008 04:47:02

Rem ***** Main Source File *****
`'********************************************************************
`'   Sun rise/set /twilight
`'   From Explanatory Supplement
`'   definitions and functions
`DEFDBL A-Z
global tpi#
global pi#
global degs#
global rads#
global glat#
global glong#
global altitude#
global riset

pi# = 3.14159265
tpi# = 2.0 * pi#
twopi# = tpi#
degs# = 180.0 / pi#
rads# = pi# / 180.0

`glat as float
`glong as float
`altitude as float
`x as float
`j as float
`y as integer
`m as integer
`d as integer
`h as integer
`rFNacos as float
`rFNasin as float
`rFNrange as float
`rFNdegmin$ as string
`l as float
`g as float
`e as float
`utold as float
`utnew as float
`lambda as float

CLS
`'
`'    get the date and geographical position from user
`'
print "input the following"
print "    lat : 52.5"
print "   long : -1.9167"
print "   zone : 0"
print "rise/set : 1"
print "Sun alt : -0.833"
print "  year  : 1998"
print "  month : 10"
print "  day   : 25"
print "-- above input below is output ----"
print " day no : -433.5"
print "   UT   : 0651"
print "  zone  : 0651"
print "-------------------------"

INPUT "     lat : ", glat#
INPUT "    long : ", glong#
INPUT "    zone : ", zone
INPUT "rise/set : ", riset
INPUT " Sun alt : ", altitude#
INPUT "   year  : ", y
INPUT "   month : ", m
INPUT "   day   : ", d
day# = FNday(y, m, d, 0)
PRINT "  day no : "; day#
utold# = pi#
utnew# = 0
`sinalt as float
`sinphi as float
`cosphi as float
`glong as float
`ec as float
`gha as float
`days as float

sinalt# = SIN(altitude# * rads#) :`'go for the sunrise/sunset altitude first
sinphi# = SIN(glat# * rads#)
cosphi# = COS(glat# * rads#)
glong# = glong# * rads#

WHILE ABS(utold# - utnew#) > .001
  utold# = utnew#
  days# = day + utold# / tpi#
  t# = days# / 36525
`  '     get arguments of Sun's orbit
  L# = FNrange(4.8949504201433 + 628.331969753199 * t#)
  G# = FNrange(6.2400408 + 628.3019501 * t#)
  ec# = .033423 * SIN(G#) + .00034907 * SIN(2 * G#)
  lambda# = L# + ec#
  E# = -1 * ec# + .0430398 * SIN(2 * lambda#) - .00092502 * SIN(4 * lambda#)
  obl# = .409093 - .0002269 * t#
  delta# = FNasin(SIN(obl#) * SIN(lambda#))
  GHA# = utold# - pi# + E#
  cosc# = (sinalt# - sinphi# * SIN(delta#)) / (cosphi# * COS(delta#))
  SELECT cosc#
  CASE 1
    correction# = 0 :endcase
  CASE -1
    correction# = pi# :endcase
    else
  CASE  0
    correction# = FNacos(cosc#):endcase
  ENDSELECT
  utnew# = FNrange(utold# - (GHA# + glong# + riset * correction#))

endwhile
PRINT "    UT   : ";utnew# * degs# / 15
PRINT "   zone  : ";utnew# * degs# / 15 + zone
wait key
END
`'******************************************************************

`'
`'   the function below returns the true integer part,
`'   even for negative numbers
`'
function FNipart(x as float)
x = SGN(x) * INT(ABS(x))
endfunction x
`'
`'   FNday only works between 1901 to 2099 - see Meeus chapter 7
`'
function FNday(y as integer, m as integer, d as integer , h as integer )
`j= 367 * y - 7 * (y + (m + 9)) / 12 / 4 + 275 * m / 9 + d - 730531.5 + h / 24


j# = 367*y-INT(7*(y+INT((m+9)/12))/4)+INT(275*m/9)+d-730531.5
k=j/36525

endfunction j#
`'
`'   define some arc cos and arc sin functions
`'
function FNacos(x as float )
    s# = SQRt(1 - x * x)
    rFNacos# = ATaN(s# / x)
ENDFunction rFNacos#

function FNasin(x as float )
    c# = SQRt(1 - x * x)
    rFNasin# = ATaN(x / c#)
ENDFunction rFNasin#
`'
`'   the function below returns an angle in the range
`'   0 to two pi
`'
function FNrange(x as float )
    b# = x / tpi#
    a# = tpi# * (b# - FNipart(b#))
    IF a# < 0 THEN a# = tpi# + a#
    rFNrange# = a#
ENDfunction rFNrange#
`'
`'       the function below returns the time in 24 hour
`'   notation - hhmm - given a decimal hours figure.
function FNdegmin$(d)
c# = ABS(d#)
a# = INT(c#)
b# = 60 * (c# - a#)
d$ = STR$(INT(a# * 100 + b# + .5))
d$ = RIGHT$(d$, LEN(d$) - 1)
WHILE LEN(d$) < 4
    d$ = "0" + d$
endWhile
rFNdegmin$ = d$
ENDFunction rFNdegmin$

function sgn(x as float)
   s=(x>0)-(x<0)
endfunction s


`Below is the input and output of the program given the example case used throughout this page, sunrise on 1998 October 25th at Birmingham UK.

`    lat : 52.5
`   long : -1.9167
`   zone : 0
`ise/set : 1
`Sun alt : -0.833
`  year  : 1998
`  month : 10
`  day   : 25
` day no : -433.5
`   UT   : 0651
`  zone  : 0651

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 11th Mar 2008 22:25 Edited at: 11th Mar 2008 22:27

Link

tie me down its a bit windy here today have a look at this picture when I've loaded up 51kts or 59mph.

Dark Physics makes any hot drink go cold.

Attachments

Login to view attachments

Back to top

Profile PM

jason p sage

16

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 11th Mar 2008 22:32

Link

How did you make the image appear in the message AND have it as a download?

I Suspect you uploaded it, but how did you make it appear in the message body? Did you make a link to itself or something?

http://www.jasonpetersage.com/?PAGE=ironinfantry&SECTION=ironinfantry

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 11th Mar 2008 22:38

Link

Open the image with the view button then copy the http address info from the browers.

Press the image button in the posting box and paste the info in the image box that pops up.

To get the image up there first use the attachment box at the bottom of the posting box.

hope that helps you.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

jason p sage

16

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 11th Mar 2008 22:44

Link

It Does - thanx!

http://www.jasonpetersage.com/?PAGE=ironinfantry&SECTION=ironinfantry

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 11th Mar 2008 22:46 Edited at: 11th Mar 2008 22:50

Link

jinzai if you are about is there anyway of stopping the wind counter from coming up with speeds that a bit two high 21000kts

so that will max out at say 190 kts which if did that it be bye bye roof house and anything not screwed down.

cheers.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

jason p sage

16

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 11th Mar 2008 23:44 Edited at: 11th Mar 2008 23:47

Link

I know you're not asking me, but I use a MPH gauge for my camera... sounds non-related but what I do IS!

First you need a Rule like this:
if WIND > WINDMAX then WIND = WINDMAX

Perhaps a Dampener:

WINDOLD = WINDNEW
WINDNEW = WindSpeedFromDevice
WINDDIFSIGNED=WINDNEW-WINDOLD
WINDDIF = ABS(WINDDIFSIGNED)
IF(WINDDIF>50)THEN
IF WINDDIFFSIGNED>0
WINDNEW = WINDOLD + 50
ELSE
WINDNEW = WINDOLD - 50
ENDIF
ENDIF

Now back to my MPH Gauge for my camera, I have an array ... as long as I want... and EACH FRAME, I LOSE the OLDEST MPH, and Add one NEW MPH to the List. The LIST is always the LAST n NUMBER of MPH I calculated per frame. I Simply Average the LIST and Display the average.

Hope this helps. (Back at ya)
[editted a code variable name error - WINDNEW to WINOLD in the Last Example for dampening.]
[edt3 few more touch ups to logic]

http://www.jasonpetersage.com/?PAGE=ironinfantry&SECTION=ironinfantry

Back to top

Profile PM Email Website

jinzai

17

Years of Service

User Offline

Joined: 19th Aug 2006

Location: USA

Posted: 11th Mar 2008 23:57

Link

I have been wondering when that would become an issue for you. I knew that gusts would completely confuse it. I am happy to hear that it does 51k anyway. One solution is to average it out. The place is in the storage of it. This is starting to look alot like my last job in the industry. (You will likely want to store the value, and the instantaneous average.) I will have to calculate what the maximum gust value is, and then it will just be that value when it clips. It has something to do with the distance of the cup from the center of the spindle, iirc.

About the other code, I have been working with model formats lately, and I have no printer at this time. There is some code already there for calculating dates and such. I noticed that the code you have uses floats. That is far too bothersome for me, and I will expand the code you already have. It is better to use integral seconds. You already have some constants for that, and I can tell you that the errors in some of the calculations are the result of leap years and rounding. Some time ago, I wrote a converter that helped such code translate times and it keeps the code working with integers, which makes it consistently accurate. I have a nice 64 bit C version nearly ready, which I will post up later tonight, I think.

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 12th Mar 2008 00:16 Edited at: 12th Mar 2008 00:17

Link

Yes the Issue, If remember right the original code did and average of samples then gave you what that was at the moment I have mod ed this line ;

+ Code Snippet

   if startcount > tempcount
                           revolutions = ((0x000000ff - startcount) + tempcount) / 2
                        else
                            revolutions = (tempcount - startcount) / 2
                        endif

I let you know if this works when it get very wind again but apart from that all is going fine, the date program I think I all ready have the answer in the code for working out the moon cycle date that find the Julian year.

function moon_phase(y as integer, m as integer, d as integer)
local b as integer

`      calculates the moon phase (0-7), accurate to 1 segment.
`      0 = > new moon.
`      4 => full moon.
`    int c,e;
 `   double jd;
 `   int b;
    if m < 3
        dec y
        m = m + 12
    endif
    inc m
`    print d
    c# = 365.25*y
c0#=365.25*2000
    `print c#
    e# = 30.6*m
    e0#=30.6*1
`print e#
    jd# = c#+e#+d-694039.09   :rem /* jd is total days elapsed */
`print jd#
jd3#=(c0#+e0#+1)/30.6
  jd2# = ((c#+e#+d)/29.53)-jd3#

d#= 5.597661+29.5305888610*jd2#+(102.026*10^-12)*jd2#^2

print
print
print d#
print jd2#
print jd3#
    jd# = jd# / 29.5305888610           :rem /* divide by the moon cycle (29.53 days) */
`print jd#
    b = jd#
`print b                :rem /* int(jd) -> b, take integer part of jd */
    jd# = jd# - b                :rem /* subtract integer part to leave fractional part of original jd */
`print jd#
    b = jd#*29.5305888610          :rem /* scale fraction from 0-8 and round by adding 0.5 */
`print b
   ` b = b && 7              :rem /* 0 and 8 are the same so turn 8 into 0 */
   ` print b
    endfunction b
    function convert_time(h as integer m as integer s as integer)

h#= (60*h)*60
    m#= 60 * m

tle# = h#+m#+s-86400 :rem tle is total time elaped
    endfunction

+ Code Snippet

 function moon_phase(y as integer, m as integer, d as integer)
local b as integer

`      calculates the moon phase (0-7), accurate to 1 segment.
`      0 = > new moon.
`      4 => full moon.
`    int c,e;
 `   double jd;
 `   int b;
    if m < 3
        dec y
        m = m + 12
    endif
    inc m
`    print d
    c# = 365.25*y
c0#=365.25*2000
    `print c#
    e# = 30.6*m
    e0#=30.6*1
`print e#
    jd# = c#+e#+d-694039.09   :rem /* jd is total days elapsed */
`print jd#
jd3#=(c0#+e0#+1)/30.6
  jd2# = ((c#+e#+d)/29.53)-jd3#


d#= 5.597661+29.5305888610*jd2#+(102.026*10^-12)*jd2#^2

print
print
print d#
print jd2#
print jd3#
    jd# = jd# / 29.5305888610           :rem /* divide by the moon cycle (29.53 days) */
`print jd#
    b = jd#
`print b                :rem /* int(jd) -> b, take integer part of jd */
    jd# = jd# - b                :rem /* subtract integer part to leave fractional part of original jd */
`print jd#
    b = jd#*29.5305888610          :rem /* scale fraction from 0-8 and round by adding 0.5 */
`print b
   ` b = b && 7              :rem /* 0 and 8 are the same so turn 8 into 0 */
   ` print b
    endfunction b
    function convert_time(h as integer m as integer s as integer)

    h#= (60*h)*60
    m#= 60 * m

    tle# = h#+m#+s-86400 :rem tle is total time elaped
    endfunction

only thing it does not do is hours.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 5th Jun 2008 13:44

Link

hi jinzai,

Now if your memory is good then you might be able to solve this, the code

function GetDS1820Temperature(device as integer, sleepfor as integer)
timerstart = Timer()
    local temp_blk as integer = 0
    local ptr as dword = 0x00000000
    local wtemp as word
    local itemp as integer
    local tempword as integer = 0
    local temperature as float = 0.0
    local countremain as float = 0.0
    local countperc as float = 0.0
    local calibration as float = 0.0

if array index valid(Devices(device)) and Devices(device).bPresent
        if GetDeviceFamily(device) <> DS1820
        else
            if GetDeviceFamily(device) <> DS1820
               exitfunction temperature
            endif
        endif
        `wtemp = call dll(this.ibfs32, TMTouchReset, this.sessionHandle)
        wtemp = call dll(this.ibfs32, "TMTouchReset", this.sessionHandle)
        this.hardwareAPIReturn = jzMakeWordIntValue(wtemp)
        if this.hardwareAPIReturn = 1 or this.hardwareAPIReturn = 2
            temp_blk = Devices(device).reg_membuff_blk
            ptr = get memblock ptr(temp_blk)
            fill memory ptr, 0xff, 32
            write memblock byte temp_blk, 0, MATCH_ROM
            write memblock byte temp_blk, 1, Devices(device).DeviceFamily
            write memblock byte temp_blk, 2, Devices(device).ID_0
            write memblock byte temp_blk, 3, Devices(device).ID_1
            write memblock byte temp_blk, 4, Devices(device).ID_2
            write memblock byte temp_blk, 5, Devices(device).ID_3
            write memblock byte temp_blk, 6, Devices(device).ID_4
            write memblock byte temp_blk, 7, Devices(device).ID_5
            write memblock byte temp_blk, 8, Devices(device).CRC_8
            write memblock byte temp_blk, 9, DS1920_CONVERT
            itemp = Transmit1WireByteSequence(temp_blk, 10)
            if itemp = 10
                Devices(device).state = Devices(device).state || (CONVERSION_IN_PROGRESS || AWAITING_DATA)
                sleep sleepfor
                wtemp = call dll(this.ibfs32, "TMTouchReset", this.sessionHandle)
                this.hardwareAPIReturn = jzMakeWordIntValue(wtemp)
                if this.hardwareAPIReturn = 1 or this.hardwareAPIReturn = 2
                    Devices(device).state = Devices(device).state ~~ CONVERSION_IN_PROGRESS
                    fill memory ptr, 0xff, 32
                    write memblock byte temp_blk, 0, MATCH_ROM
                    write memblock byte temp_blk, 1, Devices(device).DeviceFamily
                    write memblock byte temp_blk, 2, Devices(device).ID_0
                    write memblock byte temp_blk, 3, Devices(device).ID_1
                    write memblock byte temp_blk, 4, Devices(device).ID_2
                    write memblock byte temp_blk, 5, Devices(device).ID_3
                    write memblock byte temp_blk, 6, Devices(device).ID_4
                    write memblock byte temp_blk, 7, Devices(device).ID_5
                    write memblock byte temp_blk, 8, Devices(device).CRC_8
                    write memblock byte temp_blk, 9, READ_SCRATCHPAD_2
                    itemp = Transmit1WireByteSequence(temp_blk, 19)
                    if itemp = 19
                        tempword = memblock word(temp_blk, 10)
                        if tempword && 0x0000ff00
                            tempword = tempword && 0x0000007f
                            tempword = tempword >> 1
                            tempword = tempword || 0xffffff00
                        else
                            tempword = tempword >> 1
                        endif
                        countremain = memblock byte(temp_blk, 16) * 1.0
                        countperc = memblock byte(temp_blk, 17) * 1.0
                        calibration = (countperc - countremain) / countperc
                        temperature = tempword * 1.0
                        temperature = temperature - 0.25
                        temperature = temperature + calibration
                        Devices(device).state = Devices(device).state ~~ AWAITING_DATA
                    endif
                endif
            endif
        endif
    endif
timerFinish = Timer()
        timespent(41) =str$( (timerFinish - timerStart))
endfunction temperature

+ Code Snippet

 function GetDS1820Temperature(device as integer, sleepfor as integer)
timerstart = Timer()
    local temp_blk as integer = 0
    local ptr as dword = 0x00000000
    local wtemp as word
    local itemp as integer
    local tempword as integer = 0
    local temperature as float = 0.0
    local countremain as float = 0.0
    local countperc as float = 0.0
    local calibration as float = 0.0

    if array index valid(Devices(device)) and Devices(device).bPresent
        if GetDeviceFamily(device) <> DS1820
        else
            if GetDeviceFamily(device) <> DS1820
               exitfunction temperature
            endif
        endif
        `wtemp = call dll(this.ibfs32, TMTouchReset, this.sessionHandle)
        wtemp = call dll(this.ibfs32, "TMTouchReset", this.sessionHandle)
        this.hardwareAPIReturn = jzMakeWordIntValue(wtemp)
        if this.hardwareAPIReturn = 1 or this.hardwareAPIReturn = 2
            temp_blk = Devices(device).reg_membuff_blk
            ptr = get memblock ptr(temp_blk)
            fill memory ptr, 0xff, 32
            write memblock byte temp_blk, 0, MATCH_ROM
            write memblock byte temp_blk, 1, Devices(device).DeviceFamily
            write memblock byte temp_blk, 2, Devices(device).ID_0
            write memblock byte temp_blk, 3, Devices(device).ID_1
            write memblock byte temp_blk, 4, Devices(device).ID_2
            write memblock byte temp_blk, 5, Devices(device).ID_3
            write memblock byte temp_blk, 6, Devices(device).ID_4
            write memblock byte temp_blk, 7, Devices(device).ID_5
            write memblock byte temp_blk, 8, Devices(device).CRC_8
            write memblock byte temp_blk, 9, DS1920_CONVERT
            itemp = Transmit1WireByteSequence(temp_blk, 10)
            if itemp = 10
                Devices(device).state = Devices(device).state || (CONVERSION_IN_PROGRESS || AWAITING_DATA)
                sleep sleepfor
                wtemp = call dll(this.ibfs32, "TMTouchReset", this.sessionHandle)
                this.hardwareAPIReturn = jzMakeWordIntValue(wtemp)
                if this.hardwareAPIReturn = 1 or this.hardwareAPIReturn = 2
                    Devices(device).state = Devices(device).state ~~ CONVERSION_IN_PROGRESS
                    fill memory ptr, 0xff, 32
                    write memblock byte temp_blk, 0, MATCH_ROM
                    write memblock byte temp_blk, 1, Devices(device).DeviceFamily
                    write memblock byte temp_blk, 2, Devices(device).ID_0
                    write memblock byte temp_blk, 3, Devices(device).ID_1
                    write memblock byte temp_blk, 4, Devices(device).ID_2
                    write memblock byte temp_blk, 5, Devices(device).ID_3
                    write memblock byte temp_blk, 6, Devices(device).ID_4
                    write memblock byte temp_blk, 7, Devices(device).ID_5
                    write memblock byte temp_blk, 8, Devices(device).CRC_8
                    write memblock byte temp_blk, 9, READ_SCRATCHPAD_2
                    itemp = Transmit1WireByteSequence(temp_blk, 19)
                    if itemp = 19
                        tempword = memblock word(temp_blk, 10)
                        if tempword && 0x0000ff00
                            tempword = tempword && 0x0000007f
                            tempword = tempword >> 1
                            tempword = tempword || 0xffffff00
                        else
                            tempword = tempword >> 1
                        endif
                        countremain = memblock byte(temp_blk, 16) * 1.0
                        countperc = memblock byte(temp_blk, 17) * 1.0
                        calibration = (countperc - countremain) / countperc
                        temperature = tempword * 1.0
                        temperature = temperature - 0.25
                        temperature = temperature + calibration
                        Devices(device).state = Devices(device).state ~~ AWAITING_DATA
                    endif
                endif
            endif
        endif
    endif
timerFinish = Timer()
        timespent(41) =str$( (timerFinish - timerStart))
endfunction temperature

ever now and then get a bit confused it start oout ok and using the time start and finished it come out at 834 to 835 ms exsect when it going worng the it does the job in 52ms have tired changing the sleepfor value up or down a bit but that still did not let it work 100%.
Althoe this happens it seem to be if it was cold at night like dew on the pcb.

for most part it has work great it is just anoing when it 60f out side its showing 32f.

if I can find that bit I read about it beging able to send a signal when ready I will post it.

Also now have physic flag flying in it now but when it sometimes clocks 72,000 knots it streaches the flag some what.

looks good only need some good wind days (oh summer nearly here

)

well that is so far see you be on a bit more lately that good.

cheers for now.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

jinzai

17

Years of Service

User Offline

Joined: 19th Aug 2006

Location: USA

Posted: 5th Jun 2008 14:10 Edited at: 5th Jun 2008 14:13

Link

Now, you've gone and beaten me to it again. I was going to dredge this thread up again after I got my Wiimote DLL fleshed out a little more so I can start taking seismic data from a Wiimote. I have done some of the stuff I promised above, but...things are an enormous struggle right now. Did you get your webcam working with this yet? I've noticed that cameras can use the same HID interface that the Wiimote, keyboard and joysticks use in DX. (There exists a real possibility of having generic I/O paths for keyboard, or any other form of device that adheres to the HID standard.)

I don't know if I've said it before, but...I found one of those GPS modules that output text data for about $70...I just don't have the income for that sort of thing now. Also, someone else had posted a request about that a few weeks ago.

I apologize for not getting on your shopping list code, I still have no printer, and been having some troubles with my system, trying to get work, move back to Illinois, etc. I will say that getting the font metrics will help alot with sizing controls that use text. Perhaps I will get around to it here soon. Every few weeks there are a flurry of requests about fonts, and sizing controls that use text.

I am anxious to get this working more smoothly, too. The code is there in the DLL to allow the application to understand that the conversion is still in progress, and also the wind speed and temperature issues can be handled, too.

I'll have a look at the code more this evening, but I will say for now that I am going to use those flags I created to drive the state of the data collection so that you won't need the sleep at all. Then, we will look into modifying the wind sample rate to increase its accuracy over a broader range of wind speeds. I will also eventually find the correct bounds on the temperature code, too.

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 5th Jun 2008 14:24 Edited at: 5th Jun 2008 16:30

Link

Thanks for your response if you think you might need the code I have at this moment give a Shout and Will email it to you, all those there's only so many bits on there that you can see working.

Plus the Ide had some fun the other week and said let see if you can rebuild it now I've killed a few function by wiping them clean of data, cheers ide, manage to do it plus it help clean up some of the file names to something a bit more mean full.

looking forward to this Dll, as they say good thing comes to those who wait and wait and wait, (meaning things like a good paying job cause playing cost money).

cheers.

ps. look at the start date not bad going for a two person thread

edit
worked how to show possible energy from wind but how would I show amount made in an hour.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 25th Jun 2008 13:26

Link

Hi jinzai,

How would I make your clock, code give me a run timer, meaning when I fire up the programme it will show how long its been running,

run time = 00:01:34, been looking but can see which bit would do it.

what its for so I can guesstamate how many kw hours I could make if I made or brought a wind generator.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

jinzai

17

Years of Service

User Offline

Joined: 19th Aug 2006

Location: USA

Posted: 25th Jun 2008 17:43

Link

I have three variables that get incremented every second, and also there are fractional seconds and the time difference per sync period. They are all in the same place, and already running. They are:
synchronizer.elapsed
synchronizer.GMT
synchronizer.localTOD

They are all integral seconds, but you can also use the accumulated_fraction and period members to calculate the fractional component. (i.e. accumulated_fraction * period = fractional seconds.) The only downside is that I fudge the first second to force the alignment to occur when the counter naturally rolls over anyway, which simplifies things.

If you want both the total elapsed time, the runtime member is available, and its a float.

+ Code Snippet

type SYNCHRONIZER
    kernel          as integer
    ptr             as dword
    frequency       as double integer
    period          as float
    count           as double integer
    t_0             as float
    accum_fraction  as double integer
    GMT             as integer
    localTOD        as integer
    elapsed         as integer
    runtime         as float
    seed            as double integer
    tick            as boolean
    syncpause       as boolean
    synctoggle      as boolean
    syncon          as boolean
    synccount       as double integer
    timestamp       as integer
endtype

That synchronizer is probably a little different from the one that you have...I've added some members to help me record timestamps with data, which is great for what we are doing.

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 25th Jun 2008 18:35

Link

I see, will look for them and see if I can get it output how I want.

cheers.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 25th Jun 2008 21:08 Edited at: 25th Jun 2008 23:17

Link

I am think I should be able to do this but its driving nuts, where I am I going wrong?

+ Code Snippet

time1 = synchronizer.elapsed
    days = time1 / 86400
    hours = (time1 / 3600) - (days * 24)
    minutes = (time1 / 60) - (days * 1440) - (hours * 60)
    seconds = time1 mod 60
    if days < 10
        elapedstr$="0"
    endif
    elapedstr$ = elapedstr$ + str$(days) + ":"
    if hours < 10
        elapedstr$=elapedstr$ +"0"
    endif
    elapedstr$ = elapedstr$ + str$(hours) + ":"
    if minutes < 10
        elapedstr$ = elapedstr$ + "0"
    endif
    elapedstr$ = elapedstr$ + str$(minutes) + ":"
    if seconds < 10
        elapedstr$ = elapedstr$ + "0"
    endif

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 22nd Oct 2008 11:48

Link

just putting a few functions I add here to find later.
rem just some coe I have made and putting them somer I hope I can find again when I need it.

function draw_watt_face(clock as ANALOG_CLOCK_1)

if file exist ("media/Wattface"+str$(1)+".bmp")<>1
   for wp = 1 to 6
      if wp=1
         m1$="4"
         m2$="3"
         m3$="2"
         m4$="1"
         m5$="0"
         m6$="5"
         m7$="6"
         m8$="7"
         m9$="8"
         m10$="9"
         m11$="10"
      endif
      if wp=2
         m1$="40"
         m2$="30"
         m3$="20"
         m4$="10"
         m5$="0"
         m6$="50"
         m7$="60"
         m8$="70"
         m9$="80"
         m10$="90"
         m11$="100"
      endif
      if wp=3
         m1$="400"
         m2$="300"
         m3$="200"
         m4$="100"
         m5$="0"
         m6$="500"
         m7$="600"
         m8$="700"
         m9$="800"
         m10$="900"
         m11$="1000"
      endif
      if wp=4
         m1$=str$(400*2)
         m2$=str$(300*2)
         m3$=str$(200*2)
         m4$=str$(100*2)
         m5$="0"
         m6$=str$(500*2)
         m7$=str$(600*2)
         m8$=str$(700*2)
         m9$=str$(800*2)
         m10$=str$(900*2)
         m11$=str$(1000*2)
      endif
      if wp=5
         m1$=str$(400*3)
         m2$=str$(300*3)
         m3$=str$(200*3)
         m4$=str$(100*3)
         m5$="0"
         m6$=str$(500*3)
         m7$=str$(600*3)
         m8$=str$(700*3)
         m9$=str$(800*3)
         m10$=str$(900*3)
         m11$=str$(1000*3)
      endif
      if wp=6
         m1$=str$(400*4)
         m2$=str$(300*4)
         m3$=str$(200*4)
         m4$=str$(100*4)
         m5$="0"
         m6$=str$(500*4)
         m7$=str$(600*4)
         m8$=str$(700*4)
         m9$=str$(800*4)
         m10$=str$(900*4)
         m11$=str$(1000*4)
      endif
      create bitmap 2,1024,768
      ink RGB(192,192,192),0
      for a#=-5.0 to 360.0 step 4.5
         if a#>150.0 and a#<205.0
            else
               line object screen x(Watt_pointer)+sin(a#)*clock.mgsLenX, object screen y(Watt_pointer)-cos(a#)*clock.mgsLenY, object screen x(Watt_pointer)+sin(a#)*clock.mgeLenX+0.7, object screen y(Watt_pointer)-cos(a#)*clock.mgeLenY+0.7
         endif
      next a#
      ink RGB(255,255,255),0
      for a#=-5.0 to 360.0 step 30
         if a#>155.0 and a<205.0
            else
               line object screen x(Watt_pointer)+sin(a#)*clock.mgsLenX, object screen y(Watt_pointer)-cos(a#)*clock.mgsLenY, object screen x(Watt_pointer)+sin(a#)*clock.mgeLenX, object screen y(Watt_pointer)-cos(a#)*clock.mgeLenY
         endif
      next a#
      ink RGB(128,255,255),0
      center text object screen x(Watt_pointer)+sin(-35)*clock.size_x, object screen y(Watt_pointer)-8-cos(-35)*clock.size_y,m1$
      ink RGB(0,128,255),0
      center text object screen x(Watt_pointer)+sin(-65)*clock.size_x, object screen y(Watt_pointer)-8-cos(-65)*clock.size_y,m2$
      ink RGB(0,64,255-120),0
      center text object screen x(Watt_pointer)+sin(-95)*clock.size_x, object screen y(Watt_pointer)-8-cos(-95)*clock.size_y,m3$
      ink RGB(0,0,255-60),0
      center text object screen x(Watt_pointer)+sin(-125)*clock.size_x, object screen y(Watt_pointer)-8-cos(-125)*clock.size_y,m4$
      ink RGB(0,0,255),0
      center text object screen x(Watt_pointer)+sin(-155)*clock.size_x, object screen y(watt_pointer)-8-cos(-155)*clock.size_y,m5$
      ink RGB(255,255,255),0
      center text object screen x(Watt_pointer)+sin(-5)*clock.size_x, object screen y(Watt_pointer)-8-cos(-5)*clock.size_y,m6$
      ink RGB(255,255,128),0
      center text object screen x(watt_pointer)+sin(25)*clock.size_x, object screen y(watt_pointer)-8-cos(25)*clock.size_y,m7$
      ink RGB(255,128,64),0
      center text object screen x(watt_pointer)+sin(55)*clock.size_x, object screen y(watt_pointer)-8-cos(55)*clock.size_y,m8$
      ink RGB(255,0,128),0
      center text object screen x(watt_pointer)+sin(85)*clock.size_x, object screen y(watt_pointer)-8-cos(85)*clock.size_y,m9$
      ink RGB(255,128,128),0
      center text object screen x(watt_pointer)+sin(115)*clock.size_x, object screen y(watt_pointer)-8-cos(115)*clock.size_y,m10$
      ink RGB(255,0,0),0
      center text object screen x(watt_pointer)+sin(145)*clock.size_x, object screen y(watt_pointer)-8-cos(145)*clock.size_y,m11$

get image watt_Face,object screen x(watt_pointer)-clock.size_x-15,object screen y(watt_pointer)-clock.size_y-15,...
      object screen x(watt_pointer)+clock.size_x+15,object screen y(watt_pointer)+clock.size_y+15,1
      save image "media/wattface"+str$(wp)+".bmp",watt_Face
      delete bitmap 2
      load image "media/wattface1.bmp",watt_Face,1
      paste image watt_Face,object screen x(watt_pointer)-clock.size_x-15,object screen y(watt_pointer)-clock.size_y-15,1
next wp

else
        if IMAGE EXIST(watt_Face)<>1
            load image "media/wattface1.bmp",watt_Face,1
            else
            paste image watt_Face,object screen x(watt_pointer)-clock.size_x-14.0,object screen y(watt_pointer)-clock.size_y-15,1

endif
endif
endfunction

function moon_phase2(y as integer, m as integer, d as integer)
 `     calculates the moon phase (0-7), accurate to 1 segment.
 `     0 = > new moon.
 `     4 => full moon.
jd1 as float
b1 as float
    if m < 3
         dec y
         m = m + 12
    endif
    c1 = 365.25*y
    e1 = 30.6*m
    jd1 = c1+e1+d-694039.09 :`;  /* jd is total days elapsed */
    jd1 =jd1 / 29.53 :`;           /* divide by the moon cycle (29.53 days) */
    b1 = int(jd1) :`;         /* int(jd) -> b, take integer part of jd */
    jd1 = jd1-b1 :`;         /* subtract integer part to leave fractional part of original jd */
    b1 = jd1*8.0 + 0.5 :`;      /* scale fraction from 0-8 and round by adding 0.5 */
    b1 = b1 && 7.0 :`;         /* 0 and 8 are the same so turn 8 into 0 */
    endfunction b1
function draw_watt_face(clock as ANALOG_CLOCK_1)

if file exist ("media/Wattface"+str$(1)+".bmp")<>1
   for wp = 1 to 6
      if wp=1
         m1$="4"
         m2$="3"
         m3$="2"
         m4$="1"
         m5$="0"
         m6$="5"
         m7$="6"
         m8$="7"
         m9$="8"
         m10$="9"
         m11$="10"
      endif
      if wp=2
         m1$="40"
         m2$="30"
         m3$="20"
         m4$="10"
         m5$="0"
         m6$="50"
         m7$="60"
         m8$="70"
         m9$="80"
         m10$="90"
         m11$="100"
      endif
      if wp=3
         m1$="400"
         m2$="300"
         m3$="200"
         m4$="100"
         m5$="0"
         m6$="500"
         m7$="600"
         m8$="700"
         m9$="800"
         m10$="900"
         m11$="1000"
      endif
      if wp=4
         m1$=str$(400*2)
         m2$=str$(300*2)
         m3$=str$(200*2)
         m4$=str$(100*2)
         m5$="0"
         m6$=str$(500*2)
         m7$=str$(600*2)
         m8$=str$(700*2)
         m9$=str$(800*2)
         m10$=str$(900*2)
         m11$=str$(1000*2)
      endif
      if wp=5
         m1$=str$(400*3)
         m2$=str$(300*3)
         m3$=str$(200*3)
         m4$=str$(100*3)
         m5$="0"
         m6$=str$(500*3)
         m7$=str$(600*3)
         m8$=str$(700*3)
         m9$=str$(800*3)
         m10$=str$(900*3)
         m11$=str$(1000*3)
      endif
      if wp=6
         m1$=str$(400*4)
         m2$=str$(300*4)
         m3$=str$(200*4)
         m4$=str$(100*4)
         m5$="0"
         m6$=str$(500*4)
         m7$=str$(600*4)
         m8$=str$(700*4)
         m9$=str$(800*4)
         m10$=str$(900*4)
         m11$=str$(1000*4)
      endif
      create bitmap 2,1024,768
      ink RGB(192,192,192),0
      for a#=-5.0 to 360.0 step 4.5
         if a#>150.0 and a#<205.0
            else
               line object screen x(Watt_pointer)+sin(a#)*clock.mgsLenX, object screen y(Watt_pointer)-cos(a#)*clock.mgsLenY, object screen x(Watt_pointer)+sin(a#)*clock.mgeLenX+0.7, object screen y(Watt_pointer)-cos(a#)*clock.mgeLenY+0.7
         endif
      next a#
      ink RGB(255,255,255),0
      for a#=-5.0 to 360.0 step 30
         if a#>155.0 and a<205.0
            else
               line object screen x(Watt_pointer)+sin(a#)*clock.mgsLenX, object screen y(Watt_pointer)-cos(a#)*clock.mgsLenY, object screen x(Watt_pointer)+sin(a#)*clock.mgeLenX, object screen y(Watt_pointer)-cos(a#)*clock.mgeLenY
         endif
      next a#
      ink RGB(128,255,255),0
      center text object screen x(Watt_pointer)+sin(-35)*clock.size_x, object screen y(Watt_pointer)-8-cos(-35)*clock.size_y,m1$
      ink RGB(0,128,255),0
      center text object screen x(Watt_pointer)+sin(-65)*clock.size_x, object screen y(Watt_pointer)-8-cos(-65)*clock.size_y,m2$
      ink RGB(0,64,255-120),0
      center text object screen x(Watt_pointer)+sin(-95)*clock.size_x, object screen y(Watt_pointer)-8-cos(-95)*clock.size_y,m3$
      ink RGB(0,0,255-60),0
      center text object screen x(Watt_pointer)+sin(-125)*clock.size_x, object screen y(Watt_pointer)-8-cos(-125)*clock.size_y,m4$
      ink RGB(0,0,255),0
      center text object screen x(Watt_pointer)+sin(-155)*clock.size_x, object screen y(watt_pointer)-8-cos(-155)*clock.size_y,m5$
      ink RGB(255,255,255),0
      center text object screen x(Watt_pointer)+sin(-5)*clock.size_x, object screen y(Watt_pointer)-8-cos(-5)*clock.size_y,m6$
      ink RGB(255,255,128),0
      center text object screen x(watt_pointer)+sin(25)*clock.size_x, object screen y(watt_pointer)-8-cos(25)*clock.size_y,m7$
      ink RGB(255,128,64),0
      center text object screen x(watt_pointer)+sin(55)*clock.size_x, object screen y(watt_pointer)-8-cos(55)*clock.size_y,m8$
      ink RGB(255,0,128),0
      center text object screen x(watt_pointer)+sin(85)*clock.size_x, object screen y(watt_pointer)-8-cos(85)*clock.size_y,m9$
      ink RGB(255,128,128),0
      center text object screen x(watt_pointer)+sin(115)*clock.size_x, object screen y(watt_pointer)-8-cos(115)*clock.size_y,m10$
      ink RGB(255,0,0),0
      center text object screen x(watt_pointer)+sin(145)*clock.size_x, object screen y(watt_pointer)-8-cos(145)*clock.size_y,m11$

get image watt_Face,object screen x(watt_pointer)-clock.size_x-15,object screen y(watt_pointer)-clock.size_y-15,...
      object screen x(watt_pointer)+clock.size_x+15,object screen y(watt_pointer)+clock.size_y+15,1
      save image "media/wattface"+str$(wp)+".bmp",watt_Face
      delete bitmap 2
      load image "media/wattface1.bmp",watt_Face,1
      paste image watt_Face,object screen x(watt_pointer)-clock.size_x-15,object screen y(watt_pointer)-clock.size_y-15,1
next wp

else
        if IMAGE EXIST(watt_Face)<>1
            load image "media/wattface1.bmp",watt_Face,1
            else
            paste image watt_Face,object screen x(watt_pointer)-clock.size_x-14.0,object screen y(watt_pointer)-clock.size_y-15,1

endif
endif
endfunction
function draw_force_face(clock as ANALOG_CLOCK_1)
rem force dial

if file exist ("media/forceface"+str$(1)+".bmp")<>1
     create bitmap 2,1024,768
for forcep = 1 to 2
      if forcep=1
         m1$="4"
         m2$="3"
         m3$="2"
         m4$="1"
         m5$="0"
         m6$="5"
         m7$="6"
         m8$="7"
         m9$="8"
         m10$="9"
         m11$="10"
      endif
      if forcep=2
         m1$="13"
         m2$="12"
         m3$="11"
         m4$="10"
         m5$="0"
         m6$="14"
         m7$="15"
         m8$="16"
         m9$="17"
         m10$="18"
         m11$="19"
      endif
   `ink RGB(192,192,192),0
`  for a# = -5.0 to 360.0 step 4.5
       if a#>150.0 and a#<205.0
      else
         line object screen x(force_pointer_now)+sin(a#)*clock.mgsLenX, object screen y(force_pointer_now)-cos(a#)*clock.mgsLenY, object screen x(force_pointer_now)+sin(a#)*clock.mgeLenX+0.7, object screen y(force_pointer_now)-cos(a#)*clock.mgeLenY+0.7
      endif
 ` next a#
   ink RGB(255,255,255),0
  ` for a#=-5.0 to 360.0 step 30
      if a#>155.0 and a#<205.0
      else
         line object screen x(force_pointer_now)+sin(a#)*clock.mgsLenX, object screen y(force_pointer_now)-cos(a#)*clock.mgsLenY, object screen x(force_pointer_now)+sin(a#)*clock.mgeLenX, object screen y(force_pointer_now)-cos(a#)*clock.mgeLenY
      endif
   `next a#
   bfs=-1
   inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0
   center text object screen x(force_pointer_now)+sin(-95)*clock.size_x, object screen y(force_pointer_now)-8-cos(-95)*clock.size_y,m1$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0
   center text object screen x(force_pointer_now)+sin(-115)*clock.size_x, object screen y(force_pointer_now)-8-cos(-115)*clock.size_y,m2$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0: rem                f2   m3$ V
   center text object screen x(force_pointer_now)+sin(-135)*clock.size_x, object screen y(force_pointer_now)-8-cos(-135)*clock.size_y,m3$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0: rem                  f1 m4$  V
   center text object screen x(force_pointer_now)+sin(-150)*clock.size_x, object screen y(force_pointer_now)-8-cos(-150)*clock.size_y,m4$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0: rem                          V 0 V
   center text object screen x(force_pointer_now)+sin(-155)*clock.size_x, object screen y(force_pointer_now)-8-cos(-155)*clock.size_y,m5$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0
   center text object screen x(force_pointer_now)+sin(-60)*clock.size_x, object screen y(force_pointer_now)-8-cos(-60)*clock.size_y,m6$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0
   center text object screen x(force_pointer_now)+sin(-35)*clock.size_x, object screen y(force_pointer_now)-8-cos(-35)*clock.size_y,m7$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0
   center text object screen x(force_pointer_now)+sin(0)*clock.size_x, object screen y(force_pointer_now)-8-cos(0)*clock.size_y,m8$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0
   center text object screen x(force_pointer_now)+sin(35)*clock.size_x, object screen y(force_pointer_now)-8-cos(35)*clock.size_y,m9$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0
   center text object screen x(force_pointer_now)+sin(70)*clock.size_x, object screen y(force_pointer_now)-8-cos(70)*clock.size_y,m10$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0
   center text object screen x(force_pointer_now)+sin(105)*clock.size_x, object screen y(force_pointer_now)-8-cos(105)*clock.size_y,m11$

get image force_Face,object screen x(force_pointer_now)-clock.size_x-15,object screen y(force_pointer_now)-clock.size_y-15,...
   object screen x(force_pointer_now)+clock.size_x+15,object screen y(force_pointer_now)+clock.size_y+15,1
   save image "media/forceface"+str$(forcep)+".bmp",force_Face
   delete bitmap 2
   load image "media/forceface1.bmp",force_Face,1
   paste image force_Face,object screen x(force_pointer_now)-clock.size_x-15,object screen y(force_pointer_now)-clock.size_y-15,1
next forcep
    else
        if IMAGE EXIST(force_Face)<>1
            load image "media/forceface1.bmp",force_Face,1
            else
            paste image force_Face,object screen x(force_pointer_now)-clock.size_x-14.0,object screen y(force_pointer_now)-clock.size_y-15,1

endif

endfunction
function draw_temp_face(clock as ANALOG_CLOCK_1)
    if file exist ("media/Tempface.bmp")<>1
    create bitmap 2,1024,768
ink RGB(192,192,192),0
for a=-5 to 360 step 6
   if a>150 and a<205
   else
      line object screen x(Weather_temperature_pointer_Now)+sin(a)*clock.mgsLenX, object screen y(Weather_temperature_pointer_Now)-cos(a)*clock.mgsLenY, object screen x(Weather_temperature_pointer_Now)+sin(a)*clock.mgeLenX+0.7, object screen y(Weather_temperature_pointer_Now)-cos(a)*clock.mgeLenY+0.7
   endif
next a
ink RGB(255,255,255),0
for a=-5 to 360 step 30
   if a>155 and a<205
   else
      line object screen x(Weather_temperature_pointer_Now)+sin(a)*clock.mgsLenX, object screen y(Weather_temperature_pointer_Now)-cos(a)*clock.mgsLenY, object screen x(Weather_temperature_pointer_Now)+sin(a)*clock.mgeLenX, object screen y(Weather_temperature_pointer_Now)-cos(a)*clock.mgeLenY
   endif
next a
ink RGB(128,255,255),0
center text object screen x(Weather_temperature_pointer_Now)+sin(-35)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(-35)*clock.size_y,"-10"
ink RGB(0,128,255),0
center text object screen x(Weather_temperature_pointer_Now)+sin(-65)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(-65)*clock.size_y,"-20"
ink RGB(0,64,255-120),0
center text object screen x(Weather_temperature_pointer_Now)+sin(-95)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(-95)*clock.size_y,"-30"
ink RGB(0,0,255-60),0
center text object screen x(Weather_temperature_pointer_Now)+sin(-125)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(-125)*clock.size_y,"-40"
ink RGB(0,0,255),0
center text object screen x(Weather_temperature_pointer_Now)+sin(-155)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(-155)*clock.size_y,"-50"
ink RGB(255,255,255),0
center text object screen x(Weather_temperature_pointer_Now)+sin(-5)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(-5)*clock.size_y,"0"
ink RGB(255,255,128),0
center text object screen x(Weather_temperature_pointer_Now)+sin(25)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(25)*clock.size_y,"10"
ink RGB(255,128,64),0
center text object screen x(Weather_temperature_pointer_Now)+sin(55)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(55)*clock.size_y,"20"
ink RGB(255,0,128),0
center text object screen x(Weather_temperature_pointer_Now)+sin(85)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(85)*clock.size_y,"30"
ink RGB(255,128,128),0
center text object screen x(Weather_temperature_pointer_Now)+sin(115)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(115)*clock.size_y,"40"
ink RGB(255,0,0),0
center text object screen x(Weather_temperature_pointer_Now)+sin(145)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(145)*clock.size_y,"50"
   get image Temp_Face,object screen x(Weather_temperature_pointer_Now)-clock.size_x-10,object screen y(Weather_temperature_pointer_Now)-clock.size_y-10,...
    object screen x(Weather_temperature_pointer_Now)+clock.size_x+10,object screen y(Weather_temperature_pointer_Now)+clock.size_y+10,1
    save image "media/tempface.bmp",Temp_Face
delete bitmap 2
 paste image temp_Face,object screen x(Weather_temperature_pointer_Now)-clock.size_x-10,object screen y(Weather_temperature_pointer_Now)-clock.size_y-10,1
    else
        if IMAGE EXIST(temp_Face)<>1
            load image "media/Tempface.bmp",Temp_Face,1
            else
            paste image temp_Face,object screen x(Weather_temperature_pointer_Now)-clock.size_x-9.0,object screen y(Weather_temperature_pointer_Now)-clock.size_y-10,1

endif
    endif
   endfunction
global f$ , f1$ , mt$
function risetime$()
restore suntimes
date$=get date$()
month1 =val(left$(date$ , 2))
day1 = val(mid$(date$ , 4)+mid$(date$ , 5))
year1 = val("20"+right$(date$ , 2))
N1 = floor( (275 * month1) / 9)
N2 = floor((month1 + 9) / 12)
N3 = (1.0 + floor((year1 - 4.0 * floor(year1 / 4.0) + 2.0) / 3.0))
N = N1 - (N2 * N3) + day1 - 30
left=365-n

restore suntimes
for d=1 to 365
read a , b , c$ , d$ , E$
if a=month1 and b=day1
f$=c$+"|"+d$+"|"+ e$
read a , b , c$ , d$ , E$
f1$=c$+"|"+d$+"|"+ e$
endif
next d

restore moontime
for dd=1 to 31
read a1,a2$,a3$,a4$,a5$,a6$,a7$,a8$,a9$,a10$,a11$,a12$,a13$,a14$,a15$,a16$,a17$,a18$,a19$,a20$,a21$,a22$,a23$,a24$,a25$

`print a1;"/",a2$,a3$,a4$,a5$,a6$,a7$,a8$,a9$,a10$,a11$,a12$,a13$,a14$,a15$,a16$,a17$,a18$,a19$,a20$,a21$,a22$,a23$,a24$,a25$

if a1=day1
   if 1=month1
         mt$=a2$+" | "+a3$
   endif
if 2=month1
         mt$=a4$+" | "+a5$
   endif
if 3=month1
         mt$=a6$+" | "+a7$
   endif
if 4=month1
         mt$=a8$+" | "+a9$
   endif
if 5=month1
         mt$=a10$+" | "+a11$
   endif
if 6=month1
         mt$=a12$+" | "+a13$
   endif
if 7=month1
         mt$=a14$+" | "+a15$
   endif
if 8=month1
         mt$=a16$+" | "+a17$
   endif
if 9=month1
         mt$=a18$+" | "+a19$
   endif
if 10=month1
         mt$=a20$+" | "+a21$
   endif
if 11=month1
         mt$=a22$+" | "+a23$
   endif
if 12=month1
         mt$=a24$+" | "+a25$
   endif
   endif
next dd
`print mt$
`print d
endfunction
suntimes:
data 1 , 1 , "08:20 "," 16:01 "," 07:41"
data 1 , 2 , "08:20 "," 16:02 "," 07:42"
data 1 , 3 , "08:20 "," 16:03 "," 07:43"
data 1 , 4 , "08:20 "," 16:04 "," 07:44"
data 1 , 5 , "08:19 "," 16:05 "," 07:46"
data 1 , 6 , "08:19 "," 16:07 "," 07:48"
data 1 , 7 , "08:18 "," 16:08 "," 07:50"
data 1 , 8 , "08:18 "," 16:09 "," 07:51"
data 1 , 9 , "08:17 "," 16:11 "," 07:54"
data 1 , 10 , "08:17 "," 16:12 "," 07:55"
data 1 , 11 , "08:16 "," 16:13 "," 07:57"
data 1 , 12 , "08:16 "," 16:15 "," 07:59"
data 1 , 13 , "08:15 "," 16:17 "," 08:02"
data 1 , 14 , "08:14 "," 16:18 "," 08:04"
data 1 , 15 , "08:13 "," 16:20 "," 08:07"
data 1 , 16 , "08:12 "," 16:21 "," 08:09"
data 1 , 17 , "08:11 "," 16:23 "," 08:12"
data 1 , 18 , "08:10 "," 16:24 "," 08:14"
data 1 , 19 , "08:09 "," 16:26 "," 08:17"
data 1 , 20 , "08:08 "," 16:28 "," 08:20"
data 1 , 21 , "08:07 "," 16:30 "," 08:23"
data 1 , 22 , "08:06 "," 16:31 "," 08:25"
data 1 , 23 , "08:05 "," 16:33 "," 08:28"
data 1 , 24 , "08:04 "," 16:35 "," 08:31"
data 1 , 25 , "08:02 "," 16:37 "," 08:35"
data 1 , 26 , "08:01 "," 16:39 "," 08:38"
data 1 , 27 , "07:59 "," 16:40 "," 08:41"
data 1 , 28 , "07:58 "," 16:42 "," 08:44"
data 1 , 29 , "07:57 "," 16:44 "," 08:47"
data 1 , 30 , "07:55 "," 16:46 "," 08:51"
data 1 , 31 , "07:54 "," 16:48 "," 08:54"
data 2 , 1 , "07:52 "," 16:50 "," 08:58"
data 2 , 2 , "07:50 "," 16:52 "," 09:02"
data 2 , 3 , "07:49 "," 16:53 "," 09:04"
data 2 , 4 , "07:47 "," 16:55 "," 09:08"
data 2 , 5 , "07:45 "," 16:57 "," 09:12"
data 2 , 6 , "07:44 "," 16:59 "," 09:15"
data 2 , 7 , "07:42 "," 17:01 "," 09:19"
data 2 , 8 , "07:40 "," 17:03 "," 09:23"
data 2 , 9 , "07:38 "," 17:05 "," 09:27"
data 2 , 10 , "07:36 "," 17:07 "," 09:31"
data 2 , 11 , "07:35 "," 17:09 "," 09:34"
data 2 , 12 , "07:33 "," 17:11 "," 09:38"
data 2 , 13 , "07:31 "," 17:13 "," 09:42"
data 2 , 14 , "07:29 "," 17:15 "," 09:46"
data 2 , 15 , "07:27 "," 17:16 "," 09:49"
data 2 , 16 , "07:25 "," 17:18 "," 09:53"
data 2 , 17 , "07:23 "," 17:20 "," 09:57"
data 2 , 18 , "07:21 "," 17:22 "," 10:01"
data 2 , 19 , "07:19 "," 17:24 "," 10:05"
data 2 , 20 , "07:17 "," 17:26 "," 10:09"
data 2 , 21 , "07:15 "," 17:28 "," 10:13"
data 2 , 22 , "07:13 "," 17:30 "," 10:17"
data 2 , 23 , "07:10 "," 17:32 "," 10:22"
data 2 , 24 , "07:08 "," 17:33 "," 10:25"
data 2 , 25 , "07:06 "," 17:35 "," 10:29"
data 2 , 26 , "07:04 "," 17:37 "," 10:33"
data 2 , 27 , "07:02 "," 17:39 "," 10:37"
data 2 , 28 , "07:00 "," 17:41 "," 10:41"
data 3 , 1 , "06:57 "," 17:43 "," 10:46"
data 3 , 2 , "06:55 "," 17:45 "," 10:50"
data 3 , 3 , "06:53 "," 17:46 "," 10:53"
data 3 , 4 , "06:51 "," 17:48 "," 10:57"
data 3 , 5 , "06:48 "," 17:50 "," 11:02"
data 3 , 6 , "06:46 "," 17:52 "," 11:06"
data 3 , 7 , "06:44 "," 17:54 "," 11:10"
data 3 , 8 , "06:42 "," 17:56 "," 11:14"
data 3 , 9 , "06:39 "," 17:57 "," 11:18"
data 3 , 10 , "06:37 "," 17:59 "," 11:22"
data 3 , 11 , "06:35 "," 18:01 "," 11:26"
data 3 , 12 , "06:32 "," 18:03 "," 11:31"
data 3 , 13 , "06:30 "," 18:05 "," 11:35"
data 3 , 14 , "06:28 "," 18:06 "," 11:38"
data 3 , 15 , "06:25 "," 18:08 "," 11:43"
data 3 , 16 , "06:23 "," 18:10 "," 11:47"
data 3 , 17 , "06:21 "," 18:12 "," 11:51"
data 3 , 18 , "06:18 "," 18:13 "," 11:55"
data 3 , 19 , "06:16 "," 18:15 "," 11:59"
data 3 , 20 , "06:14 "," 18:17 "," 12:03"
data 3 , 21 , "06:11 "," 18:19 "," 12:08"
data 3 , 22 , "06:09 "," 18:21 "," 12:12"
data 3 , 23 , "06:07 "," 18:22 "," 12:15"
data 3 , 24 , "06:04 "," 18:24 "," 12:20"
data 3 , 25 , "06:02 "," 18:26 "," 12:24"
data 3 , 26 , "06:00 "," 18:28 "," 12:28"
data 3 , 27 , "05:57 "," 18:29 "," 12:32"
data 3 , 28 , "05:55 "," 18:31 "," 12:36"
data 3 , 29 , "05:53 "," 18:33 "," 12:40"
data 3 , 30 , "05:50 "," 18:35 "," 12:45"
data 3 , 31 , "05:48 "," 18:36 "," 12:48"
data 4 , 1 , "05:46 "," 18:38 "," 12:52"
data 4 , 2 , "05:43 "," 18:40 "," 12:57"
data 4 , 3 , "05:41 "," 18:42 "," 13:01"
data 4 , 4 , "05:38 "," 18:43 "," 13:05"
data 4 , 5 , "05:36 "," 18:45 "," 13:09"
data 4 , 6 , "05:34 "," 18:47 "," 13:13"
data 4 , 7 , "05:31 "," 18:48 "," 13:17"
data 4 , 8 , "05:29 "," 18:50 "," 13:21"
data 4 , 9 , "05:27 "," 18:52 "," 13:25"
data 4 , 10 , "05:25 "," 18:54 "," 13:29"
data 4 , 11 , "05:22 "," 18:55 "," 13:33"
data 4 , 12 , "05:20 "," 18:57 "," 13:37"
data 4 , 13 , "05:18 "," 18:59 "," 13:41"
data 4 , 14 , "05:16 "," 19:01 "," 13:45"
data 4 , 15 , "05:13 "," 19:02 "," 13:49"
data 4 , 16 , "05:11 "," 19:04 "," 13:53"
data 4 , 17 , "05:09 "," 19:06 "," 13:57"
data 4 , 18 , "05:07 "," 19:08 "," 14:01"
data 4 , 19 , "05:05 "," 19:09 "," 14:04"
data 4 , 20 , "05:02 "," 19:11 "," 14:09"
data 4 , 21 , "05:00 "," 19:13 "," 14:13"
data 4 , 22 , "04:58 "," 19:15 "," 14:17"
data 4 , 23 , "04:56 "," 19:16 "," 14:20"
data 4 , 24 , "04:54 "," 19:18 "," 14:24"
data 4 , 25 , "04:52 "," 19:20 "," 14:28"
data 4 , 26 , "04:50 "," 19:22 "," 14:32"
data 4 , 27 , "04:48 "," 19:23 "," 14:35"
data 4 , 28 , "04:46 "," 19:25 "," 14:39"
data 4 , 29 , "04:44 "," 19:27 "," 14:43"
data 4 , 30 , "04:42 "," 19:28 "," 14:46"
data 5 , 1 , "04:40 "," 19:30 "," 14:50"
data 5 , 2 , "04:38 "," 19:32 "," 14:54"
data 5 , 3 , "04:36 "," 19:33 "," 14:57"
data 5 , 4 , "04:34 "," 19:35 "," 15:01"
data 5 , 5 , "04:32 "," 19:37 "," 15:05"
data 5 , 6 , "04:30 "," 19:39 "," 15:09"
data 5 , 7 , "04:28 "," 19:40 "," 15:12"
data 5 , 8 , "04:26 "," 19:42 "," 15:16"
data 5 , 9 , "04:25 "," 19:43 "," 15:18"
data 5 , 10 , "04:23 "," 19:45 "," 15:22"
data 5 , 11 , "04:21 "," 19:47 "," 15:26"
data 5 , 12 , "04:20 "," 19:48 "," 15:28"
data 5 , 13 , "04:18 "," 19:50 "," 15:32"
data 5 , 14 , "04:16 "," 19:52 "," 15:36"
data 5 , 15 , "04:15 "," 19:53 "," 15:38"
data 5 , 16 , "04:13 "," 19:55 "," 15:42"
data 5 , 17 , "04:11 "," 19:56 "," 15:45"
data 5 , 18 , "04:10 "," 19:58 "," 15:48"
data 5 , 19 , "04:09 "," 19:59 "," 15:50"
data 5 , 20 , "04:07 "," 20:01 "," 15:54"
data 5 , 21 , "04:06 "," 20:02 "," 15:56"
data 5 , 22 , "04:04 "," 20:04 "," 16:00"
data 5 , 23 , "04:03 "," 20:05 "," 16:02"
data 5 , 24 , "04:02 "," 20:07 "," 16:05"
data 5 , 25 , "04:01 "," 20:08 "," 16:07"
data 5 , 26 , "04:00 "," 20:09 "," 16:09"
data 5 , 27 , "03:58 "," 20:11 "," 16:13"
data 5 , 28 , "03:57 "," 20:12 "," 16:15"
data 5 , 29 , "03:56 "," 20:13 "," 16:17"
data 5 , 30 , "03:55 "," 20:14 "," 16:19"
data 5 , 31 , "03:54 "," 20:16 "," 16:22"
data 6 , 1 , "03:53 "," 20:17 "," 16:24"
data 6 , 2 , "03:52 "," 20:18 "," 16:26"
data 6 , 3 , "03:52 "," 20:19 "," 16:27"
data 6 , 4 , "03:51 "," 20:20 "," 16:29"
data 6 , 5 , "03:50 "," 20:21 "," 16:31"
data 6 , 6 , "03:50 "," 20:22 "," 16:32"
data 6 , 7 , "03:49 "," 20:23 "," 16:34"
data 6 , 8 , "03:48 "," 20:24 "," 16:36"
data 6 , 9 , "03:48 "," 20:25 "," 16:37"
data 6 , 10 , "03:48 "," 20:26 "," 16:38"
data 6 , 11 , "03:47 "," 20:26 "," 16:39"
data 6 , 12 , "03:47 "," 20:27 "," 16:40"
data 6 , 13 , "03:47 "," 20:28 "," 16:41"
data 6 , 14 , "03:46 "," 20:28 "," 16:42"
data 6 , 15 , "03:46 "," 20:29 "," 16:43"
data 6 , 16 , "03:46 "," 20:30 "," 16:44"
data 6 , 17 , "03:46 "," 20:30 "," 16:44"
data 6 , 18 , "03:46 "," 20:30 "," 16:44"
data 6 , 19 , "03:46 "," 20:31 "," 16:45"
data 6 , 20 , "03:46 "," 20:31 "," 16:45"
data 6 , 21 , "03:46 "," 20:31 "," 16:45"
data 6 , 22 , "03:46 "," 20:31 "," 16:45"
data 6 , 23 , "03:47 "," 20:32 "," 16:45"
data 6 , 24 , "03:47 "," 20:32 "," 16:45"
data 6 , 25 , "03:47 "," 20:32 "," 16:45"
data 6 , 26 , "03:48 "," 20:32 "," 16:44"
data 6 , 27 , "03:48 "," 20:32 "," 16:44"
data 6 , 28 , "03:48 "," 20:32 "," 16:44"
data 6 , 29 , "03:49 "," 20:31 "," 16:42"
data 6 , 30 , "03:50 "," 20:31 "," 16:41"
data 7 , 1 , "03:50 "," 20:31 "," 16:41"
data 7 , 2 , "03:51 "," 20:31 "," 16:40"
data 7 , 3 , "03:52 "," 20:30 "," 16:38"
data 7 , 4 , "03:52 "," 20:30 "," 16:38"
data 7 , 5 , "03:53 "," 20:29 "," 16:36"
data 7 , 6 , "03:54 "," 20:29 "," 16:35"
data 7 , 7 , "03:55 "," 20:28 "," 16:33"
data 7 , 8 , "03:56 "," 20:28 "," 16:32"
data 7 , 9 , "03:57 "," 20:27 "," 16:30"
data 7 , 10 , "03:58 "," 20:26 "," 16:28"
data 7 , 11 , "03:59 "," 20:25 "," 16:26"
data 7 , 12 , "04:00 "," 20:25 "," 16:25"
data 7 , 13 , "04:01 "," 20:24 "," 16:23"
data 7 , 14 , "04:02 "," 20:23 "," 16:21"
data 7 , 15 , "04:03 "," 20:22 "," 16:19"
data 7 , 16 , "04:05 "," 20:21 "," 16:16"
data 7 , 17 , "04:06 "," 20:20 "," 16:14"
data 7 , 18 , "04:07 "," 20:18 "," 16:11"
data 7 , 19 , "04:08 "," 20:17 "," 16:09"
data 7 , 20 , "04:10 "," 20:16 "," 16:06"
data 7 , 21 , "04:11 "," 20:15 "," 16:04"
data 7 , 22 , "04:13 "," 20:14 "," 16:01"
data 7 , 23 , "04:14 "," 20:12 "," 15:58"
data 7 , 24 , "04:15 "," 20:11 "," 15:56"
data 7 , 25 , "04:17 "," 20:09 "," 15:52"
data 7 , 26 , "04:18 "," 20:08 "," 15:50"
data 7 , 27 , "04:20 "," 20:07 "," 15:47"
data 7 , 28 , "04:21 "," 20:05 "," 15:44"
data 7 , 29 , "04:23 "," 20:03 "," 15:40"
data 7 , 30 , "04:24 "," 20:02 "," 15:38"
data 7 , 31 , "04:26 "," 20:00 "," 15:34"
data 8 , 1 , "04:27 "," 19:59 "," 15:32"
data 8 , 2 , "04:29 "," 19:57 "," 15:28"
data 8 , 3 , "04:30 "," 19:55 "," 15:25"
data 8 , 4 , "04:32 "," 19:53 "," 15:21"
data 8 , 5 , "04:34 "," 19:52 "," 15:18"
data 8 , 6 , "04:35 "," 19:50 "," 15:15"
data 8 , 7 , "04:37 "," 19:48 "," 15:11"
data 8 , 8 , "04:38 "," 19:46 "," 15:08"
data 8 , 9 , "04:40 "," 19:44 "," 15:04"
data 8 , 10 , "04:42 "," 19:42 "," 15:00"
data 8 , 11 , "04:43 "," 19:40 "," 14:57"
data 8 , 12 , "04:45 "," 19:38 "," 14:53"
data 8 , 13 , "04:47 "," 19:36 "," 14:49"
data 8 , 14 , "04:48 "," 19:35 "," 14:47"
data 8 , 15 , "04:50 "," 19:32 "," 14:42"
data 8 , 16 , "04:52 "," 19:30 "," 14:38"
data 8 , 17 , "04:53 "," 19:28 "," 14:35"
data 8 , 18 , "04:55 "," 19:26 "," 14:31"
data 8 , 19 , "04:56 "," 19:24 "," 14:28"
data 8 , 20 , "04:58 "," 19:22 "," 14:24"
data 8 , 21 , "05:00 "," 19:20 "," 14:20"
data 8 , 22 , "05:01 "," 19:18 "," 14:17"
data 8 , 23 , "05:03 "," 19:16 "," 14:13"
data 8 , 24 , "05:05 "," 19:13 "," 14:08"
data 8 , 25 , "05:07 "," 19:11 "," 14:04"
data 8 , 26 , "05:08 "," 19:09 "," 14:01"
data 8 , 27 , "05:10 "," 19:07 "," 13:57"
data 8 , 28 , "05:11 "," 19:05 "," 13:54"
data 8 , 29 , "05:13 "," 19:02 "," 13:49"
data 8 , 30 , "05:15 "," 19:00 "," 13:45"
data 8 , 31 , "05:16 "," 18:58 "," 13:42"
data 9 , 1 , "05:18 "," 18:55 "," 13:37"
data 9 , 2 , "05:20 "," 18:53 "," 13:33"
data 9 , 3 , "05:21 "," 18:51 "," 13:30"
data 9 , 4 , "05:23 "," 18:49 "," 13:26"
data 9 , 5 , "05:25 "," 18:46 "," 13:21"
data 9 , 6 , "05:26 "," 18:44 "," 13:18"
data 9 , 7 , "05:28 "," 18:42 "," 13:14"
data 9 , 8 , "05:30 "," 18:39 "," 13:09"
data 9 , 9 , "05:31 "," 18:37 "," 13:06"
data 9 , 10 , "05:33 "," 18:35 "," 13:02"
data 9 , 11 , "05:35 "," 18:32 "," 12:57"
data 9 , 12 , "05:36 "," 18:30 "," 12:54"
data 9 , 13 , "05:38 "," 18:28 "," 12:50"
data 9 , 14 , "05:40 "," 18:25 "," 12:45"
data 9 , 15 , "05:41 "," 18:23 "," 12:42"
data 9 , 16 , "05:43 "," 18:21 "," 12:38"
data 9 , 17 , "05:45 "," 18:18 "," 12:33"
data 9 , 18 , "05:46 "," 18:16 "," 12:30"
data 9 , 19 , "05:48 "," 18:13 "," 12:25"
data 9 , 20 , "05:50 "," 18:11 "," 12:21"
data 9 , 21 , "05:51 "," 18:09 "," 12:18"
data 9 , 22 , "05:53 "," 18:06 "," 12:13"
data 9 , 23 , "05:55 "," 18:04 "," 12:09"
data 9 , 24 , "05:56 "," 18:02 "," 12:06"
data 9 , 25 , "05:58 "," 17:59 "," 12:01"
data 9 , 26 , "06:00 "," 17:57 "," 11:57"
data 9 , 27 , "06:01 "," 17:54 "," 11:53"
data 9 , 28 , "06:03 "," 17:52 "," 11:49"
data 9 , 29 , "06:05 "," 17:50 "," 11:45"
data 9 , 30 , "06:06 "," 17:47 "," 11:41"
data 10 , 1 , "06:08 "," 17:45 "," 11:37"
data 10 , 2 , "06:10 "," 17:43 "," 11:33"
data 10 , 3 , "06:12 "," 17:40 "," 11:28"
data 10 , 4 , "06:13 "," 17:38 "," 11:25"
data 10 , 5 , "06:15 "," 17:36 "," 11:21"
data 10 , 6 , "06:17 "," 17:33 "," 11:16"
data 10 , 7 , "06:18 "," 17:31 "," 11:13"
data 10 , 8 , "06:20 "," 17:29 "," 11:09"
data 10 , 9 , "06:22 "," 17:26 "," 11:04"
data 10 , 10 , "06:24 "," 17:24 "," 11:00"
data 10 , 11 , "06:25 "," 17:22 "," 10:57"
data 10 , 12 , "06:27 "," 17:20 "," 10:53"
data 10 , 13 , "06:29 "," 17:17 "," 10:48"
data 10 , 14 , "06:31 "," 17:15 "," 10:44"
data 10 , 15 , "06:32 "," 17:13 "," 10:41"
data 10 , 16 , "06:34 "," 17:11 "," 10:37"
data 10 , 17 , "06:36 "," 17:08 "," 10:32"
data 10 , 18 , "06:38 "," 17:06 "," 10:28"
data 10 , 19 , "06:40 "," 17:04 "," 10:24"
data 10 , 20 , "06:41 "," 17:02 "," 10:21"
data 10 , 21 , "06:43 "," 17:00 "," 10:17"
data 10 , 22 , "06:45 "," 16:58 "," 10:13"
data 10 , 23 , "06:47 "," 16:55 "," 10:08"
data 10 , 24 , "06:49 "," 16:53 "," 10:04"
data 10 , 25 , "06:50 "," 16:51 "," 10:01"
data 10 , 26 , "06:52 "," 16:49 "," 09:57"
data 10 , 27 , "06:54 "," 16:47 "," 09:53"
data 10 , 28 , "06:56 "," 16:45 "," 09:49"
data 10 , 29 , "06:58 "," 16:43 "," 09:45"
data 10 , 30 , "07:00 "," 16:41 "," 09:41"
data 10 , 31 , "07:01 "," 16:39 "," 09:38"
data 11 , 1 , "07:03 "," 16:37 "," 09:34"
data 11 , 2 , "07:05 "," 16:35 "," 09:30"
data 11 , 3 , "07:07 "," 16:34 "," 09:27"
data 11 , 4 , "07:09 "," 16:32 "," 09:23"
data 11 , 5 , "07:11 "," 16:30 "," 09:19"
data 11 , 6 , "07:13 "," 16:28 "," 09:15"
data 11 , 7 , "07:14 "," 16:26 "," 09:12"
data 11 , 8 , "07:16 "," 16:25 "," 09:09"
data 11 , 9 , "07:18 "," 16:23 "," 09:05"
data 11 , 10 , "07:20 "," 16:21 "," 09:01"
data 11 , 11 , "07:22 "," 16:20 "," 08:58"
data 11 , 12 , "07:24 "," 16:18 "," 08:54"
data 11 , 13 , "07:25 "," 16:17 "," 08:52"
data 11 , 14 , "07:27 "," 16:15 "," 08:48"
data 11 , 15 , "07:29 "," 16:14 "," 08:45"
data 11 , 16 , "07:31 "," 16:12 "," 08:41"
data 11 , 17 , "07:33 "," 16:11 "," 08:38"
data 11 , 18 , "07:34 "," 16:09 "," 08:35"
data 11 , 19 , "07:36 "," 16:08 "," 08:32"
data 11 , 20 , "07:38 "," 16:07 "," 08:29"
data 11 , 21 , "07:40 "," 16:06 "," 08:26"
data 11 , 22 , "07:41 "," 16:04 "," 08:23"
data 11 , 23 , "07:43 "," 16:03 "," 08:20"
data 11 , 24 , "07:45 "," 16:02 "," 08:17"
data 11 , 25 , "07:46 "," 16:01 "," 08:15"
data 11 , 26 , "07:48 "," 16:00 "," 08:12"
data 11 , 27 , "07:49 "," 15:59 "," 08:10"
data 11 , 28 , "07:51 "," 15:58 "," 08:07"
data 11 , 29 , "07:53 "," 15:57 "," 08:04"
data 11 , 30 , "07:54 "," 15:56 "," 08:02"
data 12 , 1 , "07:56 "," 15:55 "," 07:59"
data 12 , 2 , "07:57 "," 15:55 "," 07:58"
data 12 , 3 , "07:59 "," 15:54 "," 07:55"
data 12 , 4 , "08:00 "," 15:54 "," 07:54"
data 12 , 5 , "08:01 "," 15:53 "," 07:52"
data 12 , 6 , "08:03 "," 15:52 "," 07:49"
data 12 , 7 , "08:04 "," 15:52 "," 07:48"
data 12 , 8 , "08:05 "," 15:52 "," 07:47"
data 12 , 9 , "08:06 "," 15:51 "," 07:45"
data 12 , 10 , "08:08 "," 15:51 "," 07:43"
data 12 , 11 , "08:09 "," 15:51 "," 07:42"
data 12 , 12 , "08:10 "," 15:51 "," 07:41"
data 12 , 13 , "08:11 "," 15:51 "," 07:40"
data 12 , 14 , "08:12 "," 15:51 "," 07:39"
data 12 , 15 , "08:13 "," 15:51 "," 07:38"
data 12 , 16 , "08:14 "," 15:51 "," 07:37"
data 12 , 17 , "08:14 "," 15:51 "," 07:37"
data 12 , 18 , "08:15 "," 15:51 "," 07:36"
data 12 , 19 , "08:16 "," 15:52 "," 07:36"
data 12 , 20 , "08:17 "," 15:52 "," 07:35"
data 12 , 21 , "08:17 "," 15:52 "," 07:35"
data 12 , 22 , "08:18 "," 15:53 "," 07:35"
data 12 , 23 , "08:18 "," 15:53 "," 07:35"
data 12 , 24 , "08:19 "," 15:54 "," 07:35"
data 12 , 25 , "08:19 "," 15:55 "," 07:36"
data 12 , 26 , "08:19 "," 15:55 "," 07:36"
data 12 , 27 , "08:20 "," 15:56 "," 07:36"
data 12 , 28 , "08:20 "," 15:57 "," 07:37"
data 12 , 29 , "08:20 "," 15:58 "," 07:38"
data 12 , 30 , "08:20 "," 15:59 "," 07:39"
data 12 , 31 , "08:20 "," 16:00 "," 07:40"

moontime:
data 01,"0352","1608","0448","1702","0421","1636","0535","1752","0544","1805","0648","1922","0734","2016","0929","2200","1035","2254","1044","2300","1155","n/a ","1219","n/a "
data 02,"0435","1649","0539","1754","0514","1729","0622","1840","0630","1854","0746","2024","0841","2122","1022","2250","1120","2337","1131","2346","1245","0009","1305","0033"
data 03,"0519","1734","0632","1847","0606","1822","0709","1929","0718","1946","0849","2131","0946","2225","1112","2336","1205","n/a ","1220","n/a ","1335","0100","1349","0120"
data 04,"0607","1821","0725","1941","0657","1913","0755","2018","0809","2042","0956","2239","1048","2322","1158","n/a ","1251","0021","1311","0035","1423","0150","1431","0205"
data 05,"0656","1911","0817","2034","0746","2004","0842","2109","0905","2142","1103","2343","1144","n/a ","1243","0019","1339","0106","1402","0125","1509","0238","1513","0248"
data 06,"0749","2004","0908","2125","0833","2053","0932","2202","1007","2247","1206","n/a ","1235","0013","1328","0102","1429","0154","1453","0216","1553","0324","1555","0332"
data 07,"0842","2057","0956","2214","0920","2141","1026","2300","1112","2354","1304","0042","1322","0100","1413","0144","1519","0243","1542","0307","1636","0410","1639","0417"
data 08,"0935","2151","1042","2302","1006","2230","1123","n/a ","1218","n/a ","1356","0135","1407","0144","1459","0228","1611","0334","1630","0357","1719","0455","1727","0505"
data 09,"1026","2242","1128","2350","1054","2321","1225","0001","1322","0059","1444","0223","1450","0226","1547","0314","1701","0425","1716","0445","1804","0540","1819","0556"
data 10,"1115","2332","1213","n/a ","1144","n/a ","1329","0106","1421","0159","1529","0307","1534","0307","1637","0401","1751","0516","1801","0532","1851","0628","1917","0653"
data 11,"1201"," n/a","1300","0038","1238","0015","1432","0210","1514","0254","1612","0349","1619","0349","1728","0451","1839","0606","1845","0619","1942","0719","2020","0755"
data 12,"1246","0019","1350","0128","1335","0113","1532","0311","1603","0343","1654","0429","1705","0433","1819","0542","1925","0655","1930","0705","2038","0814","2127","0902"
data 13,"1330","0106","1443","0221","1435","0213","1627","0407","1648","0428","1737","0510","1753","0519","1910","0634","2010","0742","2016","0752","2139","0915","2235","1010"
data 14,"1415","0152","1540","0319","1537","0315","1718","0459","1731","0510","1822","0552","1844","0608","1959","0725","2054","0829","2105","0842","2244","1020","2339","1115"
data 15,"1502","0240","1641","0419","1639","0417","1805","0545","1813","0550","1909","0637","1935","0658","2047","0815","2139","0915","2158","0935","2351","1126","n/a ","1214"
data 16,"1553","0331","1743","0521","1737","0516","1849","0629","1856","0630","1958","0723","2027","0750","2132","0903","2226","1003","2255","1032","n/a ","1231","0037","1308"
data 17,"1648","0426","1845","0623","1830","0611","1932","0710","1939","0711","2049","0813","2117","0842","2216","0950","2315","1053","2357","1134","0055","1332","0131","1357"
data 18,"1747","0525","1943","0722","1920","0701","2014","0750","2025","0754","2140","0904","2205","0932","2300","1035","n/a ","1146","n/a ","1237","0154","1427","0220","1443"
data 19,"1851","0628","2036","0816","2007","0747","2057","0831","2112","0839","2231","0955","2251","1021","2344","1121","0008","1243","0101","1341","0248","1516","0306","1526"
data 20,"1955","0732","2126","0906","2051","0830","2141","0912","2202","0927","2321","1046","2335","1108","n/a ","1209","0105","1344","0204","1443","0337","1602","0350","1608"
data 21,"2057","0835","2212","0951","2134","0911","2228","0956","2253","1016","n/a ","1136","n/a ","1153","0030","1258","0206","1446","0304","1539","0424","1645","0435","1651"
data 22,"2155","0933","2256","1034","2217","0952","2316","1042","2344","1108","0008","1223","0018","1238","0120","1352","0309","1548","0400","1631","0508","1727","0520","1735"
data 23,"2247","1027","2339","1116","2300","1033","n/a ","1130","n/a ","1159","0053","1309","0101","1323","0213","1449","0410","1648","0452","1719","0552","1809","0607","1821"
data 24,"2336","1115","n/a ","1156","2345","1116","0006","1221","0035","1249","0136","1354","0145","1411","0311","1550","0509","1743","0539","1803","0636","1852","0655","1910"
data 25,"n/a ","1200","0022","1238","n/a ","1200","0058","1312","0123","1338","0219","1439","0232","1501","0412","1653","0604","1834","0625","1846","0722","1937","0745","2000"
data 26,"0021","1241","0106","1321","0032","1247","0149","1403","0209","1425","0302","1525","0322","1556","0515","1755","0654","1921","0709","1928","0809","2024","0836","2051"
data 27,"0104","1322","0152","1406","0122","1336","0239","1454","0254","1511","0347","1615","0418","1655","0617","1854","0742","2005","0753","2011","0859","2113","0927","2141"
data 28,"0146","1402","0240","1454","0212","1427","0327","1543","0338","1557","0436","1708","0518","1759","0716","1949","0828","2048","0839","2055","0949","2204","1016","2230"
data 29,"0229","1444","0330","1544","0304","1519","0414","1631","0422","1644","0530","1806","0622","1904","0811","2040","0913","2131","0925","2141","1040","2255","1103","2317"
data 30,"0313","1527","n/a ","n/a ","0356","1611","0459","1718","0507","1732","0629","1909","0727","2007","0901","2127","0958","2215","1014","2229","1130","2345","1147","n/a "
data 31,"0359","1613","n/a ","n/a ","0446","1702","n/a ","n/a ","0555","1825","n/a ","n/a ","0830","2106","0949","2211","n/a ","n/a ","1104","2318","n/a ","n/a ","1230","0003"

+ Code Snippet

function draw_watt_face(clock as ANALOG_CLOCK_1)

if file exist ("media/Wattface"+str$(1)+".bmp")<>1
   for wp = 1 to 6
      if wp=1
         m1$="4"
         m2$="3"
         m3$="2"
         m4$="1"
         m5$="0"
         m6$="5"
         m7$="6"
         m8$="7"
         m9$="8"
         m10$="9"
         m11$="10"
      endif
      if wp=2
         m1$="40"
         m2$="30"
         m3$="20"
         m4$="10"
         m5$="0"
         m6$="50"
         m7$="60"
         m8$="70"
         m9$="80"
         m10$="90"
         m11$="100"
      endif
      if wp=3
         m1$="400"
         m2$="300"
         m3$="200"
         m4$="100"
         m5$="0"
         m6$="500"
         m7$="600"
         m8$="700"
         m9$="800"
         m10$="900"
         m11$="1000"
      endif
      if wp=4
         m1$=str$(400*2)
         m2$=str$(300*2)
         m3$=str$(200*2)
         m4$=str$(100*2)
         m5$="0"
         m6$=str$(500*2)
         m7$=str$(600*2)
         m8$=str$(700*2)
         m9$=str$(800*2)
         m10$=str$(900*2)
         m11$=str$(1000*2)
      endif
      if wp=5
         m1$=str$(400*3)
         m2$=str$(300*3)
         m3$=str$(200*3)
         m4$=str$(100*3)
         m5$="0"
         m6$=str$(500*3)
         m7$=str$(600*3)
         m8$=str$(700*3)
         m9$=str$(800*3)
         m10$=str$(900*3)
         m11$=str$(1000*3)
      endif
      if wp=6
         m1$=str$(400*4)
         m2$=str$(300*4)
         m3$=str$(200*4)
         m4$=str$(100*4)
         m5$="0"
         m6$=str$(500*4)
         m7$=str$(600*4)
         m8$=str$(700*4)
         m9$=str$(800*4)
         m10$=str$(900*4)
         m11$=str$(1000*4)
      endif
      create bitmap 2,1024,768
      ink RGB(192,192,192),0
      for a#=-5.0 to 360.0 step 4.5
         if a#>150.0 and a#<205.0
            else
               line object screen x(Watt_pointer)+sin(a#)*clock.mgsLenX, object screen y(Watt_pointer)-cos(a#)*clock.mgsLenY, object screen x(Watt_pointer)+sin(a#)*clock.mgeLenX+0.7, object screen y(Watt_pointer)-cos(a#)*clock.mgeLenY+0.7
         endif
      next a#
      ink RGB(255,255,255),0
      for a#=-5.0 to 360.0 step 30
         if a#>155.0 and a<205.0
            else
               line object screen x(Watt_pointer)+sin(a#)*clock.mgsLenX, object screen y(Watt_pointer)-cos(a#)*clock.mgsLenY, object screen x(Watt_pointer)+sin(a#)*clock.mgeLenX, object screen y(Watt_pointer)-cos(a#)*clock.mgeLenY
         endif
      next a#
      ink RGB(128,255,255),0
      center text object screen x(Watt_pointer)+sin(-35)*clock.size_x, object screen y(Watt_pointer)-8-cos(-35)*clock.size_y,m1$
      ink RGB(0,128,255),0
      center text object screen x(Watt_pointer)+sin(-65)*clock.size_x, object screen y(Watt_pointer)-8-cos(-65)*clock.size_y,m2$
      ink RGB(0,64,255-120),0
      center text object screen x(Watt_pointer)+sin(-95)*clock.size_x, object screen y(Watt_pointer)-8-cos(-95)*clock.size_y,m3$
      ink RGB(0,0,255-60),0
      center text object screen x(Watt_pointer)+sin(-125)*clock.size_x, object screen y(Watt_pointer)-8-cos(-125)*clock.size_y,m4$
      ink RGB(0,0,255),0
      center text object screen x(Watt_pointer)+sin(-155)*clock.size_x, object screen y(watt_pointer)-8-cos(-155)*clock.size_y,m5$
      ink RGB(255,255,255),0
      center text object screen x(Watt_pointer)+sin(-5)*clock.size_x, object screen y(Watt_pointer)-8-cos(-5)*clock.size_y,m6$
      ink RGB(255,255,128),0
      center text object screen x(watt_pointer)+sin(25)*clock.size_x, object screen y(watt_pointer)-8-cos(25)*clock.size_y,m7$
      ink RGB(255,128,64),0
      center text object screen x(watt_pointer)+sin(55)*clock.size_x, object screen y(watt_pointer)-8-cos(55)*clock.size_y,m8$
      ink RGB(255,0,128),0
      center text object screen x(watt_pointer)+sin(85)*clock.size_x, object screen y(watt_pointer)-8-cos(85)*clock.size_y,m9$
      ink RGB(255,128,128),0
      center text object screen x(watt_pointer)+sin(115)*clock.size_x, object screen y(watt_pointer)-8-cos(115)*clock.size_y,m10$
      ink RGB(255,0,0),0
      center text object screen x(watt_pointer)+sin(145)*clock.size_x, object screen y(watt_pointer)-8-cos(145)*clock.size_y,m11$

      get image watt_Face,object screen x(watt_pointer)-clock.size_x-15,object screen y(watt_pointer)-clock.size_y-15,...
      object screen x(watt_pointer)+clock.size_x+15,object screen y(watt_pointer)+clock.size_y+15,1
      save image "media/wattface"+str$(wp)+".bmp",watt_Face
      delete bitmap 2
      load image "media/wattface1.bmp",watt_Face,1
      paste image watt_Face,object screen x(watt_pointer)-clock.size_x-15,object screen y(watt_pointer)-clock.size_y-15,1
next wp

    else
        if IMAGE EXIST(watt_Face)<>1
            load image "media/wattface1.bmp",watt_Face,1
            else
            paste image watt_Face,object screen x(watt_pointer)-clock.size_x-14.0,object screen y(watt_pointer)-clock.size_y-15,1

        endif
endif
endfunction

function moon_phase2(y as integer, m as integer, d as integer)
 `     calculates the moon phase (0-7), accurate to 1 segment.
 `     0 = > new moon.
 `     4 => full moon.
jd1 as float
b1 as float
    if m < 3
         dec y
         m = m + 12
    endif
    c1 = 365.25*y
    e1 = 30.6*m
    jd1 = c1+e1+d-694039.09 :`;  /* jd is total days elapsed */
    jd1 =jd1 / 29.53 :`;           /* divide by the moon cycle (29.53 days) */
    b1 = int(jd1) :`;         /* int(jd) -> b, take integer part of jd */
    jd1 = jd1-b1 :`;         /* subtract integer part to leave fractional part of original jd */
    b1 = jd1*8.0 + 0.5 :`;      /* scale fraction from 0-8 and round by adding 0.5 */
    b1 = b1 && 7.0 :`;         /* 0 and 8 are the same so turn 8 into 0 */
    endfunction b1
function draw_watt_face(clock as ANALOG_CLOCK_1)

if file exist ("media/Wattface"+str$(1)+".bmp")<>1
   for wp = 1 to 6
      if wp=1
         m1$="4"
         m2$="3"
         m3$="2"
         m4$="1"
         m5$="0"
         m6$="5"
         m7$="6"
         m8$="7"
         m9$="8"
         m10$="9"
         m11$="10"
      endif
      if wp=2
         m1$="40"
         m2$="30"
         m3$="20"
         m4$="10"
         m5$="0"
         m6$="50"
         m7$="60"
         m8$="70"
         m9$="80"
         m10$="90"
         m11$="100"
      endif
      if wp=3
         m1$="400"
         m2$="300"
         m3$="200"
         m4$="100"
         m5$="0"
         m6$="500"
         m7$="600"
         m8$="700"
         m9$="800"
         m10$="900"
         m11$="1000"
      endif
      if wp=4
         m1$=str$(400*2)
         m2$=str$(300*2)
         m3$=str$(200*2)
         m4$=str$(100*2)
         m5$="0"
         m6$=str$(500*2)
         m7$=str$(600*2)
         m8$=str$(700*2)
         m9$=str$(800*2)
         m10$=str$(900*2)
         m11$=str$(1000*2)
      endif
      if wp=5
         m1$=str$(400*3)
         m2$=str$(300*3)
         m3$=str$(200*3)
         m4$=str$(100*3)
         m5$="0"
         m6$=str$(500*3)
         m7$=str$(600*3)
         m8$=str$(700*3)
         m9$=str$(800*3)
         m10$=str$(900*3)
         m11$=str$(1000*3)
      endif
      if wp=6
         m1$=str$(400*4)
         m2$=str$(300*4)
         m3$=str$(200*4)
         m4$=str$(100*4)
         m5$="0"
         m6$=str$(500*4)
         m7$=str$(600*4)
         m8$=str$(700*4)
         m9$=str$(800*4)
         m10$=str$(900*4)
         m11$=str$(1000*4)
      endif
      create bitmap 2,1024,768
      ink RGB(192,192,192),0
      for a#=-5.0 to 360.0 step 4.5
         if a#>150.0 and a#<205.0
            else
               line object screen x(Watt_pointer)+sin(a#)*clock.mgsLenX, object screen y(Watt_pointer)-cos(a#)*clock.mgsLenY, object screen x(Watt_pointer)+sin(a#)*clock.mgeLenX+0.7, object screen y(Watt_pointer)-cos(a#)*clock.mgeLenY+0.7
         endif
      next a#
      ink RGB(255,255,255),0
      for a#=-5.0 to 360.0 step 30
         if a#>155.0 and a<205.0
            else
               line object screen x(Watt_pointer)+sin(a#)*clock.mgsLenX, object screen y(Watt_pointer)-cos(a#)*clock.mgsLenY, object screen x(Watt_pointer)+sin(a#)*clock.mgeLenX, object screen y(Watt_pointer)-cos(a#)*clock.mgeLenY
         endif
      next a#
      ink RGB(128,255,255),0
      center text object screen x(Watt_pointer)+sin(-35)*clock.size_x, object screen y(Watt_pointer)-8-cos(-35)*clock.size_y,m1$
      ink RGB(0,128,255),0
      center text object screen x(Watt_pointer)+sin(-65)*clock.size_x, object screen y(Watt_pointer)-8-cos(-65)*clock.size_y,m2$
      ink RGB(0,64,255-120),0
      center text object screen x(Watt_pointer)+sin(-95)*clock.size_x, object screen y(Watt_pointer)-8-cos(-95)*clock.size_y,m3$
      ink RGB(0,0,255-60),0
      center text object screen x(Watt_pointer)+sin(-125)*clock.size_x, object screen y(Watt_pointer)-8-cos(-125)*clock.size_y,m4$
      ink RGB(0,0,255),0
      center text object screen x(Watt_pointer)+sin(-155)*clock.size_x, object screen y(watt_pointer)-8-cos(-155)*clock.size_y,m5$
      ink RGB(255,255,255),0
      center text object screen x(Watt_pointer)+sin(-5)*clock.size_x, object screen y(Watt_pointer)-8-cos(-5)*clock.size_y,m6$
      ink RGB(255,255,128),0
      center text object screen x(watt_pointer)+sin(25)*clock.size_x, object screen y(watt_pointer)-8-cos(25)*clock.size_y,m7$
      ink RGB(255,128,64),0
      center text object screen x(watt_pointer)+sin(55)*clock.size_x, object screen y(watt_pointer)-8-cos(55)*clock.size_y,m8$
      ink RGB(255,0,128),0
      center text object screen x(watt_pointer)+sin(85)*clock.size_x, object screen y(watt_pointer)-8-cos(85)*clock.size_y,m9$
      ink RGB(255,128,128),0
      center text object screen x(watt_pointer)+sin(115)*clock.size_x, object screen y(watt_pointer)-8-cos(115)*clock.size_y,m10$
      ink RGB(255,0,0),0
      center text object screen x(watt_pointer)+sin(145)*clock.size_x, object screen y(watt_pointer)-8-cos(145)*clock.size_y,m11$

      get image watt_Face,object screen x(watt_pointer)-clock.size_x-15,object screen y(watt_pointer)-clock.size_y-15,...
      object screen x(watt_pointer)+clock.size_x+15,object screen y(watt_pointer)+clock.size_y+15,1
      save image "media/wattface"+str$(wp)+".bmp",watt_Face
      delete bitmap 2
      load image "media/wattface1.bmp",watt_Face,1
      paste image watt_Face,object screen x(watt_pointer)-clock.size_x-15,object screen y(watt_pointer)-clock.size_y-15,1
next wp

    else
        if IMAGE EXIST(watt_Face)<>1
            load image "media/wattface1.bmp",watt_Face,1
            else
            paste image watt_Face,object screen x(watt_pointer)-clock.size_x-14.0,object screen y(watt_pointer)-clock.size_y-15,1

        endif
endif
endfunction
function draw_force_face(clock as ANALOG_CLOCK_1)
rem force dial

   if file exist ("media/forceface"+str$(1)+".bmp")<>1
     create bitmap 2,1024,768
for forcep = 1 to 2
      if forcep=1
         m1$="4"
         m2$="3"
         m3$="2"
         m4$="1"
         m5$="0"
         m6$="5"
         m7$="6"
         m8$="7"
         m9$="8"
         m10$="9"
         m11$="10"
      endif
      if forcep=2
         m1$="13"
         m2$="12"
         m3$="11"
         m4$="10"
         m5$="0"
         m6$="14"
         m7$="15"
         m8$="16"
         m9$="17"
         m10$="18"
         m11$="19"
      endif
   `ink RGB(192,192,192),0
`  for a# = -5.0 to 360.0 step 4.5
       if a#>150.0 and a#<205.0
      else
         line object screen x(force_pointer_now)+sin(a#)*clock.mgsLenX, object screen y(force_pointer_now)-cos(a#)*clock.mgsLenY, object screen x(force_pointer_now)+sin(a#)*clock.mgeLenX+0.7, object screen y(force_pointer_now)-cos(a#)*clock.mgeLenY+0.7
      endif
 ` next a#
   ink RGB(255,255,255),0
  ` for a#=-5.0 to 360.0 step 30
      if a#>155.0 and a#<205.0
      else
         line object screen x(force_pointer_now)+sin(a#)*clock.mgsLenX, object screen y(force_pointer_now)-cos(a#)*clock.mgsLenY, object screen x(force_pointer_now)+sin(a#)*clock.mgeLenX, object screen y(force_pointer_now)-cos(a#)*clock.mgeLenY
      endif
   `next a#
   bfs=-1
   inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0
   center text object screen x(force_pointer_now)+sin(-95)*clock.size_x, object screen y(force_pointer_now)-8-cos(-95)*clock.size_y,m1$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0
   center text object screen x(force_pointer_now)+sin(-115)*clock.size_x, object screen y(force_pointer_now)-8-cos(-115)*clock.size_y,m2$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0: rem                f2   m3$ V
   center text object screen x(force_pointer_now)+sin(-135)*clock.size_x, object screen y(force_pointer_now)-8-cos(-135)*clock.size_y,m3$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0: rem                  f1 m4$  V
   center text object screen x(force_pointer_now)+sin(-150)*clock.size_x, object screen y(force_pointer_now)-8-cos(-150)*clock.size_y,m4$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0: rem                          V 0 V
   center text object screen x(force_pointer_now)+sin(-155)*clock.size_x, object screen y(force_pointer_now)-8-cos(-155)*clock.size_y,m5$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0
   center text object screen x(force_pointer_now)+sin(-60)*clock.size_x, object screen y(force_pointer_now)-8-cos(-60)*clock.size_y,m6$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0
   center text object screen x(force_pointer_now)+sin(-35)*clock.size_x, object screen y(force_pointer_now)-8-cos(-35)*clock.size_y,m7$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0
   center text object screen x(force_pointer_now)+sin(0)*clock.size_x, object screen y(force_pointer_now)-8-cos(0)*clock.size_y,m8$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0
   center text object screen x(force_pointer_now)+sin(35)*clock.size_x, object screen y(force_pointer_now)-8-cos(35)*clock.size_y,m9$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0
   center text object screen x(force_pointer_now)+sin(70)*clock.size_x, object screen y(force_pointer_now)-8-cos(70)*clock.size_y,m10$
inc bfs,1
   ink rgb(bfs/10.0*255, (10-bfs)/10.0*255, 0),0
   center text object screen x(force_pointer_now)+sin(105)*clock.size_x, object screen y(force_pointer_now)-8-cos(105)*clock.size_y,m11$

   get image force_Face,object screen x(force_pointer_now)-clock.size_x-15,object screen y(force_pointer_now)-clock.size_y-15,...
   object screen x(force_pointer_now)+clock.size_x+15,object screen y(force_pointer_now)+clock.size_y+15,1
   save image "media/forceface"+str$(forcep)+".bmp",force_Face
   delete bitmap 2
   load image "media/forceface1.bmp",force_Face,1
   paste image force_Face,object screen x(force_pointer_now)-clock.size_x-15,object screen y(force_pointer_now)-clock.size_y-15,1
next forcep
    else
        if IMAGE EXIST(force_Face)<>1
            load image "media/forceface1.bmp",force_Face,1
            else
            paste image force_Face,object screen x(force_pointer_now)-clock.size_x-14.0,object screen y(force_pointer_now)-clock.size_y-15,1

        endif

    endif

endfunction
function draw_temp_face(clock as ANALOG_CLOCK_1)
    if file exist ("media/Tempface.bmp")<>1
    create bitmap 2,1024,768
ink RGB(192,192,192),0
for a=-5 to 360 step 6
   if a>150 and a<205
   else
      line object screen x(Weather_temperature_pointer_Now)+sin(a)*clock.mgsLenX, object screen y(Weather_temperature_pointer_Now)-cos(a)*clock.mgsLenY, object screen x(Weather_temperature_pointer_Now)+sin(a)*clock.mgeLenX+0.7, object screen y(Weather_temperature_pointer_Now)-cos(a)*clock.mgeLenY+0.7
   endif
next a
ink RGB(255,255,255),0
for a=-5 to 360 step 30
   if a>155 and a<205
   else
      line object screen x(Weather_temperature_pointer_Now)+sin(a)*clock.mgsLenX, object screen y(Weather_temperature_pointer_Now)-cos(a)*clock.mgsLenY, object screen x(Weather_temperature_pointer_Now)+sin(a)*clock.mgeLenX, object screen y(Weather_temperature_pointer_Now)-cos(a)*clock.mgeLenY
   endif
next a
ink RGB(128,255,255),0
center text object screen x(Weather_temperature_pointer_Now)+sin(-35)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(-35)*clock.size_y,"-10"
ink RGB(0,128,255),0
center text object screen x(Weather_temperature_pointer_Now)+sin(-65)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(-65)*clock.size_y,"-20"
ink RGB(0,64,255-120),0
center text object screen x(Weather_temperature_pointer_Now)+sin(-95)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(-95)*clock.size_y,"-30"
ink RGB(0,0,255-60),0
center text object screen x(Weather_temperature_pointer_Now)+sin(-125)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(-125)*clock.size_y,"-40"
ink RGB(0,0,255),0
center text object screen x(Weather_temperature_pointer_Now)+sin(-155)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(-155)*clock.size_y,"-50"
ink RGB(255,255,255),0
center text object screen x(Weather_temperature_pointer_Now)+sin(-5)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(-5)*clock.size_y,"0"
ink RGB(255,255,128),0
center text object screen x(Weather_temperature_pointer_Now)+sin(25)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(25)*clock.size_y,"10"
ink RGB(255,128,64),0
center text object screen x(Weather_temperature_pointer_Now)+sin(55)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(55)*clock.size_y,"20"
ink RGB(255,0,128),0
center text object screen x(Weather_temperature_pointer_Now)+sin(85)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(85)*clock.size_y,"30"
ink RGB(255,128,128),0
center text object screen x(Weather_temperature_pointer_Now)+sin(115)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(115)*clock.size_y,"40"
ink RGB(255,0,0),0
center text object screen x(Weather_temperature_pointer_Now)+sin(145)*clock.size_x, object screen y(Weather_temperature_pointer_Now)-8-cos(145)*clock.size_y,"50"
   get image Temp_Face,object screen x(Weather_temperature_pointer_Now)-clock.size_x-10,object screen y(Weather_temperature_pointer_Now)-clock.size_y-10,...
    object screen x(Weather_temperature_pointer_Now)+clock.size_x+10,object screen y(Weather_temperature_pointer_Now)+clock.size_y+10,1
    save image "media/tempface.bmp",Temp_Face
delete bitmap 2
 paste image temp_Face,object screen x(Weather_temperature_pointer_Now)-clock.size_x-10,object screen y(Weather_temperature_pointer_Now)-clock.size_y-10,1
    else
        if IMAGE EXIST(temp_Face)<>1
            load image "media/Tempface.bmp",Temp_Face,1
            else
            paste image temp_Face,object screen x(Weather_temperature_pointer_Now)-clock.size_x-9.0,object screen y(Weather_temperature_pointer_Now)-clock.size_y-10,1

        endif
    endif
   endfunction
global f$ , f1$ , mt$
function risetime$()
restore suntimes
date$=get date$()
month1 =val(left$(date$ , 2))
day1 = val(mid$(date$ , 4)+mid$(date$ , 5))
year1 = val("20"+right$(date$ , 2))
N1 = floor( (275 * month1) / 9)
N2 = floor((month1 + 9) / 12)
N3 = (1.0 + floor((year1 - 4.0 * floor(year1 / 4.0) + 2.0) / 3.0))
N = N1 - (N2 * N3) + day1 - 30
left=365-n

restore suntimes
for d=1 to 365
read a , b , c$ , d$ , E$
if a=month1 and b=day1
f$=c$+"|"+d$+"|"+ e$
read a , b , c$ , d$ , E$
f1$=c$+"|"+d$+"|"+ e$
endif
next d

restore moontime
for dd=1 to 31
read a1,a2$,a3$,a4$,a5$,a6$,a7$,a8$,a9$,a10$,a11$,a12$,a13$,a14$,a15$,a16$,a17$,a18$,a19$,a20$,a21$,a22$,a23$,a24$,a25$

`print a1;"/",a2$,a3$,a4$,a5$,a6$,a7$,a8$,a9$,a10$,a11$,a12$,a13$,a14$,a15$,a16$,a17$,a18$,a19$,a20$,a21$,a22$,a23$,a24$,a25$

if a1=day1
   if 1=month1
         mt$=a2$+" | "+a3$
   endif
if 2=month1
         mt$=a4$+" | "+a5$
   endif
if 3=month1
         mt$=a6$+" | "+a7$
   endif
if 4=month1
         mt$=a8$+" | "+a9$
   endif
if 5=month1
         mt$=a10$+" | "+a11$
   endif
if 6=month1
         mt$=a12$+" | "+a13$
   endif
if 7=month1
         mt$=a14$+" | "+a15$
   endif
if 8=month1
         mt$=a16$+" | "+a17$
   endif
if 9=month1
         mt$=a18$+" | "+a19$
   endif
if 10=month1
         mt$=a20$+" | "+a21$
   endif
if 11=month1
         mt$=a22$+" | "+a23$
   endif
if 12=month1
         mt$=a24$+" | "+a25$
   endif
   endif
next dd
`print mt$
`print d
endfunction
suntimes:
data 1 , 1 , "08:20 "," 16:01 "," 07:41"
data 1 , 2 , "08:20 "," 16:02 "," 07:42"
data 1 , 3 , "08:20 "," 16:03 "," 07:43"
data 1 , 4 , "08:20 "," 16:04 "," 07:44"
data 1 , 5 , "08:19 "," 16:05 "," 07:46"
data 1 , 6 , "08:19 "," 16:07 "," 07:48"
data 1 , 7 , "08:18 "," 16:08 "," 07:50"
data 1 , 8 , "08:18 "," 16:09 "," 07:51"
data 1 , 9 , "08:17 "," 16:11 "," 07:54"
data 1 , 10 , "08:17 "," 16:12 "," 07:55"
data 1 , 11 , "08:16 "," 16:13 "," 07:57"
data 1 , 12 , "08:16 "," 16:15 "," 07:59"
data 1 , 13 , "08:15 "," 16:17 "," 08:02"
data 1 , 14 , "08:14 "," 16:18 "," 08:04"
data 1 , 15 , "08:13 "," 16:20 "," 08:07"
data 1 , 16 , "08:12 "," 16:21 "," 08:09"
data 1 , 17 , "08:11 "," 16:23 "," 08:12"
data 1 , 18 , "08:10 "," 16:24 "," 08:14"
data 1 , 19 , "08:09 "," 16:26 "," 08:17"
data 1 , 20 , "08:08 "," 16:28 "," 08:20"
data 1 , 21 , "08:07 "," 16:30 "," 08:23"
data 1 , 22 , "08:06 "," 16:31 "," 08:25"
data 1 , 23 , "08:05 "," 16:33 "," 08:28"
data 1 , 24 , "08:04 "," 16:35 "," 08:31"
data 1 , 25 , "08:02 "," 16:37 "," 08:35"
data 1 , 26 , "08:01 "," 16:39 "," 08:38"
data 1 , 27 , "07:59 "," 16:40 "," 08:41"
data 1 , 28 , "07:58 "," 16:42 "," 08:44"
data 1 , 29 , "07:57 "," 16:44 "," 08:47"
data 1 , 30 , "07:55 "," 16:46 "," 08:51"
data 1 , 31 , "07:54 "," 16:48 "," 08:54"
data 2 , 1 , "07:52 "," 16:50 "," 08:58"
data 2 , 2 , "07:50 "," 16:52 "," 09:02"
data 2 , 3 , "07:49 "," 16:53 "," 09:04"
data 2 , 4 , "07:47 "," 16:55 "," 09:08"
data 2 , 5 , "07:45 "," 16:57 "," 09:12"
data 2 , 6 , "07:44 "," 16:59 "," 09:15"
data 2 , 7 , "07:42 "," 17:01 "," 09:19"
data 2 , 8 , "07:40 "," 17:03 "," 09:23"
data 2 , 9 , "07:38 "," 17:05 "," 09:27"
data 2 , 10 , "07:36 "," 17:07 "," 09:31"
data 2 , 11 , "07:35 "," 17:09 "," 09:34"
data 2 , 12 , "07:33 "," 17:11 "," 09:38"
data 2 , 13 , "07:31 "," 17:13 "," 09:42"
data 2 , 14 , "07:29 "," 17:15 "," 09:46"
data 2 , 15 , "07:27 "," 17:16 "," 09:49"
data 2 , 16 , "07:25 "," 17:18 "," 09:53"
data 2 , 17 , "07:23 "," 17:20 "," 09:57"
data 2 , 18 , "07:21 "," 17:22 "," 10:01"
data 2 , 19 , "07:19 "," 17:24 "," 10:05"
data 2 , 20 , "07:17 "," 17:26 "," 10:09"
data 2 , 21 , "07:15 "," 17:28 "," 10:13"
data 2 , 22 , "07:13 "," 17:30 "," 10:17"
data 2 , 23 , "07:10 "," 17:32 "," 10:22"
data 2 , 24 , "07:08 "," 17:33 "," 10:25"
data 2 , 25 , "07:06 "," 17:35 "," 10:29"
data 2 , 26 , "07:04 "," 17:37 "," 10:33"
data 2 , 27 , "07:02 "," 17:39 "," 10:37"
data 2 , 28 , "07:00 "," 17:41 "," 10:41"
data 3 , 1 , "06:57 "," 17:43 "," 10:46"
data 3 , 2 , "06:55 "," 17:45 "," 10:50"
data 3 , 3 , "06:53 "," 17:46 "," 10:53"
data 3 , 4 , "06:51 "," 17:48 "," 10:57"
data 3 , 5 , "06:48 "," 17:50 "," 11:02"
data 3 , 6 , "06:46 "," 17:52 "," 11:06"
data 3 , 7 , "06:44 "," 17:54 "," 11:10"
data 3 , 8 , "06:42 "," 17:56 "," 11:14"
data 3 , 9 , "06:39 "," 17:57 "," 11:18"
data 3 , 10 , "06:37 "," 17:59 "," 11:22"
data 3 , 11 , "06:35 "," 18:01 "," 11:26"
data 3 , 12 , "06:32 "," 18:03 "," 11:31"
data 3 , 13 , "06:30 "," 18:05 "," 11:35"
data 3 , 14 , "06:28 "," 18:06 "," 11:38"
data 3 , 15 , "06:25 "," 18:08 "," 11:43"
data 3 , 16 , "06:23 "," 18:10 "," 11:47"
data 3 , 17 , "06:21 "," 18:12 "," 11:51"
data 3 , 18 , "06:18 "," 18:13 "," 11:55"
data 3 , 19 , "06:16 "," 18:15 "," 11:59"
data 3 , 20 , "06:14 "," 18:17 "," 12:03"
data 3 , 21 , "06:11 "," 18:19 "," 12:08"
data 3 , 22 , "06:09 "," 18:21 "," 12:12"
data 3 , 23 , "06:07 "," 18:22 "," 12:15"
data 3 , 24 , "06:04 "," 18:24 "," 12:20"
data 3 , 25 , "06:02 "," 18:26 "," 12:24"
data 3 , 26 , "06:00 "," 18:28 "," 12:28"
data 3 , 27 , "05:57 "," 18:29 "," 12:32"
data 3 , 28 , "05:55 "," 18:31 "," 12:36"
data 3 , 29 , "05:53 "," 18:33 "," 12:40"
data 3 , 30 , "05:50 "," 18:35 "," 12:45"
data 3 , 31 , "05:48 "," 18:36 "," 12:48"
data 4 , 1 , "05:46 "," 18:38 "," 12:52"
data 4 , 2 , "05:43 "," 18:40 "," 12:57"
data 4 , 3 , "05:41 "," 18:42 "," 13:01"
data 4 , 4 , "05:38 "," 18:43 "," 13:05"
data 4 , 5 , "05:36 "," 18:45 "," 13:09"
data 4 , 6 , "05:34 "," 18:47 "," 13:13"
data 4 , 7 , "05:31 "," 18:48 "," 13:17"
data 4 , 8 , "05:29 "," 18:50 "," 13:21"
data 4 , 9 , "05:27 "," 18:52 "," 13:25"
data 4 , 10 , "05:25 "," 18:54 "," 13:29"
data 4 , 11 , "05:22 "," 18:55 "," 13:33"
data 4 , 12 , "05:20 "," 18:57 "," 13:37"
data 4 , 13 , "05:18 "," 18:59 "," 13:41"
data 4 , 14 , "05:16 "," 19:01 "," 13:45"
data 4 , 15 , "05:13 "," 19:02 "," 13:49"
data 4 , 16 , "05:11 "," 19:04 "," 13:53"
data 4 , 17 , "05:09 "," 19:06 "," 13:57"
data 4 , 18 , "05:07 "," 19:08 "," 14:01"
data 4 , 19 , "05:05 "," 19:09 "," 14:04"
data 4 , 20 , "05:02 "," 19:11 "," 14:09"
data 4 , 21 , "05:00 "," 19:13 "," 14:13"
data 4 , 22 , "04:58 "," 19:15 "," 14:17"
data 4 , 23 , "04:56 "," 19:16 "," 14:20"
data 4 , 24 , "04:54 "," 19:18 "," 14:24"
data 4 , 25 , "04:52 "," 19:20 "," 14:28"
data 4 , 26 , "04:50 "," 19:22 "," 14:32"
data 4 , 27 , "04:48 "," 19:23 "," 14:35"
data 4 , 28 , "04:46 "," 19:25 "," 14:39"
data 4 , 29 , "04:44 "," 19:27 "," 14:43"
data 4 , 30 , "04:42 "," 19:28 "," 14:46"
data 5 , 1 , "04:40 "," 19:30 "," 14:50"
data 5 , 2 , "04:38 "," 19:32 "," 14:54"
data 5 , 3 , "04:36 "," 19:33 "," 14:57"
data 5 , 4 , "04:34 "," 19:35 "," 15:01"
data 5 , 5 , "04:32 "," 19:37 "," 15:05"
data 5 , 6 , "04:30 "," 19:39 "," 15:09"
data 5 , 7 , "04:28 "," 19:40 "," 15:12"
data 5 , 8 , "04:26 "," 19:42 "," 15:16"
data 5 , 9 , "04:25 "," 19:43 "," 15:18"
data 5 , 10 , "04:23 "," 19:45 "," 15:22"
data 5 , 11 , "04:21 "," 19:47 "," 15:26"
data 5 , 12 , "04:20 "," 19:48 "," 15:28"
data 5 , 13 , "04:18 "," 19:50 "," 15:32"
data 5 , 14 , "04:16 "," 19:52 "," 15:36"
data 5 , 15 , "04:15 "," 19:53 "," 15:38"
data 5 , 16 , "04:13 "," 19:55 "," 15:42"
data 5 , 17 , "04:11 "," 19:56 "," 15:45"
data 5 , 18 , "04:10 "," 19:58 "," 15:48"
data 5 , 19 , "04:09 "," 19:59 "," 15:50"
data 5 , 20 , "04:07 "," 20:01 "," 15:54"
data 5 , 21 , "04:06 "," 20:02 "," 15:56"
data 5 , 22 , "04:04 "," 20:04 "," 16:00"
data 5 , 23 , "04:03 "," 20:05 "," 16:02"
data 5 , 24 , "04:02 "," 20:07 "," 16:05"
data 5 , 25 , "04:01 "," 20:08 "," 16:07"
data 5 , 26 , "04:00 "," 20:09 "," 16:09"
data 5 , 27 , "03:58 "," 20:11 "," 16:13"
data 5 , 28 , "03:57 "," 20:12 "," 16:15"
data 5 , 29 , "03:56 "," 20:13 "," 16:17"
data 5 , 30 , "03:55 "," 20:14 "," 16:19"
data 5 , 31 , "03:54 "," 20:16 "," 16:22"
data 6 , 1 , "03:53 "," 20:17 "," 16:24"
data 6 , 2 , "03:52 "," 20:18 "," 16:26"
data 6 , 3 , "03:52 "," 20:19 "," 16:27"
data 6 , 4 , "03:51 "," 20:20 "," 16:29"
data 6 , 5 , "03:50 "," 20:21 "," 16:31"
data 6 , 6 , "03:50 "," 20:22 "," 16:32"
data 6 , 7 , "03:49 "," 20:23 "," 16:34"
data 6 , 8 , "03:48 "," 20:24 "," 16:36"
data 6 , 9 , "03:48 "," 20:25 "," 16:37"
data 6 , 10 , "03:48 "," 20:26 "," 16:38"
data 6 , 11 , "03:47 "," 20:26 "," 16:39"
data 6 , 12 , "03:47 "," 20:27 "," 16:40"
data 6 , 13 , "03:47 "," 20:28 "," 16:41"
data 6 , 14 , "03:46 "," 20:28 "," 16:42"
data 6 , 15 , "03:46 "," 20:29 "," 16:43"
data 6 , 16 , "03:46 "," 20:30 "," 16:44"
data 6 , 17 , "03:46 "," 20:30 "," 16:44"
data 6 , 18 , "03:46 "," 20:30 "," 16:44"
data 6 , 19 , "03:46 "," 20:31 "," 16:45"
data 6 , 20 , "03:46 "," 20:31 "," 16:45"
data 6 , 21 , "03:46 "," 20:31 "," 16:45"
data 6 , 22 , "03:46 "," 20:31 "," 16:45"
data 6 , 23 , "03:47 "," 20:32 "," 16:45"
data 6 , 24 , "03:47 "," 20:32 "," 16:45"
data 6 , 25 , "03:47 "," 20:32 "," 16:45"
data 6 , 26 , "03:48 "," 20:32 "," 16:44"
data 6 , 27 , "03:48 "," 20:32 "," 16:44"
data 6 , 28 , "03:48 "," 20:32 "," 16:44"
data 6 , 29 , "03:49 "," 20:31 "," 16:42"
data 6 , 30 , "03:50 "," 20:31 "," 16:41"
data 7 , 1 , "03:50 "," 20:31 "," 16:41"
data 7 , 2 , "03:51 "," 20:31 "," 16:40"
data 7 , 3 , "03:52 "," 20:30 "," 16:38"
data 7 , 4 , "03:52 "," 20:30 "," 16:38"
data 7 , 5 , "03:53 "," 20:29 "," 16:36"
data 7 , 6 , "03:54 "," 20:29 "," 16:35"
data 7 , 7 , "03:55 "," 20:28 "," 16:33"
data 7 , 8 , "03:56 "," 20:28 "," 16:32"
data 7 , 9 , "03:57 "," 20:27 "," 16:30"
data 7 , 10 , "03:58 "," 20:26 "," 16:28"
data 7 , 11 , "03:59 "," 20:25 "," 16:26"
data 7 , 12 , "04:00 "," 20:25 "," 16:25"
data 7 , 13 , "04:01 "," 20:24 "," 16:23"
data 7 , 14 , "04:02 "," 20:23 "," 16:21"
data 7 , 15 , "04:03 "," 20:22 "," 16:19"
data 7 , 16 , "04:05 "," 20:21 "," 16:16"
data 7 , 17 , "04:06 "," 20:20 "," 16:14"
data 7 , 18 , "04:07 "," 20:18 "," 16:11"
data 7 , 19 , "04:08 "," 20:17 "," 16:09"
data 7 , 20 , "04:10 "," 20:16 "," 16:06"
data 7 , 21 , "04:11 "," 20:15 "," 16:04"
data 7 , 22 , "04:13 "," 20:14 "," 16:01"
data 7 , 23 , "04:14 "," 20:12 "," 15:58"
data 7 , 24 , "04:15 "," 20:11 "," 15:56"
data 7 , 25 , "04:17 "," 20:09 "," 15:52"
data 7 , 26 , "04:18 "," 20:08 "," 15:50"
data 7 , 27 , "04:20 "," 20:07 "," 15:47"
data 7 , 28 , "04:21 "," 20:05 "," 15:44"
data 7 , 29 , "04:23 "," 20:03 "," 15:40"
data 7 , 30 , "04:24 "," 20:02 "," 15:38"
data 7 , 31 , "04:26 "," 20:00 "," 15:34"
data 8 , 1 , "04:27 "," 19:59 "," 15:32"
data 8 , 2 , "04:29 "," 19:57 "," 15:28"
data 8 , 3 , "04:30 "," 19:55 "," 15:25"
data 8 , 4 , "04:32 "," 19:53 "," 15:21"
data 8 , 5 , "04:34 "," 19:52 "," 15:18"
data 8 , 6 , "04:35 "," 19:50 "," 15:15"
data 8 , 7 , "04:37 "," 19:48 "," 15:11"
data 8 , 8 , "04:38 "," 19:46 "," 15:08"
data 8 , 9 , "04:40 "," 19:44 "," 15:04"
data 8 , 10 , "04:42 "," 19:42 "," 15:00"
data 8 , 11 , "04:43 "," 19:40 "," 14:57"
data 8 , 12 , "04:45 "," 19:38 "," 14:53"
data 8 , 13 , "04:47 "," 19:36 "," 14:49"
data 8 , 14 , "04:48 "," 19:35 "," 14:47"
data 8 , 15 , "04:50 "," 19:32 "," 14:42"
data 8 , 16 , "04:52 "," 19:30 "," 14:38"
data 8 , 17 , "04:53 "," 19:28 "," 14:35"
data 8 , 18 , "04:55 "," 19:26 "," 14:31"
data 8 , 19 , "04:56 "," 19:24 "," 14:28"
data 8 , 20 , "04:58 "," 19:22 "," 14:24"
data 8 , 21 , "05:00 "," 19:20 "," 14:20"
data 8 , 22 , "05:01 "," 19:18 "," 14:17"
data 8 , 23 , "05:03 "," 19:16 "," 14:13"
data 8 , 24 , "05:05 "," 19:13 "," 14:08"
data 8 , 25 , "05:07 "," 19:11 "," 14:04"
data 8 , 26 , "05:08 "," 19:09 "," 14:01"
data 8 , 27 , "05:10 "," 19:07 "," 13:57"
data 8 , 28 , "05:11 "," 19:05 "," 13:54"
data 8 , 29 , "05:13 "," 19:02 "," 13:49"
data 8 , 30 , "05:15 "," 19:00 "," 13:45"
data 8 , 31 , "05:16 "," 18:58 "," 13:42"
data 9 , 1 , "05:18 "," 18:55 "," 13:37"
data 9 , 2 , "05:20 "," 18:53 "," 13:33"
data 9 , 3 , "05:21 "," 18:51 "," 13:30"
data 9 , 4 , "05:23 "," 18:49 "," 13:26"
data 9 , 5 , "05:25 "," 18:46 "," 13:21"
data 9 , 6 , "05:26 "," 18:44 "," 13:18"
data 9 , 7 , "05:28 "," 18:42 "," 13:14"
data 9 , 8 , "05:30 "," 18:39 "," 13:09"
data 9 , 9 , "05:31 "," 18:37 "," 13:06"
data 9 , 10 , "05:33 "," 18:35 "," 13:02"
data 9 , 11 , "05:35 "," 18:32 "," 12:57"
data 9 , 12 , "05:36 "," 18:30 "," 12:54"
data 9 , 13 , "05:38 "," 18:28 "," 12:50"
data 9 , 14 , "05:40 "," 18:25 "," 12:45"
data 9 , 15 , "05:41 "," 18:23 "," 12:42"
data 9 , 16 , "05:43 "," 18:21 "," 12:38"
data 9 , 17 , "05:45 "," 18:18 "," 12:33"
data 9 , 18 , "05:46 "," 18:16 "," 12:30"
data 9 , 19 , "05:48 "," 18:13 "," 12:25"
data 9 , 20 , "05:50 "," 18:11 "," 12:21"
data 9 , 21 , "05:51 "," 18:09 "," 12:18"
data 9 , 22 , "05:53 "," 18:06 "," 12:13"
data 9 , 23 , "05:55 "," 18:04 "," 12:09"
data 9 , 24 , "05:56 "," 18:02 "," 12:06"
data 9 , 25 , "05:58 "," 17:59 "," 12:01"
data 9 , 26 , "06:00 "," 17:57 "," 11:57"
data 9 , 27 , "06:01 "," 17:54 "," 11:53"
data 9 , 28 , "06:03 "," 17:52 "," 11:49"
data 9 , 29 , "06:05 "," 17:50 "," 11:45"
data 9 , 30 , "06:06 "," 17:47 "," 11:41"
data 10 , 1 , "06:08 "," 17:45 "," 11:37"
data 10 , 2 , "06:10 "," 17:43 "," 11:33"
data 10 , 3 , "06:12 "," 17:40 "," 11:28"
data 10 , 4 , "06:13 "," 17:38 "," 11:25"
data 10 , 5 , "06:15 "," 17:36 "," 11:21"
data 10 , 6 , "06:17 "," 17:33 "," 11:16"
data 10 , 7 , "06:18 "," 17:31 "," 11:13"
data 10 , 8 , "06:20 "," 17:29 "," 11:09"
data 10 , 9 , "06:22 "," 17:26 "," 11:04"
data 10 , 10 , "06:24 "," 17:24 "," 11:00"
data 10 , 11 , "06:25 "," 17:22 "," 10:57"
data 10 , 12 , "06:27 "," 17:20 "," 10:53"
data 10 , 13 , "06:29 "," 17:17 "," 10:48"
data 10 , 14 , "06:31 "," 17:15 "," 10:44"
data 10 , 15 , "06:32 "," 17:13 "," 10:41"
data 10 , 16 , "06:34 "," 17:11 "," 10:37"
data 10 , 17 , "06:36 "," 17:08 "," 10:32"
data 10 , 18 , "06:38 "," 17:06 "," 10:28"
data 10 , 19 , "06:40 "," 17:04 "," 10:24"
data 10 , 20 , "06:41 "," 17:02 "," 10:21"
data 10 , 21 , "06:43 "," 17:00 "," 10:17"
data 10 , 22 , "06:45 "," 16:58 "," 10:13"
data 10 , 23 , "06:47 "," 16:55 "," 10:08"
data 10 , 24 , "06:49 "," 16:53 "," 10:04"
data 10 , 25 , "06:50 "," 16:51 "," 10:01"
data 10 , 26 , "06:52 "," 16:49 "," 09:57"
data 10 , 27 , "06:54 "," 16:47 "," 09:53"
data 10 , 28 , "06:56 "," 16:45 "," 09:49"
data 10 , 29 , "06:58 "," 16:43 "," 09:45"
data 10 , 30 , "07:00 "," 16:41 "," 09:41"
data 10 , 31 , "07:01 "," 16:39 "," 09:38"
data 11 , 1 , "07:03 "," 16:37 "," 09:34"
data 11 , 2 , "07:05 "," 16:35 "," 09:30"
data 11 , 3 , "07:07 "," 16:34 "," 09:27"
data 11 , 4 , "07:09 "," 16:32 "," 09:23"
data 11 , 5 , "07:11 "," 16:30 "," 09:19"
data 11 , 6 , "07:13 "," 16:28 "," 09:15"
data 11 , 7 , "07:14 "," 16:26 "," 09:12"
data 11 , 8 , "07:16 "," 16:25 "," 09:09"
data 11 , 9 , "07:18 "," 16:23 "," 09:05"
data 11 , 10 , "07:20 "," 16:21 "," 09:01"
data 11 , 11 , "07:22 "," 16:20 "," 08:58"
data 11 , 12 , "07:24 "," 16:18 "," 08:54"
data 11 , 13 , "07:25 "," 16:17 "," 08:52"
data 11 , 14 , "07:27 "," 16:15 "," 08:48"
data 11 , 15 , "07:29 "," 16:14 "," 08:45"
data 11 , 16 , "07:31 "," 16:12 "," 08:41"
data 11 , 17 , "07:33 "," 16:11 "," 08:38"
data 11 , 18 , "07:34 "," 16:09 "," 08:35"
data 11 , 19 , "07:36 "," 16:08 "," 08:32"
data 11 , 20 , "07:38 "," 16:07 "," 08:29"
data 11 , 21 , "07:40 "," 16:06 "," 08:26"
data 11 , 22 , "07:41 "," 16:04 "," 08:23"
data 11 , 23 , "07:43 "," 16:03 "," 08:20"
data 11 , 24 , "07:45 "," 16:02 "," 08:17"
data 11 , 25 , "07:46 "," 16:01 "," 08:15"
data 11 , 26 , "07:48 "," 16:00 "," 08:12"
data 11 , 27 , "07:49 "," 15:59 "," 08:10"
data 11 , 28 , "07:51 "," 15:58 "," 08:07"
data 11 , 29 , "07:53 "," 15:57 "," 08:04"
data 11 , 30 , "07:54 "," 15:56 "," 08:02"
data 12 , 1 , "07:56 "," 15:55 "," 07:59"
data 12 , 2 , "07:57 "," 15:55 "," 07:58"
data 12 , 3 , "07:59 "," 15:54 "," 07:55"
data 12 , 4 , "08:00 "," 15:54 "," 07:54"
data 12 , 5 , "08:01 "," 15:53 "," 07:52"
data 12 , 6 , "08:03 "," 15:52 "," 07:49"
data 12 , 7 , "08:04 "," 15:52 "," 07:48"
data 12 , 8 , "08:05 "," 15:52 "," 07:47"
data 12 , 9 , "08:06 "," 15:51 "," 07:45"
data 12 , 10 , "08:08 "," 15:51 "," 07:43"
data 12 , 11 , "08:09 "," 15:51 "," 07:42"
data 12 , 12 , "08:10 "," 15:51 "," 07:41"
data 12 , 13 , "08:11 "," 15:51 "," 07:40"
data 12 , 14 , "08:12 "," 15:51 "," 07:39"
data 12 , 15 , "08:13 "," 15:51 "," 07:38"
data 12 , 16 , "08:14 "," 15:51 "," 07:37"
data 12 , 17 , "08:14 "," 15:51 "," 07:37"
data 12 , 18 , "08:15 "," 15:51 "," 07:36"
data 12 , 19 , "08:16 "," 15:52 "," 07:36"
data 12 , 20 , "08:17 "," 15:52 "," 07:35"
data 12 , 21 , "08:17 "," 15:52 "," 07:35"
data 12 , 22 , "08:18 "," 15:53 "," 07:35"
data 12 , 23 , "08:18 "," 15:53 "," 07:35"
data 12 , 24 , "08:19 "," 15:54 "," 07:35"
data 12 , 25 , "08:19 "," 15:55 "," 07:36"
data 12 , 26 , "08:19 "," 15:55 "," 07:36"
data 12 , 27 , "08:20 "," 15:56 "," 07:36"
data 12 , 28 , "08:20 "," 15:57 "," 07:37"
data 12 , 29 , "08:20 "," 15:58 "," 07:38"
data 12 , 30 , "08:20 "," 15:59 "," 07:39"
data 12 , 31 , "08:20 "," 16:00 "," 07:40"




moontime:
data 01,"0352","1608","0448","1702","0421","1636","0535","1752","0544","1805","0648","1922","0734","2016","0929","2200","1035","2254","1044","2300","1155","n/a ","1219","n/a "
data 02,"0435","1649","0539","1754","0514","1729","0622","1840","0630","1854","0746","2024","0841","2122","1022","2250","1120","2337","1131","2346","1245","0009","1305","0033"
data 03,"0519","1734","0632","1847","0606","1822","0709","1929","0718","1946","0849","2131","0946","2225","1112","2336","1205","n/a ","1220","n/a ","1335","0100","1349","0120"
data 04,"0607","1821","0725","1941","0657","1913","0755","2018","0809","2042","0956","2239","1048","2322","1158","n/a ","1251","0021","1311","0035","1423","0150","1431","0205"
data 05,"0656","1911","0817","2034","0746","2004","0842","2109","0905","2142","1103","2343","1144","n/a ","1243","0019","1339","0106","1402","0125","1509","0238","1513","0248"
data 06,"0749","2004","0908","2125","0833","2053","0932","2202","1007","2247","1206","n/a ","1235","0013","1328","0102","1429","0154","1453","0216","1553","0324","1555","0332"
data 07,"0842","2057","0956","2214","0920","2141","1026","2300","1112","2354","1304","0042","1322","0100","1413","0144","1519","0243","1542","0307","1636","0410","1639","0417"
data 08,"0935","2151","1042","2302","1006","2230","1123","n/a ","1218","n/a ","1356","0135","1407","0144","1459","0228","1611","0334","1630","0357","1719","0455","1727","0505"
data 09,"1026","2242","1128","2350","1054","2321","1225","0001","1322","0059","1444","0223","1450","0226","1547","0314","1701","0425","1716","0445","1804","0540","1819","0556"
data 10,"1115","2332","1213","n/a ","1144","n/a ","1329","0106","1421","0159","1529","0307","1534","0307","1637","0401","1751","0516","1801","0532","1851","0628","1917","0653"
data 11,"1201"," n/a","1300","0038","1238","0015","1432","0210","1514","0254","1612","0349","1619","0349","1728","0451","1839","0606","1845","0619","1942","0719","2020","0755"
data 12,"1246","0019","1350","0128","1335","0113","1532","0311","1603","0343","1654","0429","1705","0433","1819","0542","1925","0655","1930","0705","2038","0814","2127","0902"
data 13,"1330","0106","1443","0221","1435","0213","1627","0407","1648","0428","1737","0510","1753","0519","1910","0634","2010","0742","2016","0752","2139","0915","2235","1010"
data 14,"1415","0152","1540","0319","1537","0315","1718","0459","1731","0510","1822","0552","1844","0608","1959","0725","2054","0829","2105","0842","2244","1020","2339","1115"
data 15,"1502","0240","1641","0419","1639","0417","1805","0545","1813","0550","1909","0637","1935","0658","2047","0815","2139","0915","2158","0935","2351","1126","n/a ","1214"
data 16,"1553","0331","1743","0521","1737","0516","1849","0629","1856","0630","1958","0723","2027","0750","2132","0903","2226","1003","2255","1032","n/a ","1231","0037","1308"
data 17,"1648","0426","1845","0623","1830","0611","1932","0710","1939","0711","2049","0813","2117","0842","2216","0950","2315","1053","2357","1134","0055","1332","0131","1357"
data 18,"1747","0525","1943","0722","1920","0701","2014","0750","2025","0754","2140","0904","2205","0932","2300","1035","n/a ","1146","n/a ","1237","0154","1427","0220","1443"
data 19,"1851","0628","2036","0816","2007","0747","2057","0831","2112","0839","2231","0955","2251","1021","2344","1121","0008","1243","0101","1341","0248","1516","0306","1526"
data 20,"1955","0732","2126","0906","2051","0830","2141","0912","2202","0927","2321","1046","2335","1108","n/a ","1209","0105","1344","0204","1443","0337","1602","0350","1608"
data 21,"2057","0835","2212","0951","2134","0911","2228","0956","2253","1016","n/a ","1136","n/a ","1153","0030","1258","0206","1446","0304","1539","0424","1645","0435","1651"
data 22,"2155","0933","2256","1034","2217","0952","2316","1042","2344","1108","0008","1223","0018","1238","0120","1352","0309","1548","0400","1631","0508","1727","0520","1735"
data 23,"2247","1027","2339","1116","2300","1033","n/a ","1130","n/a ","1159","0053","1309","0101","1323","0213","1449","0410","1648","0452","1719","0552","1809","0607","1821"
data 24,"2336","1115","n/a ","1156","2345","1116","0006","1221","0035","1249","0136","1354","0145","1411","0311","1550","0509","1743","0539","1803","0636","1852","0655","1910"
data 25,"n/a ","1200","0022","1238","n/a ","1200","0058","1312","0123","1338","0219","1439","0232","1501","0412","1653","0604","1834","0625","1846","0722","1937","0745","2000"
data 26,"0021","1241","0106","1321","0032","1247","0149","1403","0209","1425","0302","1525","0322","1556","0515","1755","0654","1921","0709","1928","0809","2024","0836","2051"
data 27,"0104","1322","0152","1406","0122","1336","0239","1454","0254","1511","0347","1615","0418","1655","0617","1854","0742","2005","0753","2011","0859","2113","0927","2141"
data 28,"0146","1402","0240","1454","0212","1427","0327","1543","0338","1557","0436","1708","0518","1759","0716","1949","0828","2048","0839","2055","0949","2204","1016","2230"
data 29,"0229","1444","0330","1544","0304","1519","0414","1631","0422","1644","0530","1806","0622","1904","0811","2040","0913","2131","0925","2141","1040","2255","1103","2317"
data 30,"0313","1527","n/a ","n/a ","0356","1611","0459","1718","0507","1732","0629","1909","0727","2007","0901","2127","0958","2215","1014","2229","1130","2345","1147","n/a "
data 31,"0359","1613","n/a ","n/a ","0446","1702","n/a ","n/a ","0555","1825","n/a ","n/a ","0830","2106","0949","2211","n/a ","n/a ","1104","2318","n/a ","n/a ","1230","0003"

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / One Wire Weather Station project (open source)

Attachments