Hi All,
If anyone would like to have a go at doing thank you, right here some code,
function The_Beaufort_Scales(knots#)
local x
local y
x=0
y=260
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=260
`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
so what am I after, in the above code there is a description of what the wind is doing, could someone have a going at turing it into an image to be displayed on screen when that value is reached.
size about 250x250, being put on a high res screen 1024x768
cheers HowDo
Dark Physics makes any hot drink go cold.
