Memento Mori ...

[atomose]

hey ! 

I find it interesting to see life rationally. Sometimes we forget our priorities and it is only in our last breath that we regret it. So here is a perspective that shows you a sad reality: every day you get closer to death. ENJOY 

(its a very basic code, you can upgrade)


   
   nomainwin
   BuildVersion = 0.2
   WindowWidth=1200 : WindowHeight=800
   UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   graphicbox #ini.main, 0, 0, 1201, 801
   textbox #ini.Natal3, 510, 85, 90, 25
   button #ini.val3, "Show me", [calculs], UL, 610, 85,60,25
   open "''Memento Mori'' by Atomose Studio - vrs ";BuildVersion for window_nf as #ini
   #ini, "trapclose [quit]"


   print #ini.main, "down; fill white"
   [refresh]
   #ini.main, "font times_new_roman 30 italic; color black; place 360 60 ;\"; "Remember that you are dying ..."
   #ini.main, "font times_new_roman 8 italic; place 36 175 ;\"; "10" : #ini.main, "place 36 235 ;\"; "20" : #ini.main, "place 36 295 ;\"; "30"
   #ini.main, "place 36 355 ;\"; "40" : #ini.main, "place 36 415 ;\"; "50" : #ini.main, "place 36 475 ;\"; "60"
   #ini.main, "place 36 535 ;\"; "70" : #ini.main, "place 36 595 ;\"; "80" : #ini.main, "place 36 675 ;\"; "90"
   #ini.main, "place 36 735 ;\"; "100"
   #ini.main, "place 505 615 ;\"; "Only 5% people survive to this line"
   if WeeksAge = 0 then print #ini.Natal3, "Age"
   print #ini.main, "size 5; color darkgray"
   Xx = 70 : Yy = 130
   for y = 1 to 50
       for x = 1 to 104
           select case WeeksAge
               case 0
                   if y <= 40 then
                       print #ini.main, "size 7; color darkgray"
                       print #ini.main, "set ";Xx;" ";Yy
                       print #ini.main, "size 5; color cyan"
                       print #ini.main, "set ";Xx+0.25;" ";Yy+0.25
                   end if
                   if y > 40 then
                       print #ini.main, "size 7; color darkgray"
                       print #ini.main, "set ";Xx;" ";Yy
                       print #ini.main, "size 5; color lightgray"
                       print #ini.main, "set ";Xx+0.25;" ";Yy+0.25
                   end if
               case else
                   WeeksAge = WeeksAge - 1
                   print #ini.main, "size 7; color darkgray"
                   print #ini.main, "set ";Xx;" ";Yy
                   print #ini.main, "size 5; color yellow"
                   print #ini.main, "set ";Xx+0.25;" ";Yy+0.25

           end select
           Xx = Xx + 10 : saut = saut + 1
           if saut = 52 then Xx = Xx + 20 : saut = 0
       next x
       Yy = Yy + 10 : Xx = 70 : saut2 = saut2 + 1
       if saut2 = 5 then Yy = Yy + 10 : saut2 = 0
       if y = 40 then Yy = Yy +20
   next y
   #ini.Natal3 "!setfocus"
   #ini.main, "flush"
   wait

   [calculs]
   print #ini.Natal3, "!contents? nat3$" : nat3 = val(nat3$) : DaysAge = (nat3 * 364)
   if nat3 > 100 then notice " " + chr$(13) +  "Value can't be more than 100 years." : nat3 = 100 : print #ini.Natal3, "100"
   if nat3 = 0 then notice " " + chr$(13) +  "You must add your age into the box."
   WeeksAge = int(DaysAge/7) : goto [refresh]

   [quit]
   close #ini
   end



[xxgeek]

The thing is, the older I get, the less I care about death.

So I enjoy the suspense

Note:
alt + F4 to close it if your screen height is too short to see it all

[atomose]

ho sry if its to big ^^ i will make a horizontal version

[tsh73]

I would
1) mark passed (spent?) years in red, left ones in green
2) try to estimate expected lifetime as a trend from now.
(likely depends from state you are in, but still trending up )

[honky]

Apr 5, 2024 14:39:16 GMT -5 atomose said:

ho sry if its to big ^^ i will make a horizontal version

The ideal would be a relative version (which adapts) to the dimensions of the screen.

[tenochtitlanuk]

Fun- and a bit scary for me as I hit 78 in a few days.

As a UK male, statistics say 50% of my age group will be dead within six years. So fingers crossed against bad luck!!

The behaviour of populations tends to be shown with 'population pyramids' of a whole country- or the world. These show numbers, male and female, in 'age cohorts'. You build in the present ( ie known) fertility and death rates and let the model rip. If you think you know how rates may change in future ( eg birth rates drop rapidly as Third World countries develop) you can include that. And then throw in unpredictable catastrophes like wars and epidemics. Bit like playing God, really!



You can find my LB stuff on this at Population pyramids about half way down the examples. In a teaching environment it was fun to get pupils to try to manipulate rates etc to get a stable population! It is essentially impossible- it will either crash down or soar up! We NEED war, famine, pestilence, meteor strikes, gods.... NOT! Lucky we have brains and can model ahead and plan interventions.

[xxgeek]

A little bit of editing and it fits my 1368 X 768 screen now.

-Condensed the dots to allow more per square inch.
-added colors as per tsh73
-Moved the quote to the window title.
-Gave the button default status
-Clears the textbox every time now and puts the current age in a different one.
-Just type a new age and hit [enter] - repeatedly
-Decimal values like 33.33 seem to work. Not sure on accuracy.

Needs messages at specific ages.
Like
"It is high time you stopped using diapers"
and
"It is now time to act your age"
and
"Time to start paying rent"
and
"GET OUT of MY HOUSE"
and
"Time to start wearing diapers again"
and
"It is time to write your will"
and
"Now it is time to buy your coffin"
and
"Now it is time to get in your coffin"

LOL


'by atomose
   nomainwin
   BuildVersion = 0.1
   WindowWidth=900 : WindowHeight=768
   UpperLeftX=10'int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=10'400'int((DisplayHeight-WindowHeight)/2)
   graphicbox #ini.main, 0, 0, 880, 1101
   textbox #ini.Natal3, 370, 5, 80, 25
   statictext #ini.st1, "", 370, 30, 80, 15
   button #ini.default, "Show me", [calculs], UL, 460, 5,60,25
   open "Remember that you are dying ..." for dialog as #ini
   #ini, "trapclose [quit]"

   [refresh]
   print #ini.main, "down; fill white ; size 5; color black"
   '#ini.main, "font times_new_roman 42 italic bold; place 80 60 ;\"; "Remember that you are dying ..."
   #ini.main, "font times_new_roman 8 italic"
   #ini.main, "place 26 80 ;\"; "10" : #ini.main, "place 26 150 ;\"; "20" : #ini.main, "place 26 220 ;\"; "30"
   #ini.main, "place 26 295 ;\"; "40" : #ini.main, "place 26 365 ;\"; "50" : #ini.main, "place 26 435 ;\"; "60"
   #ini.main, "place 26 505 ;\"; "70" : #ini.main, "place 26 575 ;\"; "80" : #ini.main, "place 26 645 ;\"; "90"
   #ini.main, "place 26 715 ;\"; "100"
   #ini.main, "place 330 1050 ;\"; "''Memento Mori'' by Atomose Studio - vrs ";BuildVersion
   if WeeksAge = 0 then print #ini.Natal3, "Age"
   Xx = 60 : Yy = 10'130
   for y = 1 to 100
       for x = 1 to 52
           print #ini.main, "set ";Xx;" ";Yy
           select case WeeksAge
               case 0
                   print #ini.main, "size 5; color cyan"
                   print #ini.main, "set ";Xx+0.25;" ";Yy+0.25
               case else
                   WeeksAge = WeeksAge - 1
                   print #ini.main, "size 5; color red"
                   print #ini.main, "set ";Xx+0.25;" ";Yy+0.25
           end select
           print #ini.main, "size 7; color darkgray"
           Xx = Xx + 15
       next x
       saut = saut + 1 : Xx = 60 : Yy = Yy + 7
       if saut >= 10 then saut = 0 : Yy = Yy + 1
   next y
   #ini.main, "flush"
   #ini.Natal3 "!setfocus"
   #ini.Natal3 "!contents? lastAge$"
   #ini.Natal3 ""
   lastAge = val(lastAge$)
   #ini.st1 "    Age  ";lastAge
   wait

   [calculs]
   print #ini.Natal3, "!contents? nat3$" : nat3 = val(nat3$) : DaysAge = (nat3 * 364)
   if nat3 > 100 then notice " " + chr$(13) +  "Value can't be more than 100 years." : nat3 = 100 : print #ini.Natal3, "100"
   if nat3 = 0 then notice " " + chr$(13) +  "You must add your age into the box."
   WeeksAge = int(DaysAge/7)
   goto [refresh]

   [quit]
   close #ini
   end


[atomose]

a new upgrade on first post with horizontal view, better graph visibility, colors changed, refresh better and more =)
thx all for idea;)