Midterm goal :  Sovereign CoSy Webspaces

§ Mon.Jul,20200713 § Wed.Aug,20200812
§ Wed.Sep,20200902 § Wed.Sep,20200916
§ Wed.Sep,20200930 § Wed.Oct,20201014
§ Wed.Oct,20201028 § Wed.Nov,20201111
§ ThanksGiving 2020 § Christmas 2020
§ Wed.Jan,20210113 § Wed.Jan,20210127
§ Wed.Feb,20210210 § Wed.Feb,20210224
§ Wed.Mar,20210310 § Wed.Mar,20210324

Sandor Schneider on the Minimalist group  described a " method in data encryption called "steganography" :

So this starts there .

Sandor Schneider > Bob Armstrong
You can download any BMP file. And read / write as a simple binary file. If you simply read / copy the first 54 bites, you don't need to worry about the other bytes. The first 54 byte is the picture descriptor. You can see I don't touch it only read and copy. ?? prog input.BMP output.BMP < any.txt

Bob Armstrong > Sandor Schneider
 So essentially after the 54 byte header , are pixels defined by 3 or 4 byte ` cells ?
So I can process the contents , the stick the header back on & it should work ?
I copied you image to Irfanview then saved to http://cosy.com/y21/MarioTestHead.bmp .
I've executed a few lines to see what's involved .

| \/ looked at whether the 2 images copied from FB post are the same \/ |
 ` c:/CoSyWeb/y21/MarioTestHead0.bmp F> >t0> #
 ` c:/CoSyWeb/y21/MarioTestHead1.bmp F> >t1> #
   t0 t1 match |>| 1    | they are

| First a bunch of exploration , bunch of which I should have read in Sandor's
| original post .

 ` c:/CoSyWeb/y21/MarioTestHead0.bmp F> >t0> #  |>| 10854
  t0 van dump          | sF6 , execute raw | ` dump is raw Forth output . See what it looks like
  rShow  res> rUpdate  | show dump in separate window
  t0 54 _take van dump         | sF6 to see header 
  i( 60 60 3 )i ' * scanI      |>| 60 3600 10800   | so accounts for everything
| pays no attention to cell boundaries .
  t0 54 _cut >T0                     | T0 is persistent across saves
|  T0 i( 3600 3 )i take ' ,/ 'm >t0  | turn into 3 char strings  | dead end

| bunch of other explorations below . Here's the bushwhacked method .

| Realized simplest way to 0 low order bits is to make all even .
| convert to int , subtract remainder mod 2 .
 T0 c>i >t1>  t1 2 _i modi -i >t2>     | make all even , ie low order bit 0
 t2 i>c >t2> #                 | convert back to chars , re-append header , write to file
 t0 54 _take t2 cL ` c:/CoSyWeb/y21/MarioTest0.bmp >F    | write to file
| It is visually indistinguishable .


| To encode :  ( The unpacking and packing of bools could be vastly improved at the Forth level )
| Make a table of booleans . Convert to bools using table lookup .
| SuperKludge using Forth formatting verb to create table of bools

 256 _iota { >_ 8 '0 binary (p.r) decimal _str ` 1 =c } 'm >t0>
(
 0 0 0 0 0 0 0 0
 0 0 0 0 0 0 0 1
 0 0 0 0 0 0 1 0
 0 0 0 0 0 0 1 1
 0 0 0 0 0 1 0 0
 0 0 0 0 0 1 0 1
 0 0 0 0 0 1 1 0
 ...

| Convert message from char to int .
 s" a message " c>i >t2> |>| 97 32 109 101 115 115 97 103 101 32
 
| index into bools & ravel
 t0 t2 at ,/ >t3>
0 1 1 0 0 0 0 1 0 0 1 0 0 0 0 0 0 1 1 0 1 1 0 1 0 1 1 0 0 1 0 1 0 1 1 1 0 0 1 1 0 1 1 1 0 0 1 1 0 1 1 0 0 0 0 1 0 1 1 0 0 1 1 1 0 1 1 0 0 1 0 1 0 0 1 0 0 0 0 0

| Make list of powers of 2 to recombine
 i1  2 _i 7 _take ' * scanI cL reverse >t1> |>| 128 64 32 16 8 4 2 1

| Integer dot product from ` 4thCoSy/CoSy/math.f
: doti *i +/ ;   
 t3 i( 10 8 )i take
(
 0 1 1 0 0 0 0 1
 0 0 1 0 0 0 0 0
 0 1 1 0 1 1 0 1
 0 1 1 0 0 1 0 1
 0 1 1 1 0 0 1 1
 0 1 1 1 0 0 1 1
 0 1 1 0 0 0 0 1
 0 1 1 0 0 1 1 1
 0 1 1 0 0 1 0 1
 0 0 1 0 0 0 0 0
 )
 t3 10 _partition t1 ' doti 'L ,/ i>c     |>| a message

 t3  ` c:/CoSyWeb/y21/MarioTest0.bmp F>  >T0> 54 _cut c>i +i
| Read the cleaned image in , chop off the header & add it to boolified message w CoSy's modulo indexing .
 T0 54 _take R0 i>c cL  ` c:/CoSyWeb/y21/MarioTest1.bmp >F    | glue the header back on & write to file



downloaded		Mario 0	a message


 ` c:/CoSyWeb/y21/MarioTest1.bmp  ` c:/CoSyWeb/y21/MarioTest0.bmp { F> 54 _cut c>i } on2 -i >t0>
0 1 1 0 0 0 0 1 0 0 1 0 0 0 0 0 0 1 1 0 1 1 0 1 0 1 1 0 0 1 0 1 0 1 1 1 0 0 1 1 0 1 1 1 0 0 1 1 0 1 1 0 0 0 0 1 0 1 1 0 0 1 1 1 0 1 1 0 0 1 0 1 0 0 1 0 0 0 0 0 0 1 1 0 0 0 0 1 0 0 1 0 0 0 0 0 0 1 1 0 1 1 0 1 0 1 1 0 0 1 0 1 0 1 1 1 0 0 1 1 0 1 ...

  t0 1350 _partition t1 ' doti 'L ,/ i>c
a message a message a message a message a message a message a message a message a message a message a message a message a message a ...

| 20210405.2028 |

Heartland Institute has changed the date of its 14th  International Conference on Climate Change to October .

CO2 , What Plants are Made of

 On  FB : Scientists Skeptical of Anthropogenic Global Warming
 Graeme Hook > Bob Armstrong
...
Just a question though regarding this GHE thingy, does a molecule like CO2 a radiative gas due to the combination of carbon and oxygen or just because it has carbon in it?
And any gas that has carbon in but some others like hydrogen? is there a connection as to why they use carbon rods to soak up radiation in nuclear power plants.
I guess this is likely basic stuff so maybe goes without saying..

 Bob Armstrong > Graeme Hook
I'm centrally interested in the classical macro phenomena -- the measured quantities , eg: temperature . Those equations predate the understandings at the particle level . Get those understood , particularly the simple fact that gravity , nothing to do with spectrum , explains the adiabatic temperature gradient leaving very little for the slight change in our spectrum due to the slightly greater saturation to a higher altitude of CO2 .

But , my YouTube enhanced understanding of the absorptivity=emissivity spectrum of OCO , it's actual form , is the the modes of vibration of that chain explain the resonant frequencies .

I am quite interested in understanding better the transduction between radiation and kinetic motion ( to be redundant ) . One important consideration is these various forms of internal molecular motion don't show up directly as temperature . The total energy is ` equipartitioned between the internal modes and actual translation of the molecule as a whole which shows itself as temperature . Virtually the only analytical discussion of this fact is in Roderic Graeff's experiment which needs to be replicated on a funded scale . ( His experiment may well be the most consequential ever done by someone in their 90s . )
| 0917 |