input suanpan
setup_abacus(N=13,NBL=5,NBU=2,bead="suanpan",units=0);
% initial value of a suanpan
beginfig(1);
rod_numbers:=false;
reset_abacus;
draw_abacus;
endfig;
setup_abacus(N=13,NBL=4,NBU=1,bead="soroban",units=1);
% initial value of a soroban
beginfig(2);
rod_numbers:=false;
reset_abacus;
draw_abacus;
endfig;
setup_abacus(N=13,NBL=5,NBU=2,bead="suanpan",units=0);
beginfig(3);
rod_numbers:=true;
reset_abacus;
valL[1]:=2;
valL[3]:=5;
valU[2]:=1;
valU[4]:=2;
draw_abacus;
endfig;
beginfig(4);
reset_abacus;
set_abacus_val("10552");
draw_abacus;
endfig;
beginfig(10);
reset_abacus;
valL[1]:=2;
valL[3]:=5;
valU[2]:=1;
valU[4]:=2;
draw_abacus;
endfig;
beginfig(20);
reset_abacus;
valL[1]:=3;
valL[3]:=5;
valU[2]:=1;
valU[4]:=2;
draw_abacus;
endfig;
% soroban?
beginfig(30);
setup_abacus(N=13,NBL=4,NBU=1,bead="soroban",units=1);
set_abacus_val("651324");
set_abacus_gray(deck="lower",below="000011",
above="000010");
set_abacus_gray(deck="upper",below="000001",
above="000010");
draw_abacus;
mark_abacus(i=1,j=5)(btex 1 etex);
mark_abacus(i=2,j=2)(btex 2 etex);
mark_abacus(i=2,j=3)(btex 3 etex);
endfig;
%show_val;
setup_abacus(N=13,NBL=4,NBU=1,bead="soroban",units=1);
set_abacus_val("651324");
reset_abacus_gray;
add_val(v="82363456",iv=100,fig=true);
%message "**********************************";
%show_val;
setup_abacus(N=13,NBL=5,NBU=2,bead="suanpan",units=0);
% detailing one of the addition cases
beginfig(200);
reset_abacus;
reset_abacus_gray;
set_abacus_val("82951324");
draw_abacus;
endfig;
beginfig(201);
set_abacus_val("82951324");
add_val(v="60000",iv=100,fig=false);
draw_abacus;
endfig;
%-------------------------------------------
beginfig(202);
reset_abacus;
reset_abacus_gray;
set_abacus_val("82951324");
set_abacus_gray(deck="lower",below="1010000",
above="0400000");
set_abacus_gray(deck="upper",below="0110000",
above="0000000");
draw_abacus;
endfig;
beginfig(203);
reset_abacus_gray;
add_val(v="60000",iv=100,fig=false);
set_abacus_gray(deck="lower",below="0400000",
above="1010000");
set_abacus_gray(deck="upper",below="0000000",
above="0110000");
draw_abacus;
mark_abacus(i=5,j=5)(btex 1 etex);
endfig;
% the following two commands enable a base-8 abacus
vbu:=4; % value of a bead in the upper deck
setup_abacus(N=13,NBL=3,NBU=1,bead="suanpan",units=0);
beginfig(300);
reset_abacus;
reset_abacus_gray;
set_abacus_val("3401256");
draw_abacus;
endfig;
beginfig(301);
add_val(v="1234",iv=100,fig=false);
draw_abacus;
endfig;
end
