Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Code examples #1

Open
YujiSODE opened this issue May 16, 2018 · 5 comments
Open

Code examples #1

YujiSODE opened this issue May 16, 2018 · 5 comments
Assignees

Comments

@YujiSODE
Copy link
Owner

YujiSODE commented May 16, 2018

code examples here

Repository owner locked and limited conversation to collaborators May 16, 2018
@YujiSODE
Copy link
Owner Author

output hexadecimal scale

source ./txtMap.tcl;
::txtMap::scale \#\[ \] \#\[ \];

Result

#[0123456789abcdef]
#[⬚□◫▤▥▦▧▨▩▣■◩◆◇◈◬]

@YujiSODE YujiSODE self-assigned this May 16, 2018
@YujiSODE
Copy link
Owner Author

Character map of pi (102 digits)

#pi102_map.tcl
#102 digits of pi in unicode characters
#
#102 digits of pi
set pi_102 3.14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798;
#Reference
#value of pi by Keisan Online Calculator service (CASIO COMPUTER CO., LTD.)
#Results were derived on Wed May 16 2018 13:11:45 GMT+0900 (JST) and from:
#https://keisan.casio.jp/calculator
source ./txtMap.tcl;
set pi [string map {. {}} $pi_102];
::txtMap::outputMap $pi 10 pi_102Map.txt;

Result

▤□▥□▦▣◫▧▦▤
▦▩▣▨▣▤◫▤▩▥
▧◫▧▥▤▤▩▤◫▨
▣▦⬚◫▩▩▥□▣▨
□▧▣▤▣▣▤▨▦□
⬚▦▩◫⬚▣▨▥▣▥
▥▦▣◫▤⬚▨▩□▧
▥⬚▧◫▩▧◫⬚▩▣
▣▩▧◫▩⬚▤▥▩◫
▦▤▥◫□□▨⬚▧▨
▣▩

@YujiSODE
Copy link
Owner Author

YujiSODE commented May 16, 2018

Decimal map of pi (102 digits)

#pi102_hexMap.tcl
#102 digits of pi in decimals
#
#102 digits of pi
set pi_102 3.14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798;
#Reference
#value of pi by Keisan Online Calculator service (CASIO COMPUTER CO., LTD.)
#Results were derived on Wed May 16 2018 13:11:45 GMT+0900 (JST) and from:
#https://keisan.casio.jp/calculator
source ./txtMap.tcl;
set pi [string map {. {}} $pi_102];
::txtMap::outputHexMap [::txtMap::hexToMap $pi 10] pi_102HexMap.txt;

Result

3141592653
5897932384
6264338327
9502884197
1693993751
0582097494
4592307816
4062862089
9862803482
5342117067
98

@YujiSODE YujiSODE changed the title Some examples Code examples May 16, 2018
@YujiSODE
Copy link
Owner Author

YujiSODE commented May 30, 2018

Data in 10x15 grid

#Ishii1975_mites.tcl
#Ishii1975_mites.tcl
#----------------------------------------------
# data cited:
# Ishii, S., 1975. Seibutu Toukeigaku Nyuumon
# Tokyo, Japan, BAIFUKAN CO., LTD. (in Japanese)
#
# ISBN: 9784563037345
# NCID: BN04347526
#
#Table 9 in p.102
#species of mites in 10x15 grid
#----------------------------------------------
#Nsp is a list showing species number of mites in a cell
set Nsp [list\
4	6	5	15	14	10	10	10	7	7\
8	6	2	2	7	6	5	7	5	8\
4	8	5	2	4	7	7	2	4	8\
9	6	8	4	6	3	6	2	7	11\
4	2	4	4	5	3	8	8	3	8\
5	5	4	3	5	4	6	4	5	8\
7	8	3	3	3	4	5	2	7	3\
6	4	8	5	2	9	6	6	2	2\
6	3	5	6	7	6	8	3	7	8\
7	5	4	9	6	4	3	2	4	7\
5	6	5	2	4	3	4	5	5	9\
9	2	8	6	8	7	7	6	6	9\
11	6	12	7	4	5	8	7	4	6\
9	11	8	10	7	8	10	7	6	7\
8	8	7	9	11	8	13	7	10	1\
];
#----------------------------------------------
source ./txtMap.tcl;
set nHex [::txtMap::to4bitHex $Nsp 0 15];
::txtMap::outputMap $nHex 10 mites10x15.txt;
#scale
#0123456789abcdef
#⬚□◫▤▥▦▧▨▩▣■◩◆◇◈◬

Result

▥▧▦◬◈■■■▨▨
▩▧◫◫▨▧▦▨▦▩
▥▩▦◫▥▨▨◫▥▩
▣▧▩▥▧▤▧◫▨◩
▥◫▥▥▦▤▩▩▤▩
▦▦▥▤▦▥▧▥▦▩
▨▩▤▤▤▥▦◫▨▤
▧▥▩▦◫▣▧▧◫◫
▧▤▦▧▨▧▩▤▨▩
▨▦▥▣▧▥▤◫▥▨
▦▧▦◫▥▤▥▦▦▣
▣◫▩▧▩▨▨▧▧▣
◩▧◆▨▥▦▩▨▥▧
▣◩▩■▨▩■▨▧▨
▩▩▨▣◩▩◇▨■□

@YujiSODE
Copy link
Owner Author

YujiSODE commented Jun 5, 2018

Result using imaginary landform map

#imaginaryLandform_htmlOutput20180605.tcl
source ./txtMap.tcl;
#=== imaginaryLandform_20180601.tcl (Yuji SODE,2018): the MIT License; https://gist.github.com/YujiSODE/04348f5f81ae4276118179143ec56ffd ===
source ./imaginaryLandform_20180601.tcl;
set vHex [::txtMap::to4bitHex $V 5 155];
set comment {<a href="https://github.com/YujiSODE/txtMap">GitHub</a>};
append comment "\n";
append comment {Using map data of <a href="https://gist.github.com/YujiSODE/04348f5f81ae4276118179143ec56ffd">imaginaryLandform_20180601.tcl</a> (Yuji SODE,2018): the MIT License};
::txtMap::outputHTML $vHex 19 imaginaryLandform_19x26 $comment;
#scale
#0123456789abcdef
#⬚□◫▤▥▦▧▨▩▣■◩◆◇◈◬

Character map

▧▧▧▧▨▩▣▩▨▨▧▧▦▦▥▥▥▥▥
▧▧▨▩▣■■■■▣▩▨▧▦▦▦▥▥▥
▧▨▩▣■◩◆◩◩■▣▩▨▧▧▦▦▥▥
▧▩▣■◩◆◇◇◆◩■▣▩▧▧▦▦▥▥
▨▩■■◩◆◬◈◆◆◩■▩▨▧▧▦▥▥
▨▣■◩◆◇◬◬◈◆◩◩▩▨▧▧▦▥▥
▨▣■■◩◆◇◈◇◇◆◩▣▩▨▧▦▥▥
▨▩▣■◩◩◩◆◇◇◇◩■▩▨▧▦▥▥
▧▨▩▣■■◩◩◆◆◆◆■▩▨▧▦▥▥
▦▧▨▩▣▣▣▣◩◩◩◆◩▩▨▧▦▦▥
▥▦▧▧▨▨▩▩▣▣■◩■▩▨▧▦▦▥
◫▤▥▦▧▨▨▨▨▩▩▣▣▩▨▧▧▦▥
□◫◫▤▥▥▥▦▦▧▧▨▩▩▩▨▧▧▦
□□◫◫◫▤▤▤▤▤▥▥▨▩▣▩▨▧▦
□□□□□◫◫◫▤▤▤▤▨▩▣▣▩▨▦
□□□□□□□◫◫▤▤▦▨▩■◩▣▨▧
⬚□□□□□□◫▤▤▥▧▩▣■◩■▩▨
⬚⬚□□□□□◫▤▥▧▩▩▣◩◆■▣▨
⬚⬚⬚□□□◫▤▥▦▨▩▣◩◆◆■▣▨
⬚⬚⬚□□□◫▤▦▨▩▣■◩◇◆■▣▨
⬚⬚⬚□□◫◫▥▧▩▣■◩◆◆◩▣▩▨
⬚⬚⬚□□◫▤▦▨▩▣■◩◩◩■▩▨▧
⬚⬚□□◫◫▥▧▩▣■■■■▣▣▨▨▧
⬚⬚□◫◫◫▦▨▩▩▣▣▣▣▩▨▨▧▧
⬚□□◫◫▤▦▧▨▩▩▩▩▨▨▨▧▧▧
□□□◫◫▥▦▧▨▨▨▨▨▨▨▧▧▧▧

Sign up for free to subscribe to this conversation on GitHub. Already have an account? Sign in.
Labels
None yet
Projects
None yet
Development

No branches or pull requests

1 participant