crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix bugs in image.js caused by a missed dup.

Browse source 
FossilOrigin-Name: 9f8cfd4727dff8595712f45357d3274990de84184b5a15330dad58e868de6204
This commit is contained in:
crc 2020-09-03 17:37:40 +00:00
parent f7076ada7b
commit 8a9c1ea6ed
2 changed files with 13 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
example/retro-generate-image-js.retro
View file

@ -75,7 +75,7 @@ the cells, then the needed footer.
~~~
'var_ngaImage_=_[ s:put nl
&Image #3 + fetch [ fetch-next n:put $, c:put EOL? ] times
&Image dup #3 + fetch [ fetch-next n:put $, c:put EOL? ] times nl drop
']; s:put nl
~~~

23
vm/nga-js/image.js
View file

@ -1,18 +1,18 @@
var ngaImage = [
1793,14264,277145,277190,202010,0,10,1,10,2,10,3,10,4,10,5,10,6,
1793,-1,9281,9298,202010,0,10,1,10,2,10,3,10,4,10,5,10,6,
10,7,10,8,10,9,10,10,11,10,12,10,13,10,14,10,15,10,
16,10,17,10,18,10,19,10,20,10,21,10,22,10,23,10,24,10,
25,10,68223234,1,2575,85000450,1,656912,139,138,268505089,63,62,135205121,63,10,101384453,0,
25,10,68223234,1,2575,85000450,1,656912,353,335,268505089,63,62,135205121,63,10,101384453,0,
9,10,2049,56,25,459011,74,524546,74,302256641,1,10,16974595,0,50529798,10,25,524547,
93,50529798,10,17108738,1,251790353,101777669,1,17565186,84,524545,88,64,167838467,-1,134287105,3,59,
659457,3,459023,105,2049,56,25,2049,105,1793,112,2049,112,117506307,0,105,0,524545,
25,110,168820993,0,124,1642241,124,134283523,7,110,1793,105,7,524545,2049,105,1793,105,
16846593,124,139,138,1793,64,16846593,124,110,138,1793,64,7,10,659713,1,659713,2,
659713,3,17108737,3,2,524559,105,2049,105,2049,105,2049,119,168820998,2,2266,1025,167841793,
659713,3,17108737,3,2,524559,105,2049,105,2049,105,2049,119,168820998,2,733,1025,167841793,
177,5,17826049,0,177,2,15,25,524546,162,134287105,178,93,2305,179,459023,187,134287361,
178,182,659201,177,2049,56,25,84152833,48,286458116,10,459014,202,184618754,45,25,16974851,-1,
168886532,1,134284289,1,211,134284289,0,202,660227,32,0,0,112,114,101,102,105,120,
58,116,0,285278479,228,7,2576,524546,79,1641217,1,167838467,225,2049,241,2049,237,524545,
58,32,0,285278479,228,7,2576,524546,79,1641217,1,167838467,225,2049,241,2049,237,524545,
228,197,17826050,227,0,2572,2563,2049,218,1793,131,459023,131,17760513,144,3,164,8,
251727617,3,2,2049,158,16,168820993,-1,124,2049,197,2049,158,459023,131,285282049,3,2,
134287105,124,276,524545,1793,105,16846593,3,0,105,8,659201,3,524545,25,110,17043201,3,
@ -55,9 +55,9 @@ var ngaImage = [
144,99,108,97,115,115,58,112,114,105,109,105,116,105,118,101,0,952,
4,131,86,101,114,115,105,111,110,0,971,412,144,105,0,982,105,144,
100,0,987,406,144,114,0,992,335,144,101,114,114,58,110,111,116,102,
111,117,110,100,0,0,0,0,0,0,0,0,0,0,0,0,0,116,
105,109,101,115,0,110,101,120,116,0,103,101,95,61,95,91,0,45,
119,105,116,104,0,104,0,79,85,78,68,0,125,126,0,72,73,74,
111,117,110,100,0,0,0,0,0,0,0,0,0,0,0,0,0,59,
0,114,101,0,0,83,0,97,0,107,0,115,0,0,0,115,0,0,
0,0,0,63,64,91,92,93,94,96,123,124,125,126,0,72,73,74,
75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
@ -174,7 +174,7 @@ var ngaImage = [
118,58,117,112,100,97,116,101,0,4,1793,3112,15,4,8,10,1,3108,
2049,2110,16,10,3093,3126,144,99,111,112,121,0,1793,3135,285278725,1,33951492,268767489,
1,6,10,1,3128,2049,2275,771,10,3118,3154,144,83,99,111,112,101,76,
105,115,116,0,14714,14766,10,3141,3163,144,123,123,0,2049,1570,2,1,3154,
105,115,116,0,8794,8905,10,3141,3163,144,123,123,0,2049,1570,2,1,3154,
2049,59,16,10,3157,3188,144,45,45,45,114,101,118,101,97,108,45,45,
45,0,2049,1570,1,3154,2049,2890,16,10,3172,3202,144,125,125,0,1,3154,
2049,56,4,15,11,1793,3216,3841,3154,4097,2,10,1,3211,1793,3242,3841,3154,
@ -195,7 +195,7 @@ var ngaImage = [
131,84,101,109,112,83,116,114,105,110,103,115,0,32,3472,3505,131,84,
101,109,112,83,116,114,105,110,103,77,97,120,0,512,3488,3517,144,83,
84,82,73,78,71,83,0,2049,1543,3841,3487,3841,3505,19,18,10,3506,3537,
131,67,117,114,114,101,110,116,0,22,10,3526,3552,144,115,58,112,111,
131,67,117,114,114,101,110,116,0,30,10,3526,3552,144,115,58,112,111,
105,110,116,101,114,0,3841,3537,3841,3505,19,2049,3517,17,10,3539,3571,144,
115,58,110,101,120,116,0,1,3537,2049,2988,3841,3537,3841,3487,11,1793,3587,
1,0,4097,3537,10,1,3582,9,10,3506,3601,144,115,58,116,101,109,112,
@ -489,7 +489,7 @@ var ngaImage = [
1793,8780,2,2049,79,2049,2543,1,365,1,11,2049,64,10,1,8768,2049,2100,
2049,2890,10,1,8761,2049,2275,2049,365,10,8653,8808,144,115,58,101,118,97,
108,117,97,116,101,0,2049,8706,2049,4648,2049,8706,2,2049,8728,2049,8759,10,
8794,8826,131,76,80,0,0,8820,8836,131,73,110,100,101,120,0,0,10,
8794,8826,131,76,80,0,0,8820,8836,131,73,110,100,101,120,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,8827,8876,144,110,101,120,
116,0,3841,8826,1,8836,17,2049,2988,10,8868,8892,144,112,114,101,112,0,
@ -515,4 +515,5 @@ var ngaImage = [
0,2049,6040,2049,9221,10,9226,9249,144,114,101,115,101,116,0,2049,1556,25,
771,1,9249,7,10,9240,9271,144,100,117,109,112,45,115,116,97,99,107,
0,2049,1556,25,134284547,9271,134283782,9235,2049,9195,10,9257,9289,144,70,82,69,69,
0,2049,3517,1,1025,18,2049,1874,18,10,];
0,2049,3517,1,1025,18,2049,1874,18,10,
];