Sorry your browser is not supported!

 if here.windspeed > wmax#
      wmax#=here.windspeed
    endif
    if  tempfloat > tmax#
      tmax#= tempfloat
    endif
    if  tempfloat < tmax#
      tmin#= tempfloat
    endif
    center text screen width()/2, screen_height - 340, here.temperature
    text 10, screen_height - 180,"Max speed ="+str$(wmax#,2)
    text 10, screen_height - 160,"Max Temperature ="+str$(tmax#, 2) + "C / " + ...
                                str$(tmax# * 1.8 + 32.0, 2) + "F"
    text 10, screen_height - 140,"Min Temperature ="+str$(tmin#, 2) + "C / " + ...
                                str$(tmin# * 1.8 + 32.0, 2) + "F"

if tempfloat > tmax
    tmax = tempfloat
else
    if tempfloat < tmin
       tmin = tempfloat
    endif
endif

rem globe
make object sphere 7,990.75,100,100
rotate object 7,0,23.5,0
fix object pivot  7
rem 23.5
position object 7,0,-200,930
set object smoothing 7, 100

rem gauges
clone object 11,3
position object 11,-35,0,0
rotate object 11,0,0,90
fix object pivot 11

clone object 12,3
position object 12,-35,0,0
rotate object 12,0,0,90
fix object pivot 12

clone object 13,5
position object 13,-35,0,0
rotate object 13,0,0,90
fix object pivot 13

rem max color red
    set object specular 12, rgb ( 255, 0, 0 )
    set object specular power 12, 255
    set object ambient 12,0
    hide limb 12,0
    hide limb 12,1

    rem min color blue
    set object specular 13, rgb ( 0, 0, 255 )
    set object specular power 13, 255
    set object ambient 13,0
    hide limb 13,0
    hide limb 13,1

  if windspeedkph<500.00
 if here.windspeedkph > wmax#
      wmax#=here.windspeedkph
      wmax2#=here.windspeedmph
    endif

if tempfloat > tmax#
    tmax = tempfloat
else
    if tempfloat < tmin#
       tmin = tempfloat
    endif
endif
endif
 rotate limb 6,1,0,0,(-wmax#*2.0) - 230.0
rotate limb 12,1,0,0,(-tmax#*2.0)
rotate limb 13,1,0,0,(-tmin#*2.0)

rem temperature numbers
text 125,320,"40"
text 100,325,"30"
text 85,335,"20"
text 70,355,"10"
    text 65,375,"0"
    text 70,395,"10"
    text 85,415,"20"

unit.newyangle=here.winddirection*22.5+ here.winddriectionoffset

   unit.oldyangle=curveangle(unit.newyangle+90, unit.oldyangle, 50)
    rotate limb 1,4,0,unit.oldyangle+90,0
    rotate limb 3,1,0,0,-unit.oldyangle,0

if tempfloat > tmax#
    tmax# = tempfloat
else
    if tempfloat < tmin#
       tmin# = tempfloat
else
if onetime<>1
   if tempfloat<>0.0
      tmin#=tempfloat
      onetime=1
   endif
endif
    endif

 gap=2.0
    if wd>=0         and wd<gap        then center text tx,ty,"North N 0(360)"
    if wd>=11.25-gap and wd<=11.25-gap then center text tx,ty,"North by east N by E 11.25"
    if wd>=22.5-gap  and wd<=22.5+gap  then center text tx,ty,"North-northeast NNE 22.5"
    if wd>=33.75-gap and wd<=33.75-gap then center text tx,ty,"Northeast by north NE by N 33.75"
    if wd>=45-gap    and wd<=45+gap    then center text tx,ty,"Northeast NE 45"
    if wd>=56.25-gap and wd<=56.25+gap then center text tx,ty,"Northeast by east NE by E 56.25"
    if wd>=67.5-gap  and wd<=67.5+gap  then center text tx,ty,"East-northeast ENE 67.5"
    if wd>=78.75-gap and wd<=78.75+gap then center text tx,ty,"East by north E by N 78.75"
    if wd>=90-gap    and wd<=90+gap    then center text tx,ty,"East E 90"
    if wd>=101.25-gap and wd<=101.25+gap   then center text tx,ty,"East by south E by S 101.25"
    if wd>=112.5-gap and wd<=112.5+gap then center text tx,ty,"East-southeast ESE 112.5"
    if wd>=123.75-gap and wd<123.75+gap  then center text tx,ty,"Southeast by east SE by E 123.75"
    if wd>=135-gap   and wd<=135+gap     then center text tx,ty,"Southeast SE 135"
    if wd>=146.25-gap and wd<=146.25+gap then center text tx,ty,"Southeast by south SE by S 146.25"
    if wd>=157.5-gap and wd<=157.5+gap   then center text tx,ty,"South-southeast SSE 157.5"
    if wd>=168.75-gap and wd<=168.75+gap then center text tx,ty,"South by east S by E 168.75"
    if wd>=180-gap   and wd<=180+gap     then center text tx,ty,"South S 180"
    if wd>=191.25-gap and wd<=191.25+gap then center text tx,ty,"South by west S by W 191.25"
    if wd>=202.5-gap and wd<=202.5+gap   then center text tx,ty,"South-southwest SSW 202.5"
    if wd>=213.75-gap and wd<=213.75+gap then center text tx,ty,"Southwest by south SW by S 213.75"
    if wd>=225-gap   and wd<=225+gap     then center text tx,ty,"Southwest SW 225"
    if wd>=236.25-gap and wd<=236.25-gap then center text tx,ty,"Southwest by west SW by W 236.25"
    if wd>=247.5-gap and wd<=247.5+gap   then center text tx,ty,"West-southwest WSW 247.5"
    if wd>=258.75-gap and wd<=258.75-gap then center text tx,ty,"West by south W by S 258.75"
    if wd>=270-gap   and wd<=270+gap     then center text tx,ty,"West W 270"
    if wd>=281.25-gap and wd<=281.25+gap  then center text tx,ty,"West by north W by N 281.25"
    if wd>=292.5-gap and wd<=292.5+gap   then center text tx,ty,"West-northwest WNW 292.5"
    if wd>=303.75-gap and wd<=303.75+gap  then center text tx,ty,"Northwest by west NW by W 303.75"
    if wd>=315-gap   and wd<=315+gap     then center text tx,ty,"Northwest NW 315"
    if wd>=326.25-gap and wd<=326.25+gap then center text tx,ty,"Northwest by north NW by N 326.25"
    if wd>=337.5-gap and wd<=337.5+gap   then center text tx,ty,"North-northwest NNW 337.5"
    if wd>=348.75-gap and wd<348.75+gap  then center text tx,ty,"North by west N by W 348.75"
    if wd>=360-gap   and wd<=360 then center text tx,ty,"North N 0(360)"

REM Project: jzGlobe
REM Created: 3/8/2007 9:29:20 PM
REM
REM ***** Main Source File *****
REM

type PLANET
    object          as integer
    texture_0       as integer
    atmosphere      as integer
    atmosphere_tex0 as integer
endtype

type SATELLITE
    object          as integer
    texture_0       as integer
endtype

global milliseconds as integer = 0
global seconds as integer = 0
global minutes as integer =0
global hours as integer = 0
global timesegment as integer =0
global screen_width as integer = 0
global screen_height as integer = 0
global mid_x as integer = 0
global mid_y as integer = 0
global lasttime as integer = 0
global nowtime as integer = 0
global earth as PLANET

set display mode 1024, 768, 16
sync on
sync rate 60
color backdrop 0
autocam off
position camera 0, 0, -10
set text transparent
set text font "terminal"
set text size 18
set text to bold
screen_width = screen width()
screen_height = screen height()
mid_x = screen_width >> 1
mid_y = screen_height >> 1
lasttime = timer()
CreateGlobe()
do
    control camera using arrowkeys 0, 1.0, 1.0
    nowtime = timer()
    timesegment = nowtime - lasttime
    inc milliseconds, timesegment
    DoSolarSystem()
    if milliseconds > 999
        inc seconds
        dec milliseconds, 1000
        tick = TRUE
        if seconds > 59
            inc minutes
            dec seconds, 60
            if minutes > 59
                inc hours
                dec minutes, 60
            endif
        endif
    endif
    lasttime = nowtime
    sync
loop
DestroyGlobe()
end

function CreateGlobe()
    earth.object = 1
    make object sphere earth.object, 128, 90, 90
    earth.atmosphere = 2
    make object sphere earth.atmosphere, 144, 90, 90
    earth.texture_0 = 1
    load image "march.png", earth.texture_0, 1
    earth.atmosphere_tex0 = 2
    load image "black.jpg", earth.atmosphere_tex0, 1
    position object earth.object, 0.0, 0.0, 220.0
    position object earth.atmosphere, 0.0, 0.0, 220.0
    scale object earth.object, 100.0, 100.0, 103.3
    scale object earth.atmosphere, 100.0, 100.0, 103.3
    color object earth.object, rgb(0, 0, 255)
    color object earth.atmosphere, rgb(0, 0, 255)
    set object smoothing earth.atmosphere, 100
    set object smoothing earth.object, 100
    ghost object on earth.atmosphere, 4
    rem rotate object earth.object, 0.0, 0.0, 11.0
    zrotate object earth.object, -7.333
    rem yrotate object earth.object, -90.0
    fix object pivot earth.object
    texture object earth.object, 0, earth.texture_0
    texture object earth.atmosphere, earth.atmosphere_tex0
    set object ambient earth.object, 0
    set object specular earth.object, rgb (32, 32, 32)
    set object specular power earth.object, 0
    set object diffuse earth.object, rgb(0, 0, 255), 0
    set object emissive earth.object, rgb(0, 0, 255)
    set object ambient earth.atmosphere, 1
    set object diffuse earth.atmosphere, rgb(0, 0, 255), 0
    set object emissive earth.atmosphere, rgb(0, 0, 255)
    set object specular earth.atmosphere, rgb (16, 16, 16)
    set object specular power earth.atmosphere, 0

    make light 1
    color light 1, 255, 255, 255
    position light 1, 0.0, 0.0, -10.0
    rem set spot light 1, 120, 180
    rem point light 1, 0.0, 0.0, 0.0
    set light range 1, 5000.0

endfunction

function DestroyGlobe()
    delete object earth.object
    delete object earth.atmosphere
    delete image earth.texture_0
    delete image earth.atmosphere_tex0
endfunction

function DoSolarSystem()
    local earthrotation as float = 0.0
    local earthangle as float = 0.0

    earthrotation = 1.0 / screen fps()
    earthangle = earthrotation * 0.0041667
    earthangle = earthangle * 24.0 * 60.0
    yrotate object earth.object, object angle y(earth.object) - earthangle
endfunction

function DoSceneCleanup()
    DestroyGlobe()
    if light exist(1)
        delete light 1
    endif
    if light exist(2)
        delete light 2
    endif
endfunction

 windchill#=35.74+0.6215*tempf#-35.75*here.windspeedmph^0.16+0.4275*tempf#*here.windspeedmph^0.16
text 10,screen_height - 200 ,"Wind Chill="+str$(windchill#,2)

fill memory get memblock ptr(temp_blk), 0xff, 46

windchillf#=35.74+0.6215*tempfloat-35.75*here.windspeedmph^0.16+0.4275*tempfloat*here.windspeedmph^0.16
windchillc#=13.12+0.6215*tempfloat-11.37*here.windspeedkph^0.16+0.3965*tempfloat*here.windspeedkph^0.16

if here.tnow > here.tmax
    here.tmax = here.tnow
endif
if here.tnow < here.tmin
    here.tmin = here.tnow
endif

function TheBeaufortScales(knots#)

local x
local y
x=0
y=70
text x,y+15,"knots= "+str$(knots#)
`Beaufort Scales (Wind Speed)
`Force Speed Name Conditions
`at Sea Conditions
`on Land

`knots
`km/h
`mi/h

`0
`< 1
`< 2
`< 1 Calm Sea like a mirror. Smoke rises vertically.
if knots#> 0.0 and knots# < 0.99
   text x,y," Force 0 / Calm / Sea like a mirror. / Smoke rises vertically."
endif
`1
`1-3
`1-5
`1-4 Light air Ripples only. Smoke drifts and leaves rustle.
if knots# >1.0 and knots# < 3.99
   text x,y,"Force 1 / Light / air Ripples only. / Smoke drifts and leaves rustle."
endif
`2
`4-6
`6-11
`5-7 Light breeze Small wavelets (0.2 m). Crests have a glassy appearance. Wind felt on face.
if knots# >4.0 and knots# < 6.99
   text x,y,"Force 2 /Light breeze / Small wavelets (0.2 m). /  Crests have a glassy appearance. / Wind felt on face."
endif
`3
`7-10
`12-19
`8-11 Gentle breeze Large wavelets (0.6 m), crests begin to break. Flags extended, leaves move.
if knots# >7.0 and knots# < 10.99
   text x,y,"Force 3 /Gentle breeze / Large wavelets (0.6 m), crests begin to break. / Flags extended, leaves move."
endif
`4
`11-16
`20-29
`12-18 Moderate breeze Small waves (1 m), some whitecaps. Dust and small branches move.
if knots# >11.0 and knots# < 16.99
text x,y,"Force 4 / Moderate breeze / Small waves (1 m), some whitecaps. / Dust and small branches move."
endif
`5
`17-21
`30-39
`19-24 Fresh breeze Moderate waves (1.8 m), many whitecaps. Small trees begin to sway.
if knots# >17.0 and knots# < 21.99
text x,y,"Force 5 / Fresh breeze Moderate waves (1.8 m), many whitecaps. / Small trees begin to sway."
endif
`6
`22-27
`40-50
`25-31 Strong breeze Large waves (3 m), probably some spray. Large branches move, wires whistle, umbrellas are difficult to control.
if knots# >22.0 and knots# < 27.99
text x,y,"Force 6 /Strong breeze / Large waves (3 m), probably some spray. / Large branches move, wires whistle, umbrellas are difficult to control."
endif
`7
`28-33
`51-61
`32-38 Near gale Mounting sea (4 m) with foam blown in streaks downwind. Whole trees in motion, inconvenience in walking.
if knots# >28.0 and knots# < 33.99
text x,y,"Force 7 / Near gale / Mounting sea (4 m) with foam blown in streaks downwind. / Whole trees in motion, inconvenience in walking."
endif
`8
`34-40
`62-74
`39-46 Gale Moderately high waves (5.5 m), crests break into spindrift. Difficult to walk against wind. Twigs and small branches blown off trees.
if knots# > 34.0 and knots# < 40.99
text x,y,"Force 8 / Gale Moderately  / high waves (5.5 m), crests break into spindrift. / Difficult to walk against wind. Twigs and small branches blown off trees."
endif
`9
`41-47
`76-87
`47-54 Strong gale High waves (7 m), dense foam, visibility affected. Minor structural damage may occur (shingles blown off roofs).
if knots# >41.0 and knots# < 47.99
text x,y,"Force 9 / Strong gale / High waves (7 m), dense foam, visibility affected. / Minor structural damage may occur (shingles blown off roofs)."
endif
`10
`48-55
`88-102
`55-63 Storm Very high waves (9 m), heavy sea roll, visibility impaired. Surface generally white. Trees uprooted, structural damage likely.
if knots# > 48.0 and knots# < 55.99
text x,y,"Force 10 /Storm Very  / high waves (9 m), heavy sea roll, visibility impaired. Surface generally white.  /Trees uprooted, structural damage likely."
endif
`11
`56-63
`103-118
`64-73 Violent storm  Exceptionally high waves (11 m), visibility poor. Widespread damage to structures.
if knots# > 56.0 and knots# < 63.99
text x,y,"Force 11 / Violent storm / Exceptionally high waves (11 m), visibility poor.  / Widespread damage to structures."
endif
`12
`64+
`119+
`74+ Hurricane 14 m waves, air filled with foam and spray, visibility bad. Severe structural damage to buildings, wide spread devastation.
if knots# > 64.0
text x,y,"Force 12 /Hurricane / 14 m waves, air filled with foam and spray, visibility bad. / Severe structural damage to buildings, wide spread devastation."
endif
endfunction

function The_Fujita_Scale(windspeedmph#)
local x
local y
x=10
y=150

`The Fujita Scale
`F-Scale Number Intensity Phrase Wind Speed Type of Damage Done
`F0 Gale tornado 40-72 mph Some damage to chimneys; breaks branches off trees; pushes over shallow-rooted trees; damages sign boards.
if windspeedmph# > 40.0 and windspeedmph# < 72.99
text x,y,"F0 / Gale tornado / Some damage to chimneys; breaks branches off trees; pushes over shallow-rooted trees; damages sign boards."
endif

`F1 Moderate tornado 73-112 mph The lower limit is the beginning of hurricane wind speed; peels surface off roofs; mobile homes pushed off foundations or overturned; moving autos pushed off the roads; attached garages may be destroyed.
if windspeedmph# > 73.0 and windspeedmph# < 112.99
text x,y,"F1 Moderate tornado 73-112 mph The lower limit is the beginning of hurricane wind speed; peels surface off roofs; mobile homes pushed off foundations or overturned; moving autos pushed off the roads; attached garages may be destroyed."
endif

`F2 Significant tornado 113-157 mph Considerable damage. Roofs torn off frame houses; mobile homes demolished; boxcars pushed over; large trees snapped or uprooted; light object missiles generated.
if windspeedmph# > 113.0 and windspeedmph# < 157.99
text x,y,"F2 Significant tornado 113-157 mph Considerable damage. Roofs torn off frame houses; mobile homes demolished; boxcars pushed over; large trees snapped or uprooted; light object missiles generated."
endif

`F3 Severe tornado 158-206 mph Roof and some walls torn off well constructed houses; trains overturned; most trees in fores uprooted
if windspeedmph# > 158.0 and windspeedmph# < 206.99
text x,y,"F3 Severe tornado 158-206 mph Roof and some walls torn off well constructed houses; trains overturned; most trees in fores uprooted."
endif

`F4 Devastating tornado 207-260 mph Well-constructed houses leveled; structures with weak foundations blown off some distance; cars thrown and large missiles generated.
if windspeedmph# > 207.0 and windspeedmph# < 260.99
text x,y,"F4 Devastating tornado 207-260 mph Well-constructed houses leveled; structures with weak foundations blown off some distance; cars thrown and large missiles generated."
endif

`F5 Incredible tornado 261-318 mph Strong frame houses lifted off foundations and carried considerable distances to disintegrate; automobile sized missiles fly through the air in excess of 100 meters; trees debarked; steel re-inforced concrete structures badly damaged.
if windspeedmph# > 261.0 and windspeedmph# < 318.99
text x,y,"F5 Incredible tornado 261-318 mph Strong frame houses lifted off foundations and carried considerable distances to disintegrate; automobile sized missiles fly through the air in excess of 100 meters; trees debarked; steel re-inforced concrete structures badly damaged."
endif

`F6 Inconceivable tornado 319-379 mph These winds are very unlikely. The small area of damage they might produce would probably not be recognizable along with the mess produced by F4 and F5 wind that would surround the F6 winds. Missiles, such as cars and refrigerators would do serious secondary damage that could not be directly identified as F6 damage. If this level is ever achieved, evidence for it might only be found in some manner of ground swirl pattern, for it may never be identifiable through engineering studies
if windspeedmph# > 319.0 and windspeedmph# < 379.99
text x,y,"F6 Inconceivable tornado 319-379 mph These winds are very unlikely. The small area of damage they might produce would probably not be recognizable along with the mess"
text x,y+15,"produced by F4 and F5 wind that would surround the F6 winds. Missiles, such as cars and refrigerators would do serious secondary damage that could not be directly"
text x,y+30,"identified as F6 damage. If this level is ever achieved, evidence for it might only be found in some manner of ground swirl pattern, for it may never be identifiable"
text x,y+45,"through engineering studies"
endif
endfunction

`Back plain
make object plain 301,104,9
lock object on 301
color object 301,rgb(255,255,0)

`Front plain
make object plain 302,100,6
lock object on 302
color object 302,rgb(255,0,0)

`Front plain
make object plain 303,100,6
lock object on 303
color object 303,rgb(0,0,255)

function update_bar(perc#)
if perc# > pmax#
   pmax# = perc#
endif

camoffset =60

if perc#<0.0 then perc#=0.0
if perc#>100.0 then perc#=100.0
xmid#=(perc#/2.0)-50.0
if pmax#<0.0 then pmax#=0.0
if pmax#>100.0 then pmax#=100.0
xmidm#=(pmax#/2.0)-50.0
position object 301,0,80,150+camoffset
position object 303,xmid#,80,149.8+camoffset
position object 302,xmidm#,80,149.8+camoffset
scale object 303,perc#,100,100
scale object 302,pmax#,100,100
endfunction

function print_temp_text()
x1 = 190
x2 = 230
x3 = 290
y1 = 450
y2 = 450
y3 = 450
text x1, screen_height - y1,"C"
text x2, screen_height - y2,"F"
ink rgb(255,0,0),0
text x1,screen_height - y1 +15, str$(tmax#,2)
text x2,screen_height - y2 +15, str$(tmax#* 1.8 + 32.0, 2)
text x3,screen_height - y3 +15 ,"Max"
ink rgb(255,255,255),0
text x1,screen_height - y1 +30, str$(tempfloat,2)
text x2,screen_height - y2 +30, str$(tempfloat* 1.8 + 32.0, 2)
text x3,screen_height - y3 +30 ,"Now"
ink RGB(0,255,255),0
text x1,screen_height - y1 +45, str$(tmin#, 2)
text x2,screen_height - y2 +45, str$(tmin#* 1.8 + 32.0, 2)
text x3,screen_height - y3 +45 ,"Min"
ink rgb(0,255,0),0
text x1,screen_height - y1 +60, str$(windchillc#,2)
text x2,screen_height - y2 +60, str$(windchillc#* 1.8 + 32.0, 2)
text x3,screen_height - y3 +60 ,"Chill"

endfunction

function Print_WindSpeed_Text()
local x1 x2 x3 x4 y1 y2 y3 y4
x1 = 170
x2 = 210
x3 = 250
x4 = 370
y1 = 600
y2 = 600
y3 = 600
if fnow#> fmax#
fmax#=fnow#
endif
if ffnow#> ffmax#
ffmax#=ffnow#
endif
text x1, screen_height - y1,"Kt"
text x2, screen_height - y2,"Kph"
text x3, screen_height - y3,"Mph"
text x3+40,screen_height - y3,"f"
text x3+80,screen_height - y3,"F"
ink rgb(255,0,0),0
text x1,screen_height - y1 +15,  str$(wmax1#,2)
text x2,screen_height - y2 +15, str$(wmax#,2)
text x3,screen_height - y2 +15, str$(wmax2#,2)
text x3+40, screen_height - y2 +15 , str$(fmax#)
text x3+80, screen_height - y2 +15 , str$(ffmax#)
text x4,screen_height - y3 +15 ,"Max"

ink rgb(255,255,255),0
text x1,screen_height - y1 +30,str$(here.windspeed,2)
text x2,screen_height - y2 +30,str$(here.windspeedkph,2)
text x3,screen_height - y2 +30,str$(here.windspeedmph,2 )
text x3+40, screen_height - y2 +30 , str$(fnow#)
text x3+80, screen_height - y2 +30 , str$(ffnow#)

text x4,screen_height - y3 +30 ,"Now"

endfunction

`The Greenwich Intervals we provide can be converted to the Local Interval using the following formula:

Local_Interval = GI - (0.069 * L)

`Where L is the longitude for the location in degrees. West longitudes are positive;
`East longitudes are negative.
`Example: 122 degrees 23.7 minutes West would be 122.395 degrees. (23.7 / 60 = 0.395)
`Longitude for a station is available from the Accepted Datums page by using the link
`provided for further station information.
`Where GI is the Greenwich Interval. To calculate the High Tide Local Interval,
`use the Greenwich Mean High Water Interval in Hours from the Accepted Datums page.
`To calculate the Low Tide Local Interval, use the Greenwich Mean Low Water Interval
`in Hours.
`Some products will require the Local Interval to be a positive number.
`You can convert a negative interval to a positive by adding 12.42 to the result.
`For example, if your interval calculated to be -4.11;
`you could also use 8.31 (-4.11 + 12.42 = 8.31)

function The_Beaufort_Scales(knots#)

local x
local y
x=0
y=70
text x,y+15,"knots= "+str$(knots#,2)
`Beaufort Scales (Wind Speed)
`Force Speed Name Conditions
`at Sea Conditions
`on Land

`knots
`km/h
`mi/h

`0
`< 1
`< 2
`< 1 Calm Sea like a mirror. Smoke rises vertically.
if knots#> 0.0 and knots# < 0.99
   text x,y," Force 0 / Calm / Sea like a mirror. / Smoke rises vertically."
   update_bar(knots#*1.5)
   fnow#=0
endif
`1
`1-3
`1-5
`1-4 Light air Ripples only. Smoke drifts and leaves rustle.
if knots# >1.0 and knots# < 3.99
   text x,y,"Force 1 / Light / air Ripples only. / Smoke drifts and leaves rustle."
update_bar(knots#*1.5)
fnow#=1
   endif
`2
`4-6
`6-11
`5-7 Light breeze Small wavelets (0.2 m). Crests have a glassy appearance. Wind felt on face.
if knots# >4.0 and knots# < 6.99
   text x,y,"Force 2 /Light breeze / Small wavelets (0.2 m). /  Crests have a glassy appearance. / Wind felt on face."
update_bar(knots#*1.5)
fnow#=2
   endif
`3
`7-10
`12-19
`8-11 Gentle breeze Large wavelets (0.6 m), crests begin to break. Flags extended, leaves move.
if knots# >7.0 and knots# < 10.99
   text x,y,"Force 3 /Gentle breeze / Large wavelets (0.6 m), crests begin to break. / Flags extended, leaves move."
update_bar(knots#*1.5)
fnow#=3
   endif
`4
`11-16
`20-29
`12-18 Moderate breeze Small waves (1 m), some whitecaps. Dust and small branches move.
if knots# >11.0 and knots# < 16.99
text x,y,"Force 4 / Moderate breeze / Small waves (1 m), some whitecaps. / Dust and small branches move."
update_bar(knots#*1.5)
fnow#=4
endif
`5
`17-21
`30-39
`19-24 Fresh breeze Moderate waves (1.8 m), many whitecaps. Small trees begin to sway.
if knots# >17.0 and knots# < 21.99
text x,y,"Force 5 / Fresh breeze Moderate waves (1.8 m), many whitecaps. / Small trees begin to sway."
update_bar(knots#*1.5)
fnow#=5
endif
`6
`22-27
`40-50
`25-31 Strong breeze Large waves (3 m), probably some spray. Large branches move, wires whistle, umbrellas are difficult to control.
if knots# >22.0 and knots# < 27.99
text x,y,"Force 6 /Strong breeze / Large waves (3 m), probably some spray. / Large branches move, wires whistle, umbrellas are difficult to control."
update_bar(knots#*1.5)
fnow#=6
endif
`7
`28-33
`51-61
`32-38 Near gale Mounting sea (4 m) with foam blown in streaks downwind. Whole trees in motion, inconvenience in walking.
if knots# >28.0 and knots# < 33.99
text x,y,"Force 7 / Near gale / Mounting sea (4 m) with foam blown in streaks downwind. / Whole trees in motion, inconvenience in walking."
update_bar(knots#*1.5)
fnow#=7
endif
`8
`34-40
`62-74
`39-46 Gale Moderately high waves (5.5 m), crests break into spindrift. Difficult to walk against wind. Twigs and small branches blown off trees.
if knots# > 34.0 and knots# < 40.99
text x,y,"Force 8 / Gale Moderately  / high waves (5.5 m), crests break into spindrift. / Difficult to walk against wind. Twigs and small branches blown off trees."
update_bar(knots#*1.5)
fnow#=8
endif
`9
`41-47
`76-87
`47-54 Strong gale High waves (7 m), dense foam, visibility affected. Minor structural damage may occur (shingles blown off roofs).
if knots# >41.0 and knots# < 47.99
text x,y,"Force 9 / Strong gale / High waves (7 m), dense foam, visibility affected. / Minor structural damage may occur (shingles blown off roofs)."
update_bar(knots#*1.5)
fnow#=9
endif
`10
`48-55
`88-102
`55-63 Storm Very high waves (9 m), heavy sea roll, visibility impaired. Surface generally white. Trees uprooted, structural damage likely.
if knots# > 48.0 and knots# < 55.99
text x,y,"Force 10 /Storm Very  / high waves (9 m), heavy sea roll, visibility impaired. Surface generally white.  /Trees uprooted, structural damage likely."
update_bar(knots#*1.5)
fnow#=10
endif
`11
`56-63
`103-118
`64-73 Violent storm  Exceptionally high waves (11 m), visibility poor. Widespread damage to structures.
if knots# > 56.0 and knots# < 63.99
text x,y,"Force 11 / Violent storm / Exceptionally high waves (11 m), visibility poor.  / Widespread damage to structures."
update_bar(knots#*1.5)
fnow#=11
endif
`12
`64+
`119+
`74+ Hurricane 14 m waves, air filled with foam and spray, visibility bad. Severe structural damage to buildings, wide spread devastation.
if knots# > 64.0
text x,y,"Force 12 /Hurricane / 14 m waves, air filled with foam and spray, visibility bad. / Severe structural damage to buildings, wide spread devastation."
update_bar(knots#*1.5)
fnow#=12
endif
endfunction

function The_Fujita_Scale(windspeedmph#)
local x
local y
x=10
y=150

`The Fujita Scale
`F-Scale Number Intensity Phrase Wind Speed Type of Damage Done
`F0 Gale tornado 40-72 mph Some damage to chimneys; breaks branches off trees; pushes over shallow-rooted trees; damages sign boards.
if windspeedmph# > 40.0 and windspeedmph# < 72.99
text x,y,"F0 / Gale tornado / Some damage to chimneys; breaks branches off trees; pushes over shallow-rooted trees; damages sign boards."
ffnow#=0
endif

`F1 Moderate tornado 73-112 mph The lower limit is the beginning of hurricane wind speed; peels surface off roofs; mobile homes pushed off foundations or overturned; moving autos pushed off the roads; attached garages may be destroyed.
if windspeedmph# > 73.0 and windspeedmph# < 112.99
text x,y,"F1 Moderate tornado 73-112 mph The lower limit is the beginning of hurricane wind speed; peels surface off roofs; mobile homes pushed off foundations or overturned; moving autos pushed off the roads; attached garages may be destroyed."
ffnow#=1
endif

`F2 Significant tornado 113-157 mph Considerable damage. Roofs torn off frame houses; mobile homes demolished; boxcars pushed over; large trees snapped or uprooted; light object missiles generated.
if windspeedmph# > 113.0 and windspeedmph# < 157.99
text x,y,"F2 Significant tornado 113-157 mph Considerable damage. Roofs torn off frame houses; mobile homes demolished; boxcars pushed over; large trees snapped or uprooted; light object missiles generated."
ffnow#=2
endif

`F3 Severe tornado 158-206 mph Roof and some walls torn off well constructed houses; trains overturned; most trees in fores uprooted
if windspeedmph# > 158.0 and windspeedmph# < 206.99
text x,y,"F3 Severe tornado 158-206 mph Roof and some walls torn off well constructed houses; trains overturned; most trees in fores uprooted."
ffnow#=3
endif

`F4 Devastating tornado 207-260 mph Well-constructed houses leveled; structures with weak foundations blown off some distance; cars thrown and large missiles generated.
if windspeedmph# > 207.0 and windspeedmph# < 260.99
text x,y,"F4 Devastating tornado 207-260 mph Well-constructed houses leveled; structures with weak foundations blown off some distance; cars thrown and large missiles generated."
ffnow#=4
endif

`F5 Incredible tornado 261-318 mph Strong frame houses lifted off foundations and carried considerable distances to disintegrate; automobile sized missiles fly through the air in excess of 100 meters; trees debarked; steel re-inforced concrete structures badly damaged.
if windspeedmph# > 261.0 and windspeedmph# < 318.99
text x,y,"F5 Incredible tornado 261-318 mph Strong frame houses lifted off foundations and carried considerable distances to disintegrate; automobile sized missiles fly through the air in excess of 100 meters; trees debarked; steel re-inforced concrete structures badly damaged."
ffnow#=5
endif

`F6 Inconceivable tornado 319-379 mph These winds are very unlikely. The small area of damage they might produce would probably not be recognizable along with the mess produced by F4 and F5 wind that would surround the F6 winds. Missiles, such as cars and refrigerators would do serious secondary damage that could not be directly identified as F6 damage. If this level is ever achieved, evidence for it might only be found in some manner of ground swirl pattern, for it may never be identifiable through engineering studies
if windspeedmph# > 319.0 and windspeedmph# < 379.99
text x,y,"F6 Inconceivable tornado 319-379 mph These winds are very unlikely. The small area of damage they might produce would probably not be recognizable along with the mess"
text x,y+15,"produced by F4 and F5 wind that would surround the F6 winds. Missiles, such as cars and refrigerators would do serious secondary damage that could not be directly"
text x,y+30,"identified as F6 damage. If this level is ever achieved, evidence for it might only be found in some manner of ground swirl pattern, for it may never be identifiable"
text x,y+45,"through engineering studies"
ffnow#=6
endif

endfunction

  rem cup cones
    rotate limb 1,13,90,30,0
    rotate limb 1,14,-90,30,0
    offset limb 1,13,7,0,-10
    offset limb 1,14,7,0,-10

    add limb 1,15,3
    add limb 1,16,100

    link limb 1,7,15
    link limb 1,7,16
    rem cup cones
    rotate limb 1,15,90,-90,0
    rotate limb 1,16,-90,-90,0
    offset limb 1,15,5,0,10
    offset limb 1,16,5,0,10

    add limb 1,17,3
    add limb 1,18,100

    link limb 1,7,17
    link limb 1,7,18

    rem cup cones
    rotate limb 1,17,90,150,0
    rotate limb 1,18,-90,150,0
    offset limb 1,17,-10,0,-2
    offset limb 1,18,-10,0,-2

function analog_clock(cx,cy,size)
plx=cx
ply=cy
sizex=size
sizey=size

rem analog clock sinppet by CuCuMBeR
ink rgb(0,255,0),0
    for a=1 to 360 step 30 :
        center text 320+sin(a+30)*45+plx,240-cos(a+30)*45+ply,str$(a/30+1) :
    next a

    time$ = get time$() :
    hr = val(left$(time$,2)) :
    min = val(mid$(time$,4)+mid$(time$,5)) :
    sec = val(right$(time$,2))
    hrt = hr mod 12

    ink rgb(255,0,0),0 :
    line 320+plx,240+ply,320+sin(sec*6)*(sizex+15)+plx,240-cos(sec*6)*(sizey+15)+ply
    ink rgb(200,200,0),0 :
    line 320+plx,240+ply,320+sin(min*6)*(sizex+10)+plx,240-cos(min*6)*(size+10)+ply
    ink rgb(200,200,200),0 :
    line 320+plx,240+ply,320+sin(hrt*30)*(sizex+5)+plx,240-cos(hrt*30)*(sizey+5)+ply
 endfunction

function analog_clock(cx as integer, cy as integer, sizex as integer, sizey as integer)
    local a as integer = 0
    local shLenX as integer = 0
    local shLenY as integer = 0
    local mhLenX as integer = 0
    local mhLenY as integer = 0
    local hhLenX as integer = 0
    local hhLenY as integer = 0
    local cyadj as integer = 0
    local hr as integer = 0
    local min as integer = 0
    local sec as integer = 0
    local hrt as float = 0.0
    local time$ as string = NULLSTR

    shLenX = sizex * 0.80
    shLenY = sizey * 0.80
    mhLenX = sizex * 0.70
    mhLenY = sizey * 0.70
    hhLenX = sizex * 0.60
    hhLenY = sizey * 0.60
    cyadj = cy - 8
    rem analog clock sinppet by CuCuMBeR
    ink rgb(0,255,0),0
    for a=1 to 12
        center text cx+sin(a*30)*sizex,cyadj-cos(a*30)*sizey,str$(a)
    next a

    time$ = get time$()
    hr = val(left$(time$,2))
    min = val(mid$(time$,4)+mid$(time$,5))
    sec = val(right$(time$,2))
    hrt = hr mod 12
    ink rgb(255,0,0),0
    line cx,cy,cx+sin(sec*6)*shLenX,cy-cos(sec*6)*shLenY
    ink rgb(200,200,0),0
    line cx,cy,cx+sin(min*6)*mhLenX,cy-cos(min*6)*mhLenY
    ink rgb(200,200,200),0
    line cx,cy,cx+sin(hrt*30+min*0.5)*hhLenX,cy-cos(hrt*30+min*0.5)*hhLenY
 endfunction

function analog_clock(cx as integer, cy as integer, sizex as integer, sizey as integer,Mtime$)
    local a as integer = 0
    local mgsLenX as integer = 0
    local mgsLenX as integer = 0
    local mgeLenY as integer = 0
    local mgeLenY as integer = 0
    local shLenX as integer = 0
    local shLenY as integer = 0
    local mhLenX as integer = 0
    local mhLenY as integer = 0
    local hhLenX as integer = 0
    local hhLenY as integer = 0
    local cyadj as integer = 0
    local hr as integer = 0
    local min as integer = 0
    local sec as integer = 0
    local hrt as float = 0.0
    local time$ as string = NULLSTR
    mgsLenX = sizex * 0.82
    mgsLenY = sizey * 0.82
    mgeLenX = sizex * 0.90
    mgeLenY = sizey * 0.90
    shLenX = sizex * 0.80
    shLenY = sizey * 0.80
    mhLenX = sizex * 0.70
    mhLenY = sizey * 0.70
    hhLenX = sizex * 0.60
    hhLenY = sizey * 0.60
    cyadj = cy - 8
    rem analog clock sinppet by CuCuMBeR
    txsize = text size()/2
    ink rgb(255,255,255),0
    ELLIPSE cx,cy,sizex+txsize,sizey+txsize
    ELLIPSE cx,cy,mgsLenX,mgsLeny
    ELLIPSE cx,cy,mgeLenX,mgeLenY
    for a=1 to 60
        line cx+sin(a*6)*mgsLenX,cy-cos(a*6)*mgsLenY,cx+sin(a*6)*mgeLenX,cy-cos(a*6)*mgeLenY
    next a
    ink rgb(0,255,0),0
    for a=1 to 12
        center text cx+sin(a*30)*sizex,cyadj-cos(a*30)*sizey,str$(a)
    next a
    time$ = get time$()
    hr = val(left$(time$,2))
    min = val(mid$(time$,4)+mid$(time$,5))
    sec = val(right$(time$,2))
    hrt = hr mod 12
    ink rgb(255,0,0),0
    line cx,cy,cx+sin(sec*6)*shLenX,cy-cos(sec*6)*shLenY
    ink rgb(200,200,0),0
    line cx,cy,cx+sin(min*6)*mhLenX,cy-cos(min*6)*mhLenY
    ink rgb(200,200,200),0
    line cx,cy,cx+sin(hrt*30+min*0.5)*hhLenX,cy-cos(hrt*30+min*0.5)*hhLenY
 endfunction

function update_bar(perc#)
if perc# > pmax#
   pmax# = perc#
endif
x1=-100
y1=50
z1=150
camoffset =60
`ghost object on 301,3
if perc#<0.0 then perc#=0.0
if perc#>100.0 then perc#=100.0
xmid#=(perc#/3.0)-50.0
if pmax#<0.0 then pmax#=0.0
if pmax#>100.0 then pmax#=100.0
xmidm#=(pmax#/3.0)-50.0
position object 301,x1,y1,z1+camoffset
position object 302,x1+xmidm#,y1,z1-0.2+camoffset
position object 303,x1+xmid#,y1,z1-0.4+camoffset
scale object 303,perc#,100,100
scale object 302,pmax#,100,100
ink rgb(255,0,0),0
text x1+155+(pmax#*3.0),y1+200,"f"+str$(fmax#)

ink rgb(255,255,255),0
text x1+155+(perc#*3.0),y1+200,"f"+str$(fnow#)

endfunction

Rem ***** Main Source File *****
Rem Project: clockmodel1
Rem Created: 23/05/2006 04:40:18

Rem ***** Main Source File ****

Rem Project: CLOCK MODEL
Rem Created: 20/05/2006 12:20:59

Rem ***** Main Source File *****
sync on
sync rate 60
backdrop on
autocam off

color backdrop rgb(0,0,0)

position camera 0,0,150,-650
create_romannums()

make matrix 1,1500.0,1500.0,10,10
position matrix 1,-700,-100,-700
make object cylinder 1,100/2

rem make spin bar and balls
make object sphere 2, 150/2
color object 2,rgb(255,0,0)
make object sphere 3, 150/2
make object cylinder 4,100/2
make object cylinder 5,100/2
make mesh from object 2,2
make mesh from object 3,3
make mesh from object 4,4
make mesh from object 5,5

delete object 2
delete object 3
delete object 4
delete object 5

add limb 1,1,2
add limb 1,2,3
add limb 1,3,4
add limb 1,4,5
delete mesh 2
delete mesh 3
delete mesh 4
delete mesh 5

offset limb 1,1,0,200/2,0,
offset limb 1, 2,0,-200/2, 0
offset limb 1,3,0,100/2,0
offset limb 1,4,0,-100/2,0
roll object right 1,90
fix object pivot 1
rem make a copy of above
clone object 2,1
clone object 3,1
rem turn them on there side and rotate one 90 deg
turn object right 2,90
make mesh from object 6,2
delete object 2
add limb 1,5,6
delete mesh 6


roll object right 3,90
fix object pivot 3
make mesh from object 7,3
delete object 3

add limb 1,6,7
rotate limb 1,6,90,90,0
delete mesh 7
offset limb 1,6,-200/2,0,0

color object 1,RGB(128,64,0)

rem make a clock face and rotate it facewards
make object sphere 2,25,50,50
scale object 2,900,10,900
color object 2,rgb(100,100,100)

rotate object 2,90,0,90

rem clock bits min and hours hands
make object sphere 3, 10
make object cylinder 4,10
make object cylinder 5,10
make object cone 6,10
make mesh from object 10,3
make mesh from object 11,4
make mesh from object 12,5
make mesh from object 13,6
`delete object 3
delete object 4
delete object 5
delete object 6
add limb 3,1,10
add limb 3,2,11
add limb 3,3,12
add limb 3,4,13
delete mesh 10
delete mesh 11
delete mesh 12
delete mesh 13
rem mins
offset limb 3, 4,0,-40, 0
rotate limb 3,4,180,90,0
offset limb 3,3,0,-100/2,0

position object 3,0,400/2,-115

link limb 3,1,2
link limb 3,2,3
link limb 3,3,4

clone object 4,3

color object 3,rgb(0,255,0)
color object 4,rgb(255,0,255)
rem hours
offset limb 4,4,0,-20,0
`offset limb 4,3,0,-40,0

rem make glass tube and tint with glass look same for half sphere.
gh=0
make object cylinder 6,325
texture object 6,23
ghost object on 6,gh
position object 6,0,280/2,0

rem make glass sphere for top
make object sphere 7,325
  LOCK VERTEXDATA FOR LIMB 7, 0, 2
  for V=0 to GET VERTEXDATA VERTEX COUNT()-1
   y#=GET VERTEXDATA POSITION y(V)
   if y# < 0.0 then y# = 0-y#
   x#=GET VERTEXDATA POSITION x(V)
   Z#=GET VERTEXDATA POSITION Z(V)
   SET VERTEXDATA POSITION V, X#, Y#, Z#
  next V
  UNLOCK VERTEXDATA
texture object 7,23
  ghost object on 7,gh
turn object left 7,-90
position object 7,0,300,0

rem make second hands
clone object 8,3
color object 8,rgb(0,0,255)
offset limb 8,4,0,-50,0

rem make clock bases
make object sphere 9,50/2,100/2,100/2
scale object 9,1560,20/2,1560
color object 9,RGB(128,64,0)
position object 9,0,-100/2,0
make object sphere 10,50/2,100/2,100/2
scale object 10,1600,20,1600
color object 10,RGB(128,64,0)
position object 10,0,-120/2,0
make object cylinder 11,326
scale object 11,100,5,100
color object 11,RGB(255,255,0)
position object 11,0,306,0
make object box 12,150,100,200
position object 12,0,200,0
rem ...................................................
rem set text to white
ink rgb(255,255,255),0
global s h m t$
for o=1 to 400
if object exist(o)<>0
set object cull o,1
inc nl
endif
next o

texture object 2,23
`ghost object on 2,4
position object 2,0,200,-100
do
gosub _drag_object
metime()

control camera using arrowkeys 0,1,.1
center text screen width()/2,0,"FPs="+str$(screen fps())+" Poly's="+str$(statistic(1))
sync
loop



_drag_object:

if mouseclick()=0 then pickmode=0 : cursorobj=0
mclick=mouseclick()
if mclick>0
 if pickmode=0
  cursorobj=pick object(mousex(),mousey(),1,40)
  if cursorobj>0
   pickmode=mclick
   pickdistance#=get pick distance()
   pickfromx#=get pick vector x()
   pickfromy#=get pick vector y()
   pickfromz#=get pick vector z()
   if pickmode=1
    objx#=object position x(cursorobj)
    objy#=object position y(cursorobj)
    objz#=object position z(cursorobj)
   else
    objx#=object angle x(cursorobj)
    objy#=object angle y(cursorobj)
    objz#=object angle z(cursorobj)
    pickdiffx#=mousemovey() : pickdiffx#=0
    pickdiffy#=mousemovex() : pickdiffy#=0
   endif
  else
   highlightobj=0
  endif
 endif
 if pickmode>0
  if pickmode=1
   pick screen mousex(),mousey(),pickdistance#
   picktox#=get pick vector x()
   picktoy#=get pick vector y()
   picktoz#=get pick vector z()
   pickdiffx#=picktox#-pickfromx#
   pickdiffy#=picktoy#-pickfromy#
   pickdiffz#=picktoz#-pickfromz#
   grid=0
   if grid=1
    pickdiffx#=int(pickdiffx#/5)*5
    pickdiffy#=int(pickdiffy#/5)*5
    pickdiffz#=int(pickdiffz#/5)*5
   endif
   position object cursorobj,objx#+pickdiffx#,objy#+pickdiffy#,objz#+pickdiffz#
  else
   pickdiffx#=pickdiffx#+mousemovey()
   pickdiffy#=pickdiffy#+mousemovex()
   grid=0
   if grid=1
    tpickdiffx#=int(pickdiffx#/22.5)*22.5
    tpickdiffy#=int(pickdiffy#/22.5)*22.5
   else
    tpickdiffx#=pickdiffx#
    tpickdiffy#=pickdiffy#
   endif
   rotate object cursorobj,wrapvalue(objx#-tpickdiffx#),wrapvalue(objy#-tpickdiffy#),objz#
  endif
 endif
endif

return



function metime()

t$=get time$()
s=val(right$(t$,2))
m=val(right$(left$(t$,5),2))
   `h=val(left$(t$,2)) : h=(h mod 12)
h=val(left$(t$,2)) : if h > 11 then h=h-12
   rotate limb 3,1,0,0,(m*-360.0/60.0)-(s/10.0)-180
   rotate limb 4,1,0,0,(h*-360.0/12.0)-(m/2.0)-180
   rotate limb 8,1,0,0,s*-360.0/60.0-180
   if s mod 2 = 0
      turn object right 1, wrapvalue(360)+6-slow
      inc slow,2
   else
      turn object right 1, wrapvalue(360)-6+slow
      inc slow,2
   endif
inc slow
if slow>8 then slow=0
endfunction

function create_romannums()
set text font "times roman"
set text size 21
set text to bold
   create bitmap 1,32,32
   set current bitmap 1
   ink rgb(1,1,1),0

   `cls 0
   center text 16,9,"I"
   get image 11,0,0,32,32

   cls 0
   center text 16,9,"II"
   get image 12,0,0,32,32

   cls 0
   center text 16,9,"III"
   get image 13,0,0,32,32

   cls 0
   center text 16,9,"IV"
   get image 14,0,0,32,32

   cls 0
   center text 16,9,"V"
   get image 15,0,0,32,32

   cls 0
   center text 16,9,"VI"
   get image 16,0,0,32,32

   cls 0
   center text 16,9,"VII"
   get image 17,0,0,32,32

   cls 0
   center text 16,9,"VIII"
   get image 18,0,0,32,32

   cls 0
   center text 16,9,"IX"
   get image 19,0,0,32,32

   cls 0
   center text 16,9,"X"
   get image 20,0,0,32,32

   cls 0
   center text 16,9,"XI"
   get image 21,0,0,32,32

   cls 0
   center text 16,9,"XII"
   get image 22,0,0,32,32
cls 0

for i=1 to 500
   grey=rnd(150)
   dot rnd(16),rnd(16),rgb(grey,grey,grey)
next i

get image 23,0,0,15,15
cls

   delete bitmap 1
   set current bitmap 0

rem place clock numbers
   for i = 1 to 12
      make object plain 400+i,25,25
      texture object 400+i,10+i
      set object transparency 400+i,1
      position object 400+i,((-sin(i*-30))*90),((cos(i*-30))*90)+200,-110
      zrotate object 400+i,i*-30
   next i
rem make outside minuet marks.
 for i = 1 to 60
      make object plain 500+i,25,25
      texture object 500+i,11
      set object transparency 500+i,1
      position object 500+i,((-sin(i*-6))*105),((cos(i*-6))*105)+200,-110
      zrotate object 500+i,i*-6
   next i

endfunction

function makevain

    `position camera 0,0,-60
    `position camera 0,100,0
    `point camera 0,0,0
    rem vain body
    make object cylinder 1,10
    set object smoothing 1, 100
    make mesh from object 1,1
    make object cone 2,10
    set object smoothing 2, 100
    make mesh from object 2,2
    make object cone 3,10
    set object smoothing 3, 100
    make mesh from object 3,3
    rem vain pointer
    make object cylinder 4,10
    set object smoothing 4, 100
    rotate object 4,90,90,0
    scale object 4,10,500,10
    make mesh from object 4,4
    rem vain tail
    make object box 5,10,10,.5
    set object smoothing 5, 100
    make mesh from object 5,5
    delete object 2
    delete object 3
    delete object 4
    delete object 5
    add limb 1,1,1
    add limb 1,2,2
    add limb 1,3,3
    add limb 1,4,4
    add limb 1,5,5
    add limb 1,6,3
    offset limb 1,2,0,10,0
    offset limb 1,3,0,-10,0
    rotate limb 1,3,180,0,0
    offset limb 1,4,0,-15,0
    offset limb 1,5,20,0,0
    offset limb 1,6,-27,0,0
    rotate limb 1,6,90,-90,0
    scale limb 1,6,10,50,10
    link limb 1,4,5
    link limb 1,4,6
    rem wind anometer
    make object sphere 7,5
    set object smoothing 7, 100
    make mesh from object 7,7

    add limb 1,7,7
    offset limb 1,7,0,15,0
    add limb 1,8,4
    scale limb 1,8,25,100,100
    offset limb 1,8,0,0,5
    rotate limb 1,8,0,90,0
    link limb 1,7,8
    delete object 7

    add limb 1,9,7
    offset limb 1,9,0,0,0
    add limb 1,10,4
    scale limb 1,10,25,100,100
    offset limb 1,10,0,0,5
    rotate limb 1,10,90,90,0

    link limb 1,9,10
    link limb 1,7,9
    rem cone bars
    rotate limb 1,9,0,limb angle y(1,9)+120,0

    add limb 1,11,7
    offset limb 1,11,0,0,0
    add limb 1,12,4
    scale limb 1,12,25,100,100
    offset limb 1,12,0,0,5
    rotate limb 1,12,90,90,0
    rem cone cups
    make object cone 100,-10
    set object smoothing 100, 100
    make mesh from object 100,100
    link limb 1,11,12
    link limb 1,7,11
    rem cone bars
    rotate limb 1,11,0,limb angle y(1,11)+240,0

    add limb 1,13,3
    add limb 1,14,100

    link limb 1,7,13
    link limb 1,7,14
    rem cup cones
    rotate limb 1,13,90,30,0
    rotate limb 1,14,-90,30,0
    offset limb 1,13,7,0,-10
    offset limb 1,14,7,0,-10

    add limb 1,15,3
    add limb 1,16,100

    link limb 1,7,15
    link limb 1,7,16
    rem cup cones
    rotate limb 1,15,90,-90,0
    rotate limb 1,16,-90,-90,0
    offset limb 1,15,5,0,10
    offset limb 1,16,5,0,10

    add limb 1,17,3
    add limb 1,18,100

    link limb 1,7,17
    link limb 1,7,18

    rem cup cones
    rotate limb 1,17,90,150,0
    rotate limb 1,18,-90,150,0
    offset limb 1,17,-10,0,-2
    offset limb 1,18,-10,0,-2

    hide limb 1,9
    hide limb 1,11
    delete object 100
    rem speed pointer
    make object sphere 2,2.5
    set object smoothing 2, 100
    make object cone 3,5
    set object smoothing 3, 100
    make mesh from object 30,2
    make mesh from object 31,3
    add limb 2,1,30
    add limb 2,2,31
    link limb 2,1,2
    scale limb 2,2,25,100,25
    offset limb 2,2,0,3,0
    position object 2,-35,20,0
    delete object 3
    rem driction pointer
    make object sphere 3,2.5
    set object smoothing 3, 100
    make object cone 4,5
    set object smoothing 4, 100
    make mesh from object 32,3
    make mesh from object 33,4
    add limb 3,1,32
    add limb 3,2,33
    link limb 3,1,2
    scale limb 3,2,25,100,25
    offset limb 3,2,0,3,0
    position object 3,35,20,0
    delete object 4
    rem red tempature gauge
    make object cylinder 4,10
    set object smoothing 4, 100
    color object 4,rgb(255,0,0)
    scale object 4,101,100,100
    rem other speed pointer
    make object sphere 5,2.5
    set object smoothing 5, 100
    make object cone 6,5
    set object smoothing 6, 100
    make mesh from object 34,5
    make mesh from object 35,6
    add limb 5,1,34
    add limb 5,2,35
    link limb 5,1,2
    scale limb 5,2,25,100,25
    offset limb 5,2,0,3,0
    position object 5,-35,20,0
    delete object 6
    hide limb 5,0
    hide limb 5,1
    rem max pointer
    make object sphere 6,2.5
    set object smoothing 6, 100
    make object cone 7,5
    set object smoothing 7, 100
    make mesh from object 36,6
    make mesh from object 37,7
    add limb 6,1,36
    add limb 6,2,37
    link limb 6,1,2
    scale limb 6,2,25,100,25
    offset limb 6,2,0,3,0
    position object 6,-35,20,0
    delete object 7
    hide limb 6,0
    hide limb 6,1
    rem globle
    make object sphere 7,590.75,100,100
    rotate object 7,0,23.5,0
    fix object pivot  7
    rem 23.5
    position object 7,200,-200,930
    set object smoothing 7, 100
    rem night sky
    make object sphere 10,592,100,100
    position object 10,200,-200,930
    load image "night.png",101
    texture object 10,101
    ghost object on 10,2
    rem now pointer
    clone object 11,3
    position object 11,-35,0,0
    rotate object 11,0,0,90
    fix object pivot 11
    rem max temp pointer
    clone object 12,3
    position object 12,-35,0,0
    rotate object 12,0,0,90
    fix object pivot 12
    rem min temp pointer
    clone object 13,5
    position object 13,-35,0,0
    rotate object 13,0,0,90
    fix object pivot 13
    rem wind chill pointer
    clone object 14,5
    position object 14,-35,0,0
    rotate object 14,0,0,90
    fix object pivot 14
    rem setup values
    time=timer()
    oldyangle#=limb angle y(1,4)
    scale=100
    newyangle#=0.0
    speedangle#=0.0
    offset limb 4,0,0,5,0
    move object down 4,5
    rem windspeed bar
    `Back plain
    make object plain 301,104,9
    lock object on 301
    color object 301,rgb(255,255,0)
    `Front plain
    make object plain 302,100,6
    lock object on 302
    color object 302,rgb(255,0,0)
    `Front plain
    make object plain 303,100,6
    lock object on 303
    color object 303,rgb(0,0,255)
    endfunction

function wvain()
    inc unit.tSamples
    if unit.tSamples > 1000
        unit.tSamples = 1
        unit.totalSampled = screen fps()
    else
        unit.totalSampled = unit.totalSampled + screen fps()
    endif
    unit.average_fps = unit.totalSampled / unit.tSamples
    ink rgb(255,255,255),0
    paste image 104,object screen x(3)-(155/2),object screen y(3)-(155/2),1
    scale=wt
    unit.oldyangle=unit.newyangle
    unit.newyangle=here.winddirection*22.5+ here.winddriectionoffset
    unit.oldyangle=curveangle(unit.newyangle+90, unit.oldyangle, 50)
    rotate limb 1,4,0,unit.oldyangle+90,0
    rotate limb 3,1,0,0,-unit.oldyangle,0
    set cursor screen width()-50,0
    print int(unit.oldyangle)
    print int( unit.newyangle)
    wd=int(unit.oldyangle)
    tx=880
    ty=250
    gap=3.5
    `if wd>=0         and wd<gap
if here.winddirection = 15.0
        ink rgb(0,255,0),0
        center text tx,ty,"North N 0(360)"
        paste image 104,object screen x(3)-(155/2) ,object screen y(3)-(155/2),1
    endif

    `if wd>=22.5-gap  and wd<=22.5+gap
    if here.winddirection = 0.0
        ink rgb(0,255,0),0
        center text tx,ty,"North-northeast NNE 22.5"
        paste image 105,object screen x(3)-(155/2) ,object screen y(3)-(155/2),1
    endif

    `if wd>=45-gap    and wd<=45+gap
if here.winddirection = 1.0
        ink rgb(0,255,0),0
        center text tx,ty,"Northeast NE 45"
        paste image 106,object screen x(3)-(155/2) ,object screen y(3)-(155/2),1
    endif

    `if wd>=67.5-gap  and wd<=67.5+gap
if here.winddirection = 2.0
        ink rgb(0,255,0),0
        center text tx,ty,"East-northeast ENE 67.5"
        paste image 107,object screen x(3)-(155/2) ,object screen y(3)-(155/2),1
    endif

   ` if wd>=90-gap    and wd<=90+gap
if here.winddirection = 3.0
        ink rgb(0,255,0),0
        center text tx,ty,"East E 90"
        paste image 108,object screen x(3)-(155/2) ,object screen y(3)-(155/2),1
    endif

`    if wd>=112.5-gap and wd<=112.5+gap
if here.winddirection = 4.0
        ink rgb(0,255,0),0
        center text tx,ty,"East-southeast ESE 112.5"
        paste image 109,object screen x(3)-(155/2) ,object screen y(3)-(155/2),1
    endif

`    if wd>=135-gap   and wd<=135+gap
if here.winddirection = 5.0
        ink rgb(0,255,0),0
        center text tx,ty,"Southeast SE 135"
        paste image 110,object screen x(3)-(155/2) ,object screen y(3)-(155/2),1
    endif

`    if wd>=157.5-gap and wd<=157.5+gap
if here.winddirection = 6.0
        ink rgb(0,255,0),0
        center text tx,ty,"South-southeast SSE 157.5"
        paste image 111,object screen x(3)-(155/2) ,object screen y(3)-(155/2),1
    endif

  `  if wd>=180-gap   and wd<=180+gap
if here.winddirection = 7.0
        ink rgb(0,255,0),0
        center text tx,ty,"South S 180"
        paste image 112,object screen x(3)-(155/2) ,object screen y(3)-(155/2),1
    endif

   ` if wd>=202.5-gap and wd<=202.5+gap
    if here.winddirection = 8.0
        ink rgb(0,255,0),0
        center text tx,ty,"South-southwest SSW 202.5"
        paste image 113,object screen x(3)-(155/2) ,object screen y(3)-(155/2),1
    endif

    `if wd>=225-gap   and wd<=225+gap
if here.winddirection = 9.0
        ink rgb(0,255,0),0
        center text tx,ty,"Southwest SW 225"
        paste image 114,object screen x(3)-(155/2) ,object screen y(3)-(155/2),1
    endif

   ` if wd>=247.5-gap and wd<=247.5+gap
if here.winddirection = 10.0
        ink rgb(0,255,0),0
        center text tx,ty,"West-southwest WSW 247.5"
        paste image 115,object screen x(3)-(155/2) ,object screen y(3)-(155/2),1
    endif

 `   if wd>=270-gap   and wd<=270+gap
if here.winddirection = 11.0
        ink rgb(0,255,0),0
        center text tx,ty,"West W 270"
        paste image 116,object screen x(3)-(155/2) ,object screen y(3)-(155/2),1
    endif

   ` if wd>=292.5-gap and wd<=292.5+gap
   if here.winddirection = 12.0
        ink rgb(0,255,0),0
        center text tx,ty,"West-northwest WNW 292.5"
        paste image 117,object screen x(3)-(155/2) ,object screen y(3)-(155/2),1
    endif

    `if wd>=315-gap   and wd<=315+gap
if here.winddirection = 13.0
        ink rgb(0,255,0),0
        center text tx,ty,"Northwest NW 315"
        paste image 118,object screen x(3)-(155/2) ,object screen y(3)-(155/2),1
    endif

`    if wd>=337.5-gap and wd<=337.5+gap
if here.winddirection = 14.0
        ink rgb(0,255,0),0
        center text tx,ty,"North-northwest NNW 337.5"
        paste image 119,object screen x(3)-(155/2) ,object screen y(3)-(155/2),1
    endif

`    if wd>=360-gap   and wd<=360
if here.winddirection = 15.0
        ink rgb(0,255,0),0
        center text tx,ty,"North N 0(360)"
        paste image 104,object screen x(3)-(155/2) ,object screen y(3)-(155/2),1
    endif

    text 90,200,"0"
    text 70,185,"10"
    text 65,165,"20"
    text 70,145,"30"
    text 80,125,"40"
    text 100,110,"50"
    text 120,100,"60"
    text 140,100,"70"
    text 160,110,"80"
    text 180,125,"90"
    text 190,145,"100"
rem temperature numbers
    text 125,320,"40"
    text 100,325,"30"
    text 85,335,"20"
    text 70,355,"10"
    text 65,375,"0"
    text 70,395,"10"
    text 85,415,"20"
    set cursor 0,0
    print str$(here.windspeedkph, 3)
    rotate limb 2,1,0,0,(-here.windspeedkph*2.0) - 230.0
    rotate limb 5,1,0,0,(-here.windspeedmph*2.0) - 230.0
    rotate limb 11,1,0,0,(-temperaturegauge.value*2.0)
    scale object 4,101,scale+50,100
    unit.oldspeedangle = unit.speedangle
    rem unit.speedangle = 180.0 / (screen fps() / revspersecond)
    unit.speedangle = 180.0 / (unit.average_fps / revspersecond)
    unit.oldspeedangle=curveangle(unit.speedangle, unit.oldspeedangle, 30)
    rotate limb 1,7,180,wrapvalue(limb angle y(1,7))+unit.speedangle,0
endfunction

function makelightsandcolor()
    rem lighting
    make light 1
    position light 1,0,100,-100
    set ambient light 80
rem station color
    color object 1,rgb(255,255,255)
    set object specular 1, rgb ( 255, 255, 255 )
    set object specular power 1, 255
    set object ambient 1,0
rem wind direction pointer
    color object 2,rgb(0,255,0)
    set object specular 2, rgb ( 0, 255,0 )
    set object specular power 2, 255
    set object ambient 2,0
rem first speed pointer
    color object 3,RGB(128,128,255)
    set object specular 3, rgb ( 0, 255,0 )
    set object specular power 3, 255
    set object ambient 3,0
rem  max
    set object specular 4, rgb ( 255, 0, 0 )
    set object specular power 4, 255
    set object ambient 4,0
rem second speed pointer
    color limb 5,2,RGB(255,0,255)
    set object specular 5, rgb ( 0 , 255, 0 )
    set object specular power 5, 255
    set object ambient 5,0

    color limb 6,2,RGB(255,0,0)
    set object specular 6, rgb ( 255 , 0, 0 )
    set object specular power 6, 255
    set object ambient 6,0

   rem max color red
    set object specular 12, rgb ( 255, 0, 0 )
    set object specular power 12, 255
    set object ambient 12,0
    hide limb 12,0
    hide limb 12,1

    rem min color blue
    set object specular 13, rgb ( 0, 0, 255 )
    set object specular power 13, 255
    set object ambient 13,0
    hide limb 13,0
    hide limb 13,1

    rem wind chill pointer color
    set object specular 14, rgb ( 0, 255, 0 )
    set object specular power 14, 255
    set object ambient 14,0
    hide limb 14,0
    hide limb 14,1


   rem load globe map
   load image "moonlitRealisticEarth-v4-4kPNG.png",1
   texture object 7,0,1,2

   set object specular power 7, 255
   set object ambient 7,0
rem Load environment
  ` load object "moonlitml.x",100
    `make object sphere 100,-5000
    `load image "starsky2.jpg",100

 `   scale object 100,111,111,111
   `set object cull 100,0
   `set object light 100,0
`   texture object 100,100

load image "WeatherStationBanner.bmp",102
paste image 102,0,0,1
`load image "weatherstationbanner2.bmp",103
`make object box 300,100,80,2
`texture object 300,102
load image "Windcompass1.png",104
load image "Windcompass2.png",105
load image "Windcompass3.png",106
load image "Windcompass4.png",107
load image "Windcompass5.png",108
load image "Windcompass6.png",109
load image "Windcompass7.png",110
load image "Windcompass8.png",111
load image "Windcompass9.png",112
load image "Windcompass10.png",113
load image "Windcompass11.png",114
load image "Windcompass12.png",115
load image "Windcompass13.png",116
load image "Windcompass14.png",117
load image "Windcompass15.png",118
load image "Windcompass16.png",119

load image "EarthNormal.png",120
`SET BUMP MAPPING ON 7,120

endfunction

Rem Project:  graphmaker1
Rem Created: 30/03/2007 04:07:56

Rem ***** Main Source File *****
set display mode 1024,786,16
global screen_height as integer
global screen_width as integer
global plotdata as integer
global newgap = 5
global oldgap = 0
global oldplotdata as integer
global plotmax
global plotmin
#constant centerline 250.0
#constant indentx = 50
#constant indenty = 50
#constant gap = 5

dim plots(15) as float
setvarable()
makegraph()
timenow= timer()

do

if timer()> timenow+10000 :rem 1 min
timenow = timer()
getdata()
plotgraph()
if timepos > 500
timepos = 0
endif

endif

sync
loop

function getdata()
oldplotdata = plotdata
rem +50 = 10c
temp#=rnd(80)-40.0
plotdata = -temp#*5

endfunction
function plotgraph()
    ink rgb(255,0,0),rgb(255,255,255)
    line indentx + oldgap,screen_height - centerline + oldplotdata ...
    ,newgap + indentx, screen_height - centerline + plotdata
    oldgap=newgap
    inc newgap,5

if plotdata> plotmin
ink rgb(255,255,255),rgb(255,255,255)
 line indentx ,screen_height - centerline + plotmin ...
    ,screen_width- indentx, screen_height - centerline + plotmin
plotmin = plotdata
ink rgb(0,255,255),rgb(255,255,255)
 line indentx ,screen_height - centerline + plotmin ...
    ,screen_width- indentx, screen_height - centerline + plotmin
    endif

if plotdata < plotmax
ink rgb(255,255,255),rgb(255,255,255)
 line indentx ,screen_height - centerline + plotmax ...
    ,screen_width- indentx, screen_height - centerline + plotmax
plotmax = plotdata
ink rgb(255,0,255),rgb(255,255,255)
 line indentx ,screen_height - centerline + plotmax ...
    ,screen_width- indentx, screen_height - centerline + plotmax
    endif
endfunction


function setvarable()
screen_height= screen height()
screen_width = screen width()

endfunction

function makegraph()
cls rgb(255,255,255)
ink rgb(0,0,0),rgb(255,255,255)
linegraph_up = 84*5
linegraph_across = 201*5

count = -1
line indentx, screen_height - indenty,indentx , screen_height - linegraph_up - indenty
line indentx, screen_height - indenty,linegraph_across , screen_height - indenty
for a = 1 to linegraph_up step gap
    inc count,1
        if count mod 10 = 0
            line indentx - 15,screen_height - indenty - a,indentx ,screen_height - indenty-a
            read A$
            text indentx-(text width(A$))-18,screen_height-indenty-a-(text height(a$)/2),a$
        else
            line indentx-10,screen_height-indenty-a,indentx,screen_height-indenty-a
        endif
next a
count = -1
for a = 1 to linegraph_across - indentx step gap
inc count,1
if count mod 10 = 0
    line indentx+a,screen_height-indenty+15,indentx+a,screen_height-indenty
    read a$
    text indentx+a,screen_height+text height(a$)-indenty,a$
    else
    line indentx+a,screen_height-indenty+10,indentx+a,screen_height-indenty
endif
next a
endfunction
data "-40","-30","-20","-10","0","10","20","30","40"
data "0","5","10","15","20","25","30","35","40","45","50","55","60"
data "65","70","75","80","85","90","95"
plot:
data 20.0,21.5

function print_temp_text()
x1 = 190
x2 = 230
x3 = 290
y1 = 450
y2 = 450
y3 = 450
`if here.windspeedmph > 3.0
 `  else
  `  windchillc#=tnow
`endif
print
print windchillc#
if here.tnow < 10.00 and here.windspeedmph > 5.0
    `windchillf#=35.74+0.6215*(tnow * 1.8 + 32.0)-35.75*here.windspeedmph^0.16+0.4275*(tnow * 1.8 + 32.0)*here.windspeedmph^0.16
    windchillc#=13.13+0.62*here.tnow-13.95*here.windspeedmps^0.16+0.486*here.tnow*here.windspeedmps^0.16
    show object 14
    text 10,screen_height - 200 ,"Wind Chill="+str$(windchillc#,2)+"c/"+str$(windchillc#* 1.8 + 32.0, 2)+"f"
    text 10,screen_height - 190 ,"Wind Chill="+str$(windchillf#,2)+"c/"+str$(windchillc#* 1.8 + 32.0, 2)+"f"
    ink rgb(0,255,0),0
    text x1,screen_height - y1 +60, str$(windchillc#,2)
    text x2,screen_height - y2 +60, str$(windchillc#* 1.8 + 32.0, 2)
    text x3,screen_height - y3 +60 ,"Chill"
    rotate limb 14,1,0,0,(-int(windchillc#*2.0))
    else
    ink rgb(0,255,0),0
    text x1,screen_height - y1 +60, "N/a"
    text x2,screen_height - y2 +60, "N/a"
    text x3,screen_height - y3 +60 ,"Chill"
    text 10,screen_height - 200 ,"Wind Chill=na C/ na F"
    hide object 14
endif

text x1, screen_height - y1,"C"
text x2, screen_height - y2,"F"
ink rgb(255,0,0),0
text x1,screen_height - y1 +15, str$(here.tmax,2)
text x2,screen_height - y2 +15, str$(here.tmax* 1.8 + 32.0, 2)
text x3,screen_height - y3 +15 ,"Max"
ink rgb(255,255,255),0
text x1,screen_height - y1 +30, str$(here.tnow,2)
text x2,screen_height - y2 +30, str$(here.tnow* 1.8 + 32.0, 2)
text x3,screen_height - y3 +30 ,"Now"
ink RGB(0,255,255),0
text x1,screen_height - y1 +45, str$(here.tmin , 2)
text x2,screen_height - y2 +45, str$(here.tmin * 1.8 + 32.0, 2)
text x3,screen_height - y3 +45 ,"Min"


rem temp max pointer
rotate limb 12,1,0,0,(-here.tmax*2.0)
rem temp min pointer
rotate limb 13,1,0,0,(-here.tmin*2.0)

`Here is the new formula:

`in US units (T[°F]  and V[mph]):

`wctF=35.74+0.6215*t-35.75*V 10m 0.16 + 0.4275 * T * V 10m 0.16

`which becomes in SI units (T[°C] and V[m/s]):

`wctc=13.13+0.62*T-13.95*V 10m 0.16 + 0.486 * T * V 10m 0.16


endfunction

type SYNCHRONIZER
    kernel32        as integer
    ptr             as dword
    frequency       as double integer
    period          as double float
    count           as double integer
    t_0             as double float
    accum_fraction  as double integer
    elapsed         as integer
    runtime         as double float
    seed            as double integer
    tick            as boolean
endtype

function jzTSyncInit(kernel32 as integer, ptr as dword)
    local temp as integer

    synchronizer.kernel32 = kernel32
    synchronizer.ptr = ptr
    temp = call dll(kernel32, "QueryPerformanceFrequency", ptr)
    synchronizer.frequency = *ptr
    synchronizer.period = 1.0 / synchronizer.frequency
    temp = call dll(kernel32, "QueryPerformanceCounter", ptr)
    synchronizer.count = *ptr
    synchronizer.t_0 = 0.0
    synchronizer.accum_fraction = 0
    synchronizer.elapsed = 0
    synchronizer.runtime = 0.0
    synchronizer.seed = *ptr
    synchronizer.tick = FALSE
endfunction

function jzTSync()
    local temp as integer
    local ptr as dword
    local tempcount as double integer

    ptr = synchronizer.ptr
    temp = call dll(synchronizer.kernel32, "QueryPerformanceCounter", ptr)
    tempcount = *ptr
    if synchronizer.seed >= tempcount
        synchronizer.count = ...
            (0xffffffffffffffff - synchronizer.seed) + tempcount
    else
        synchronizer.count = tempcount - synchronizer.seed
    endif
    synchronizer.seed = tempcount
    synchronizer.t_0 = synchronizer.count * synchronizer.period
    synchronizer.runtime = synchronizer.runtime + synchronizer.t_0
    synchronizer.accum_fraction = synchronizer.accum_fraction + synchronizer.count
    if synchronizer.accum_fraction >= synchronizer.frequency
        synchronizer.accum_fraction = synchronizer.accum_fraction - ...
                                      synchronizer.frequency
        synchronizer.tick = TRUE
        synchronizer.elapsed = synchronizer.elapsed + 1
    endif
endfunction

type c__timeb64
    time                as double integer
    millitm             as word
    timezone            as word
    dstflag             as word
endtype

type crtstructs
    timeb64                 as c__timeb64
endtype

global cruntime as crtstructs
.
.
.

function jz_ftime64()
    local temp as integer
    local ptr as dword

    ptr = get memblock ptr(windows.crtblk)
    temp = call dll(windows.crt, "_ftime64", ptr)
    cruntime.timeb64.time = *ptr
    cruntime.timeb64.millitm = memblock word(windows.crtblk, 8)
    cruntime.timeb64.timezone = memblock word(windows.crtblk, 10)
    cruntime.timeb64.dstflag = memblock word(windows.crtblk, 12)
endfunction cruntime.timeb64.time

function jz_ctime64()
    local ptr as dword
    local str as string

    ptr = get memblock ptr(windows.crtblk)
    str = call dll(windows.crt, "_ctime64", ptr)
endfunction str