「お年賀 2022」の続報

 別blogにて、HP PrimeのPPLコードを挙げました。

ref.  お年賀 2022

https://akatuki-724.blogspot.com/2022/01/2022_02024079436.html

ここでは、データ部分を改変したコードを挙げておきます。

画像は、以下のTweetから拝借致しました。

ref. https://twitter.com/smile_smile_sy/status/1485721738105159680

リストだよん

 

// title : graphic example
// begin : 2022-01-04 04:10:54 
// ref.  : https://twitter.com/smile_smile_sy/status/1485721738105159680

EXPORT colour;
EXPORT gdata;

//  graphics print func
gprint(ii, jj, str) 
BEGIN
LOCAL c;

  FOR X FROM 1 TO SIZE(str) DO
      c := MID(str, X, 1) ;
      N := INSTRING("0123456789ABCDEF", c) ;
      L := colour(N) ;
      RECT_P(ii, jj, ii+D, jj+D, L) ;
      ii := ii+D ;
  END;
END;

//  
EXPORT gprt_syk()
BEGIN

RECT();

//  
D := 2 ;  //  pixel size
J := 10 ; //  height from top

//  palette
colour := {} ;
colour := CONCAT(colour, RGB (103, 88, 88) );
colour := CONCAT(colour, RGB (41, 36, 40) );
colour := CONCAT(colour, RGB (80, 56, 56) );
colour := CONCAT(colour, RGB (124, 132, 131) );
colour := CONCAT(colour, RGB (165, 151, 153) );
colour := CONCAT(colour, RGB (149, 111, 102) );
colour := CONCAT(colour, RGB (177, 146, 143) );
colour := CONCAT(colour, RGB (165, 134, 122) );
colour := CONCAT(colour, RGB (165, 79, 86) );
colour := CONCAT(colour, RGB (199, 166, 153) );
colour := CONCAT(colour, RGB (206, 182, 170) );
colour := CONCAT(colour, RGB (200, 178, 200) );
colour := CONCAT(colour, RGB (218, 197, 185) );
colour := CONCAT(colour, RGB (199, 138, 124) );
colour := CONCAT(colour, RGB (233, 223, 218) );
colour := CONCAT(colour, RGB (157, 116, 139) );

// ======== graphic print

gdata := {
   "0000000000111122211111111111111111111111111111111112000033333333330" , 
   "0002000000211111222111111111111111111111111111111111000333333333303" , 
   "0000000000022111112211111111111111111111111111111111200033333333333" , 
   "0020000000202211111221111111111111111111111111111112220033333333333" , 
   "0020000000022221111122211111111111111111111111111112220003334433333" , 
   "0002000000002222111112021111111111111111111111111112000003334443333" , 
   "0002000000000022221111100211111111111111112222111122000003333344433" , 
   "0002000404000002222111112022211111111111111222222222000003333444443" , 
   "0000000455400000022211111200022211111112122222222222000333333333333" , 
   "0000000540445000000221111110000022222222111122222222000444443333333" , 
   "0000004044546700000002211122200050000500211112222220777444444433333" , 
   "0007007044446670000000222112220555555770021111112227757444444443333" , 
   "0004000454464667000000020211222007547747022111112125528744444444443" , 
   "0004400454474677650000002002120000646646502111122225752844444444433" , 
   "0554450745466467767000000020211050076666702111122205560074444343443" , 
   "0454440045496446677650005500021105005444650221122050076054444333443" , 
   "0454440044794494666764700055502110550799440022220575557554444444333" , 
   "0434444064649949999464446500057502276449947022220555005677444443333" , 
   "0444449054479A99AAAA94466550569970225666466502220002220776444433434" , 
   "544494A404444AA9AAAAA60002579A9946701064494700220000022056444433433" , 
   "444599AA549444AA9AA650005769999999665007699650222005000056444433443" , 
   "44444A4A4544469A996020569999999999996602076965020055508876444333343" , 
   "44444AAAA44446499522059A996669999999A946000767500055508574444343433" , 
   "44444AAAA44446670220569966776666699AAAA9A65005550550085554444433433" , 
   "A94444AAAA4666702207699655000055779AAAAAAAA65000005505557BBBB443333" , 
   "9A4444ACAA464602007669D502222220599AAAAAAAAA9655005005556CECB443333" , 
   "9AA444ACCAA4465007669700021100056999AAAAAAAA9667555555556CEECB44333" , 
   "AAA4499ACCA47666779965043012205D9AAAAAAAAAAA9966557755585BEECB44433" , 
   "ABAA449ACCCA47966699704EB21105699AAAAAAAAAAAA9667767755859CCCB44444" , 
   "9A44454ACCCAA66666A950BEE3257769AAAAAACAAAAAA96666677D5554BCCBB44BB" , 
   "002220549CCCAA996699526CC966699AACAAAACAAAAAA99666675555554CEBBBBAA" , 
   "020054749CCCCCA996797276AA9699AAAAAAAAAAAAAA9996666655558204BBB4F69" , 
   "444444449ACEEECA9679679999999AAAAACAAACAAAAA99999666555580106965556" , 
   "CA66666699AEEECC9966AA99AAAAAACCCCCAAAAAAAAA99999996555550125667585" , 
   "EC965000076CEEECA9969CCACCCCCCCCCCAAAAAAAAAAA9999996555558210F666F5" , 
   "EE900332115ACEEEC9999ACCCCCCCCCCCCCAAAAAAAAAA999999655555502256666F" , 
   "EE60BEB01116CEEECA9999ACCCCCCCCCCCCAAAAAAA9AA9999996557558022566666" , 
   "EEE0BEE01106CEEECAAAAA9ACCCCCCCCCCCAAAAAAAAAA99999965775555020F6666" , 
   "EEEEAEEB0579CEEEEAAAAAA9ACCCEEEECCCAAAAAAAAAAA999996558555502256666" , 
   "EEEEEAA99D6ACEEEEAAAAAAA9ACCEEEECCCAAAAAAAAAAA999996558555550256966" , 
   "EEEEEECA999ACEEEECAAAAA999CCEEEEECCCAAAAAAAAAAAAA99D777555555256666" , 
   "EEEEEEEEAAAACEEEECAAAAA999ACCEEECCCCAAAAAAAAAAAAA99D575555555006696" , 
   "EEEEEEEECCCACEEEECAA9999669ACEECCCCCAAAAAAAAAAAAA99D575555555006696" , 
   "EEEEEEEEECCCCCEEEECA99999779CCCCCCCCAAAAAAAAAAAA9997575555555505696" , 
   "EEEEEEEEECCCCCCEEECCA99AA979CCCCCCCAAAAAAAAAAAAA9965555555555505666" , 
   "EEEEEEEEEEECECCEEEECAAAAA979CCCCCCCAAAAAAAAAAA999975555555555505666" , 
   "EEEEEEEEEEEEECCEEEEA9975667ACCCCCCAAAAAAAAAAAA999955555555555555666" , 
   "EEEEEEEEEEEEECCEEEEA6500779ACCCCCCAAAAAAAAAAAA999D55555555555556666" , 
   "EEEEEEEEEEEEECCCEEC9D556769AAAAA9AAAAAAAAAAA99999755555555555006996" , 
   "EEEEEEEEEEEEECCCCECA999999AAAAA9975999AAAA999999D555555555555056996" , 
   "EEEEEEEEEEEEEECCCEEEECAAA9AAAAA9525999AA999999965555555555555256996" , 
   "EEEEEEEEEEEEEEECEEEEEEACCCCA965005999999999999675555555555550259996" , 
   "EEEEEEEEEECEEEEEEEEEEECCE9D5228859999AA9999996D55555555555502269966" , 
   "EEEECCCCCCCACCEEEEEEEEEE6882888599AA99AAA9A99D755555555555002069966" , 
   "CCCCAAAAAAAA99CCEECAEA588888D8899AAA99AA9AA96D555555555550022599666" , 
   "EECAA9999999999ACCCD565DDD9988D99AAA9AAAAA99D5855555555500220699666" , 
   "EEEEEEECA99996669AC95ACAA9DDDD99AAAAAAAAAA9678855555588002225666466" , 
   "EEEEEEEEEEECCA99D76A99CC9DDDD9AACCAAAAAAA99780005555800022256666449" , 
   "EEEEEEEEEEEEEEECA9666DACCCAAACCCCCCCAAAA996800000000002222576666469" , 
   "EEEEEEEEEEEEEEECCAA96759CCCCEEEECCCAAAA9665000000002222225766666449" , 
   "EEEEEEEEEEEEEEEECCCCA99559EEEEEECCAAAA966A658000222222125F666666499" , 
   "EEEEEEEEEEEEEEEEEEEEECCA659EEEEECAAA9966CEB9580222221125FF666666999" , 
   "EEEEEEEEEEEEEEEEEEEEEEECCA6AEECCAA99676EEEBA6F022211125FFF666669999" , 
   "EEEEEEEEEEEEEEEEEEEEEEECCCC999AA99D769BEEEBB96F5222205F5FF666669949" , 
   "EEEEEEEEEEEEEEEEEEEEEEEECCCCA675556ABBBEEEBB9664F55555555FF66666649" , 
   "EEEEEEEEEEEEEEEEEEEEEEEEECCCCAA656BBBBBBBBBBB66496F555555FFF6666494" , 
   "EEEEEEEEEEEEEEEEEEEEEEEEECCECCCCA969BBBBBBBBB466BB4F55555FFF6666446" , 
   "EEEEEEEEEEEEEEEEEEEEEEEEEEEEECCCCCA969BBBBB99B44BBB4FF555FFFF66666F" , 
   "CCCCCCCCCCCCEEEEEEEEEEEEEEEEEEEEECCCA969BBB94BB4BBB44FFF55FFF666FFF" , 
   "CCCCCAAAA9999AEEEEEEEEEEEEEEEEEEEECCCCA969BB49BB44BBB44FFFFFFFFFFFF" , 
   "CAAA9966655557AEEEEEEEEEEEEEEEEEEEECEEEC97664BBBA4BBBB444FFFFFFFFFF" , 
   "946655500055444CEEEEEEEEEEEEEEEEEECCCCCCA67669BBB444BBB444FFFFFFFFF" , 
   "4500022200055444EEEEEEEEEEEEEEEEEECCACCCA97666BBBBF44BBB444FFFFFFFF" , 
   "7000000000000574AEEEEEEEEEEEEEEEECCAAAACAA77676FF6FFF4BBB4444444444" , 
   "99AAACCACCCA9949AEEEEEEEEEECEEEEECAAAAACCA67756BF8FFFF4BBBBB4444444" , 
   "EEEEEECCEEECCCEEEEEEEEEEEEECCCCCCCCAAA9ACC96557CB8FFF5F4BBBBB444444" , 
   "EEEEECCCCCCCCCEEEEEEEEEEEEECCCACCCCAAA66CCA955559FF6F55F44BBBBBBBBB" , 
   "EEECCEEEBACCCEEEEEEA9EEEEEECCA99ACCCAA97CECA6567865FFFFFF44444BBBBB" , 
   "EEECEEEE69CEEEEEEEEC96CEEEEECAA66CEECAA59EECA656A665FFFFFFFF4444444" , 
   "EECCEECC99CCEEEEEEECCA9CEEEECCA65AEEECC67EECAA77AAA96FFFFFFFFFFFFFF" , 
   "EEEECCCCAAACCEEEEEEECCA6CEEEECC905CEECCA69EECA9579AA96503FF4F330000" , 
   "EEECAACEEECCCEEEECCCCCCA6EEEECCA509EEECA97CECA66569AA670003F4F30000" , 
   "EECCAACCCCCCCEEEEECCCCCCAAEEECCA625EEECA966ECA96556996650003F430002" , 
   "CCAAAAAACAAACCCCECCAAACCCAEEECAA902AEEEA965AECA67057699650000300221" , 
   "AAA99AAAAAAACCCCCCCAAACCCACEECAA9527CEEC6676CCA67520569960000021111" , 
   "96AA99AACAAACCCCCCCACCCCAAAEEEAA9700AEEC96659CA95512569A96000221111" , 
   "EEECCEEEEA9AA99ACCAAAAAA999CEEA667006CECA6655CA96701254A96500022111" , 
   "ECACCCCAA679AA9AAAAAAAA99AAAEEA6675009CCA6650AAA6750206496502022211" , 
   "CA9AAAA9677699999999A9AAAAAACEC9665505CCA96727CA9670025666650222221" 
};


//  g-print
FOR K FROM 1 TO SIZE(gdata) DO
  gprint(30, J, gdata[K]);
  J := J+D ;
END;

//  show screen and wait
FREEZE;

END;