search

YujiSODE / asciiCore

Simple particle simulation in ascii art.
https://yujisode.github.io/asciiCore/
MIT License
1 stars 0 forks source link

Sample codes #19

Open YujiSODE opened 5 years ago

YujiSODE commented 5 years ago

code samples using "asciiCore"

YujiSODE commented 5 years ago

test_asciiCore00.tcl

source -encoding utf-8 ./asciiCore.tcl;
::asciiCore::resize 20 10;
::asciiCore::setEnvX wind -0.05;
::asciiCore::setEnvY gravity [expr {9.8*0.08}];
#################
::asciiCore::setFree [::asciiCore::setIsolated [::asciiCore::setObject @ 1 {3 3} {0 0}]];
::asciiCore::setObject A 1 {6 3} {-1 0};
::asciiCore::setObject B 1 {10 0} {0 1};
::asciiCore::setObject C 1 {10 4} {0 -0.5};
#################
::asciiCore::run 8 1000;
parray ::asciiCore::idMap;
::asciiCore::output_JS {asciiCore_sample00};
YujiSODE commented 5 years ago

test_asciiCore01.tcl

source -encoding utf-8 ./asciiCore.tcl;
::asciiCore::resize 20 10;
::asciiCore::setEnvY gravity [expr {9.8*0.08}];
#################
::asciiCore::setObject A 1 {6 3};
::asciiCore::setObject B 1 {4 0};
#################
set i 0;
while {$i<10} {
    ::asciiCore::setFree [::asciiCore::setIsolated [::asciiCore::setObject @ 10 [list $i 8]]];
    incr i 1;
};
#################
::asciiCore::run 10 1000;
parray ::asciiCore::idMap;
::asciiCore::output_JS {asciiCore_sample01};
YujiSODE commented 5 years ago

test_asciiCore02.tcl

source -encoding utf-8 ./asciiCore.tcl;
::asciiCore::resize 20 10;
#################
::asciiCore::setObject A 1 {6 3} {1 0};
::asciiCore::setObject B 1 {6 4} {1 0};
::asciiCore::setObject C 1 {6 5} {1 0};
::asciiCore::setObject D 1 {7 4} {1 0};
#################
set i 1;
while {$i<9} {
    ::asciiCore::setObject @ 0.5 "10 $i";
    incr i 1;
};
#################
::asciiCore::run 8 1000;
parray ::asciiCore::idMap;
::asciiCore::output_JS {asciiCore_sample02};