ONO::FW::Edu::Apps::Modules::MathAbacus
package ONO::FW::Edu::Apps::Modules::MathAbacus;
################################################################################
# COPYRIGHT / LICENSE #
################################################################################
#
# This file is part of the ONO Software Project.
#
# Copyright (C) 2022-2026 Jos Kirps and The Joopita Project [ASBL]
# Copyright (C) 2011-2022 Jos Kirps and Joopita Research ASBL
# Copyright (C) 2006-2011 Jos Kirps and The Joopita Project
# Copyright (C) 2001-2006 Jos Kirps and The WobbleWolf Project
#
# This file, as well as many other parts of the ONO Software Project or
# related elements, are FREE SOFTWARE available under the ARTISTIC LICENSE 2.0.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
#
# For the full license, see /ono/osr/license/LICENSE.txt, or write to
# jos_AT_kirps_DOT_com or contact_AT_joopita_DOT_com.
#
################################################################################
# END OF COPYRIGHT / LICENSE, HERE COMES THE CODE ... #
################################################################################
#: This module is a front end application module wrapper that has been
#: created for the Morzino Project (morzino.com) and that has been released
#: as Open Source software.
#:
#: Note that this is NOT a self-contained application, it is only a wrapper
#: that makes heavy use of the ONO Perl Framework application engine.
use strict;
use ONO::FW::Edu::Apps::ToolBox;
use ONO::FW::Edu::Apps::Modules::WorksheetMaker::Input;
use ONO::FW::Apps::ToolBox;
use ONO::Lib::PDF::Draw;
use ONO::Lib::PDF::ToolBox;
use ONO::Lib::PDF::Elements::Abacus;
use ONO::FW::Apps::Core;
use ONO::FW::Apps::Core::Graphics;
use ONO::Lib::Parser;
use ONO::FW::Apps::PDF;
use ONO::IO;
sub learn {
my (
$self,
$option,
$vars_ref,
$HTTP,
$BASE,
) = @_;
################################################################
# INIT - BEGIN
################################################################
my (
$db,
$community,
$action_url,
$form,
$format,
$canvas,
$pdfkey,
$sec,$min,$hour,
$mday,$mon,$year,
$wday,$yday,$timestamp,
$lang,
$BLK_ref,
$vars_ref,
) = ONO::FW::Apps::Core->init($vars_ref);
my %vars = %$vars_ref;
my %BLK = %$BLK_ref;
my $app = "math_abacus";
ONO::FW::Apps::Core->now("",$app,$vars{'app_lang'});
my ($num_comma,$num_delimiter) = ONO::FW::Apps::Core->local_comma_delimiter(ONO::FW::Apps::Core->detect_local($vars{'app_lang'}),$vars_ref);
my $WEB;
$WEB .= ONO::FW::Apps::Core->output_paper_save($pdfkey,$BLK_ref,\%vars,$HTTP,$BASE,"$year$mon$mday");
$vars{'app_input_op_mul'} = 0;
$vars{'app_input_op_div'} = 0;
if (ONO::FW::Apps::Core->running(\%vars,$db)) {
$WEB .= ONO::FW::Apps::Core->blockbackbutton($BASE,$vars_ref);
(
$vars{'app_input_range_from'},
$vars{'app_input_range_to'},
) = ONO::FW::Apps::Core->range_check(
50,
100,
$vars{'app_input_range_from'},
$vars{'app_input_range_to'},
);
#############################################################
# WORKSHEET MAKER
#############################################################
if ($vars{'output_worksheet_maker'}) {
$vars_ref = ONO::FW::Edu::Apps::Modules::WorksheetMaker::Input->vars(\%vars);
%vars = %$vars_ref;
}
#############################################################
# ONLINE TRAINING
#############################################################
if ($vars{'output_web'} || $vars{'output_paper'}) {
my $question_number = ONO::FW::Apps::Core->question_number($vars{'output_web_question_number'});
my (
$op_symbol_opts,$focus_on,
$page,$pages,%cache,
$whilecounter,$stats_switches,
$PDF_OPTS,
$stat_todo,$stat_todo_total,
%used,
);
my $questions_per_page = 1;
if ($vars{'output_paper'}) {
$PDF_OPTS = ONO::FW::Apps::Core->headers_options($BLK_ref,$vars_ref);
ONO::FW::Apps::PDF->new("$BASE/pdf/pdf-$pdfkey.pdf","",$format);
$vars{'app_input_multiple_questions_per_page'}++;
$questions_per_page = 12;
$op_symbol_opts = "p";
}
foreach my $copy (ONO::FW::Apps::Core->unique_copies($vars{'app_input_print_options_unique_copies'})) {
my (@op,@op_symbol,@num1,@num2,@res);
my ($pdf_x,$pdf_y) = (0,0);
my @corr_cache;
if ($vars{'output_paper'}) {
if ($copy > 1) {
ONO::FW::Apps::PDF->page("",$format);
}
ONO::FW::Apps::Core->headers(\%vars,$format);
ONO::FW::Apps::PDF->title($vars{'app_input_print_options_title'},$PDF_OPTS,$vars{'app_input_print_options_code'},$format);
ONO::FW::Apps::Core->unique_copies_info($canvas,$copy,$vars_ref);
ONO::FW::Apps::Core::Graphics->pdf_draw_item_numbers($canvas,-2,0,1,4,"HV",$vars_ref);
# ONO::Lib::PDF::ToolBox->canvas_test($canvas);
}
if (ONO::FW::Apps::Core->question_progress_done($vars{'app_input_number_of_questions'},$question_number) || $vars{'output_web_finish'}) {
$vars{'output_progress_done'}++;
$WEB .= ONO::FW::Apps::Core->question_progress_done_msg($app,$db,$community,$form,$action_url,$vars{'app_input_number_of_questions'},$vars{'output_web_mistakes'},$lang,$BLK_ref,$vars_ref);
} else {
if ($vars{'output_web'}) {
$WEB .= qq~<$form>~;
$WEB .= ONO::FW::Apps::Core->timer($vars{'output_web'},$vars{'output_web_timer_start'});
$op_symbol_opts = "c";
$WEB .= qq~<div class="w100 abs hide" style="top:0px;height:42px;background-color:#663333"></div>
<div class="w100 abs hide" style="top:380px;height:100px;background-color:#663333"></div>
<div class="inline abs" style="top:400px;left:10px">
~;
$WEB .= ONO::FW::Apps::Core->stats("",$BLK_ref,"ctmW$stats_switches");
$WEB .= qq~</div>~;
$WEB .= ONO::FW::Apps::Core->question_progress($vars{'app_input_number_of_questions'},$question_number,"","");
}
for (my $i = 0; $i < $questions_per_page; $i++) {
my $mode = &mode("",$vars{'app_input_options_draw'},$vars{'app_input_options_write'});
if ($vars{'app_input_op_add'} || $vars{'app_input_op_sub'}) {
if (!$op[$i]) {
$op[$i] = ONO::FW::Apps::Core->random_operation(ONO::FW::Apps::Core->get_operations(\%vars));
}
$op_symbol[$i] = ONO::FW::Apps::Core->operation_symbol($op[$i],$op_symbol_opts);
if ($op[$i] eq "add") {
($num1[$i],$num2[$i],$res[$i],$cache{'num1'},$cache{'num2'}) = ONO::FW::Apps::Core->generate_add($i,$num1[$i],$num2[$i],$op[$i],$res[$i],$cache{'num1'},$cache{'num2'},\%vars);
if ($used{"num1_$num1[$i]"} || $used{"num2_$num2[$i]"}) {
($num1[$i],$num2[$i],$res[$i],$cache{'num1'},$cache{'num2'}) = ONO::FW::Apps::Core->generate_add($i,$num1[$i],$num2[$i],$op[$i],$res[$i],$cache{'num1'},$cache{'num2'},\%vars);
}
$used{"num1_$num1[$i]"}++;
$used{"num2_$num2[$i]"}++;
}
if ($op[$i] eq "sub") {
($num1[$i],$num2[$i],$res[$i],$cache{'num1'},$cache{'num2'}) = ONO::FW::Apps::Core->generate_sub($i,$num1[$i],$num2[$i],$op[$i],$res[$i],$cache{'num1'},$cache{'num2'},\%vars);
if ($used{"num1_$num1[$i]"} || $used{"num2_$num2[$i]"}) {
($num1[$i],$num2[$i],$res[$i],$cache{'num1'},$cache{'num2'}) = ONO::FW::Apps::Core->generate_sub($i,$num1[$i],$num2[$i],$op[$i],$res[$i],$cache{'num1'},$cache{'num2'},\%vars);
}
$used{"num1_$num1[$i]"}++;
$used{"num2_$num2[$i]"}++;
}
} else {
if ($vars{'output_web_cache_num1_0'}) {
$num1[$i] = $vars{'output_web_cache_num1_0'};
} else {
$num1[$i] = ONO::FW::Apps::Core->random_number($vars{'app_input_range_from'},$vars{'app_input_range_to'},0,100,$vars_ref);
if ($used{"num1_$num1[$i]"}) {
$num1[$i] = ONO::FW::Apps::Core->random_number($vars{'app_input_range_from'},$vars{'app_input_range_to'},0,100,$vars_ref);
$used{"num1_$num1[$i]"}++;
}
}
}
# output paper
if ($vars{'output_paper'}) {
$corr_cache[$i] = "$mode\^$op[$i]\^$op_symbol[$i]\^$num1[$i]\^$num2[$i]\^$res[$i]\^$pdf_x\^$pdf_y\^";
ONO::Lib::PDF::Elements::Abacus->abacus($canvas,$pdf_x+5,$pdf_y+3,$mode,$op[$i],$num1[$i],$num2[$i]);
if ($op[$i] =~ /(add|sub)/) {
ONO::Lib::PDF::Draw->line($canvas,$pdf_x+7,$pdf_y+43,$pdf_x+18,$pdf_y+43);
ONO::Lib::PDF::Draw->line($canvas,$pdf_x+22,$pdf_y+43,$pdf_x+33,$pdf_y+43);
ONO::Lib::PDF::Draw->line($canvas,$pdf_x+37,$pdf_y+43,$pdf_x+48,$pdf_y+43);
ONO::Lib::PDF::Draw->text_math_symbol($canvas,$pdf_x+20,$pdf_y+41,2,$op_symbol[$i]);
ONO::Lib::PDF::Draw->text_math_symbol($canvas,$pdf_x+35,$pdf_y+41,2,"=");
if ($mode eq "draw") {
ONO::Lib::PDF::Draw->text($canvas,$pdf_x+12.5,$pdf_y+42,$num1[$i],"c");
ONO::Lib::PDF::Draw->text($canvas,$pdf_x+27.5,$pdf_y+42,$num2[$i],"c");
}
} else {
ONO::Lib::PDF::Draw->rect($canvas,$pdf_x+20,$pdf_y+37,$pdf_x+35,$pdf_y+44,1,"0:22:22:22","0:244:244:244",2);
if ($mode eq "draw") {
ONO::Lib::PDF::Draw->text($canvas,$pdf_x+27.5,$pdf_y+42,$num1[$i],"c");
}
}
$pdf_x = $pdf_x + 60;
if ($pdf_x > 150) {
$pdf_x = 0;
$pdf_y = $pdf_y + 47.5;
}
}
if ($vars{'output_web'}) {
$stat_todo++;
$vars{"output_web_answer_$i"} =~ s~[^0-9]~~gi;
if ($vars{"output_web_answer"}) {
if ($vars{"output_web_answer"} != $vars{"output_web_cache_num1_0"}) {
$vars{'output_web_mistakes'}++;
$vars{'output_web_answer_status'} = 2;
$op[$i] = $vars{"output_web_cache_op_$i"};
$num1[$i] = $vars{"output_web_cache_num1_$i"};
$num2[$i] = $vars{"output_web_cache_num2_$i"};
$res[$i] = $vars{"output_web_cache_res_$i"};
} else {
$question_number++;
$vars{'output_web_answer_status'} = 1;
$vars{'output_web_answer'} = "";
}
}
if ($vars{'output_web_answer_status'} != 1) {
$WEB .= qq~<input type="hidden" name="output_web_cache_num1_0" value="$num1[0]">~;
}
$WEB .= ONO::FW::Apps::Core->multi_frame_end($vars{'output_web_finish'},$vars{'app_input_multiple_questions_per_page'});
$WEB .= ONO::FW::Apps::Core->input_vars(\%vars);
my $ROWS;
for (my $r = 0; $r < 10; $r++) {
$ROWS .= qq~ <tr style="height:32px;background-image:url('/images/abacus/bar.png')">~;
for (my $c = 0; $c < 16; $c++) {
my $IMG = qq~<img class="block24" src="/ono/osr/images/spacer/trans.gif" alt="">~;
my $color = "red";
if ($num1[0]+1 > ($r+1)*10 && $c < 10) {
if ($c > 4) {
$color = "blue";
}
$IMG = qq~<img class="block24 auto" src="/images/abacus/bullet_$color.png" alt="">~;
}
if ($num1[0]+1 > $r*10 && $num1[0] < ($r+1)*10) {
if ($c < $num1[0]-$r*10) {
if ($c > 4) {
$color = "blue";
}
$IMG = qq~<img class="block24 auto" src="/images/abacus/bullet_$color.png" alt="">~;
}
my $rest = $num1[0]-$r*10;
$rest = 10-$rest;
if ($c > 15-$rest) {
if ($c > 10) {
$color = "blue";
}
$IMG = qq~<img class="block24 auto" src="/images/abacus/bullet_$color.png" alt="">~;
}
}
if ($num1[0]-1 < $r*10 && $c > 5) {
if ($c > 10) {
$color = "blue";
}
$IMG = qq~<img class="block24 auto" src="/images/abacus/bullet_$color.png" alt="">~;
}
$ROWS .= qq~ <td class="p0"><div class="rel" style="top:4px">$IMG</div></td>~;
}
$ROWS .= qq~ </tr>~;
}
my $wood = "cc7700";
$WEB .= qq~<table class="wide_table mb10">
<tr>
<td class="p10"></td>
<td class="p10 w10 p0" style="background-color:#$wood"></td>
<td class="w80 p0"><table class="wide_table">$ROWS</table></td>
<td class="p10 w10 p0" style="background-color:#$wood"></td>
<td class="p10"></td>
</tr>
<tr>
<td></td>
<td class="p5" style="background-color:#$wood"></td>
<td class="p0"></td>
<td class="p5" style="background-color:#$wood"></td>
<td></td>
</tr>
</table>
~;
my $ANSWER;
if ($vars{'output_web_answer_status'} == 1) {
$ANSWER = qq~<td><div class="ml20 bold green">$num1[0]</div></td>~;
}
$WEB .= ONO::FW::Apps::Core->check_single(
$ANSWER,
"",
50,
2,
$BLK_ref,
\%vars,
"CnM",
);
$WEB .= qq~</form>~;
if (ONO::IO->devstation) {
$WEB .= qq~<div class="bg_paper bo center mt20">debug: $num1[0]</div>~;
}
}
}
}
if (ONO::FW::Apps::Core->print_corrections("$BASE/pdf/pdf-$pdfkey-corr.pdf","",$format,$vars_ref)) {
ONO::FW::Apps::Core->headers(\%vars,$format,"c");
ONO::FW::Apps::PDF->title($BLK{'Corrections'},$PDF_OPTS,$vars{'app_input_print_options_code'},$format);
ONO::FW::Apps::Core->unique_copies_info($canvas,$copy,$vars_ref);
ONO::FW::Apps::Core::Graphics->pdf_draw_item_numbers($canvas,-2,0,1,4,"CHV",$vars_ref);
# ONO::Lib::PDF::ToolBox->canvas_test($canvas);
for (my $c = 0; $c < $questions_per_page; $c++) {
my ($mode,$op,$op_symbol,$num1,$num2,$res,$pdf_x,$pdf_y) = split(/\^/,$corr_cache[$c]);
ONO::Lib::PDF::Elements::Abacus->abacus($canvas,$pdf_x+5,$pdf_y+3,"write",$op,$num1,$num2,"C");
if ($op =~ /(add|sub)/) {
my $res = $num1 + $num2;
if ($op eq "sub") {
$res = $num1 - $num2;
}
ONO::Lib::PDF::Draw->line($canvas,$pdf_x+7,$pdf_y+43,$pdf_x+18,$pdf_y+43);
ONO::Lib::PDF::Draw->line($canvas,$pdf_x+22,$pdf_y+43,$pdf_x+33,$pdf_y+43);
ONO::Lib::PDF::Draw->line($canvas,$pdf_x+37,$pdf_y+43,$pdf_x+48,$pdf_y+43);
ONO::Lib::PDF::Draw->text_math_symbol($canvas,$pdf_x+20,$pdf_y+41,2,$op_symbol);
ONO::Lib::PDF::Draw->text_math_symbol($canvas,$pdf_x+35,$pdf_y+41,2,"=");
ONO::Lib::PDF::Draw->text($canvas,$pdf_x+12.5,$pdf_y+42,$num1,"c");
ONO::Lib::PDF::Draw->text($canvas,$pdf_x+27.5,$pdf_y+42,$num2,"c");
ONO::Lib::PDF::Draw->text($canvas,$pdf_x+42.5,$pdf_y+42,$res,"c");
} else {
ONO::Lib::PDF::Draw->rect($canvas,$pdf_x+20,$pdf_y+37,$pdf_x+35,$pdf_y+44,1,"0:22:22:22","0:244:244:244",2);
ONO::Lib::PDF::Draw->text($canvas,$pdf_x+27.5,$pdf_y+42,$num1,"c");
}
}
}
}
if ($vars{'output_web'}) {
$WEB = ONO::FW::Apps::Core->stats_replace($WEB,$question_number-1,0,$vars{'app_input_number_of_questions'}-$question_number+1,$vars{'output_web_mistakes'});
}
if ($vars{'output_paper'}) {
ONO::FW::Apps::PDF->end;
$WEB .= ONO::FW::Apps::Core->output_paper($pdfkey,\%BLK,\%vars,$HTTP,$BASE);
}
}
if ($vars{'output_web'}) {
ONO::FW::Apps::Core->varstore($vars{'username'},$vars{'virclass'},$vars{'anonymous'},\%vars);
}
} else {
#############################################################
# EXERCISE SETUP
#############################################################
if (!$vars{'app_input_number_of_questions'}) {
$vars{'app_input_number_of_questions'} = 20;
}
$WEB .= ONO::FW::Apps::Core->infopics(
"screen:320:50:50::math_abacus_screenshot_1.jpg",
"sheet:168:180:110:15:math_abacus_sheet_1.jpg",
"sheet:168:40:140:-10:math_abacus_sheet_2.jpg",
);
if (!$vars{'app_input_options_draw'} && !$vars{'app_input_options_write'}) {
$vars{'app_input_options_write'}++;
}
my @options = (
"write:$vars{'app_input_options_write'}:$BLK{'write'}",
"draw:$vars{'app_input_options_draw'}:$BLK{'draw'}",
);
my $CONF .= ONO::FW::Apps::ToolBox->conf_input("range", $BLK_ref,\%vars,"",1,100,100);
$CONF .= ONO::FW::Apps::ToolBox->conf_input("spacer", $BLK_ref,\%vars);
if ($vars{'output_paper'}) {
$CONF .= ONO::FW::Apps::ToolBox->conf_input("ops", $BLK_ref,\%vars,"","as");
$CONF .= ONO::FW::Apps::ToolBox->conf_input("spacer", $BLK_ref,\%vars);
$CONF .= ONO::FW::Apps::ToolBox->conf_input("checks", $BLK_ref,\%vars,"",$BLK{'options'},"options",@options);
}
$WEB .= ONO::FW::Apps::Core->conf_box(
$db,
$community,
$app,
$form,
"",
$action_url,
$CONF,
$lang,
$BLK_ref,
\%vars,
"op-ncdi-CDI-lsu-N",
);
if (!$vars{'exercise'}) {
$WEB .= ONO::FW::Apps::Core->info_display(
ONO::FW::Apps::Core->info("info_online_print",$vars{'app_lang'}),
ONO::FW::Apps::Core->info("info_indiv_diff", $vars{'app_lang'}),
);
}
}
my ($status,$WEB) = ONO::Lib::Parser->parse($WEB,$vars_ref);
$WEB .= ONO::FW::Apps::Core->vardump($vars_ref);
$WEB = ONO::FW::Edu::Apps::ToolBox->apps_gate($WEB,$vars_ref);
return $WEB;
}
###################################################################
# SUBS
###################################################################
sub mode {
my $mode = "write";
if ($_[1]) {
$mode = "draw";
}
if ($_[1] && $_[2] && int(rand(100)) > 50) {
$mode = "write";
}
return $mode;
}
###################################################################
#### THAT'S IT :-D
###################################################################
1;
__END__
################################################################################
# COPYRIGHT / LICENSE #
################################################################################
#
# This file is part of the ONO Software Project.
#
# Copyright (C) 2022-2026 Jos Kirps and The Joopita Project [ASBL]
# Copyright (C) 2011-2022 Jos Kirps and Joopita Research ASBL
# Copyright (C) 2006-2011 Jos Kirps and The Joopita Project
# Copyright (C) 2001-2006 Jos Kirps and The WobbleWolf Project
#
# This file, as well as many other parts of the ONO Software Project or
# related elements, are FREE SOFTWARE available under the ARTISTIC LICENSE 2.0.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
#
# For the full license, see /ono/osr/license/LICENSE.txt, or write to
# jos_AT_kirps_DOT_com or contact_AT_joopita_DOT_com.
#
################################################################################
# END OF COPYRIGHT / LICENSE, HERE COMES THE CODE ... #
################################################################################
#: This module is a front end application module wrapper that has been
#: created for the Morzino Project (morzino.com) and that has been released
#: as Open Source software.
#:
#: Note that this is NOT a self-contained application, it is only a wrapper
#: that makes heavy use of the ONO Perl Framework application engine.
use strict;
use ONO::FW::Edu::Apps::ToolBox;
use ONO::FW::Edu::Apps::Modules::WorksheetMaker::Input;
use ONO::FW::Apps::ToolBox;
use ONO::Lib::PDF::Draw;
use ONO::Lib::PDF::ToolBox;
use ONO::Lib::PDF::Elements::Abacus;
use ONO::FW::Apps::Core;
use ONO::FW::Apps::Core::Graphics;
use ONO::Lib::Parser;
use ONO::FW::Apps::PDF;
use ONO::IO;
sub learn {
my (
$self,
$option,
$vars_ref,
$HTTP,
$BASE,
) = @_;
################################################################
# INIT - BEGIN
################################################################
my (
$db,
$community,
$action_url,
$form,
$format,
$canvas,
$pdfkey,
$sec,$min,$hour,
$mday,$mon,$year,
$wday,$yday,$timestamp,
$lang,
$BLK_ref,
$vars_ref,
) = ONO::FW::Apps::Core->init($vars_ref);
my %vars = %$vars_ref;
my %BLK = %$BLK_ref;
my $app = "math_abacus";
ONO::FW::Apps::Core->now("",$app,$vars{'app_lang'});
my ($num_comma,$num_delimiter) = ONO::FW::Apps::Core->local_comma_delimiter(ONO::FW::Apps::Core->detect_local($vars{'app_lang'}),$vars_ref);
my $WEB;
$WEB .= ONO::FW::Apps::Core->output_paper_save($pdfkey,$BLK_ref,\%vars,$HTTP,$BASE,"$year$mon$mday");
$vars{'app_input_op_mul'} = 0;
$vars{'app_input_op_div'} = 0;
if (ONO::FW::Apps::Core->running(\%vars,$db)) {
$WEB .= ONO::FW::Apps::Core->blockbackbutton($BASE,$vars_ref);
(
$vars{'app_input_range_from'},
$vars{'app_input_range_to'},
) = ONO::FW::Apps::Core->range_check(
50,
100,
$vars{'app_input_range_from'},
$vars{'app_input_range_to'},
);
#############################################################
# WORKSHEET MAKER
#############################################################
if ($vars{'output_worksheet_maker'}) {
$vars_ref = ONO::FW::Edu::Apps::Modules::WorksheetMaker::Input->vars(\%vars);
%vars = %$vars_ref;
}
#############################################################
# ONLINE TRAINING
#############################################################
if ($vars{'output_web'} || $vars{'output_paper'}) {
my $question_number = ONO::FW::Apps::Core->question_number($vars{'output_web_question_number'});
my (
$op_symbol_opts,$focus_on,
$page,$pages,%cache,
$whilecounter,$stats_switches,
$PDF_OPTS,
$stat_todo,$stat_todo_total,
%used,
);
my $questions_per_page = 1;
if ($vars{'output_paper'}) {
$PDF_OPTS = ONO::FW::Apps::Core->headers_options($BLK_ref,$vars_ref);
ONO::FW::Apps::PDF->new("$BASE/pdf/pdf-$pdfkey.pdf","",$format);
$vars{'app_input_multiple_questions_per_page'}++;
$questions_per_page = 12;
$op_symbol_opts = "p";
}
foreach my $copy (ONO::FW::Apps::Core->unique_copies($vars{'app_input_print_options_unique_copies'})) {
my (@op,@op_symbol,@num1,@num2,@res);
my ($pdf_x,$pdf_y) = (0,0);
my @corr_cache;
if ($vars{'output_paper'}) {
if ($copy > 1) {
ONO::FW::Apps::PDF->page("",$format);
}
ONO::FW::Apps::Core->headers(\%vars,$format);
ONO::FW::Apps::PDF->title($vars{'app_input_print_options_title'},$PDF_OPTS,$vars{'app_input_print_options_code'},$format);
ONO::FW::Apps::Core->unique_copies_info($canvas,$copy,$vars_ref);
ONO::FW::Apps::Core::Graphics->pdf_draw_item_numbers($canvas,-2,0,1,4,"HV",$vars_ref);
# ONO::Lib::PDF::ToolBox->canvas_test($canvas);
}
if (ONO::FW::Apps::Core->question_progress_done($vars{'app_input_number_of_questions'},$question_number) || $vars{'output_web_finish'}) {
$vars{'output_progress_done'}++;
$WEB .= ONO::FW::Apps::Core->question_progress_done_msg($app,$db,$community,$form,$action_url,$vars{'app_input_number_of_questions'},$vars{'output_web_mistakes'},$lang,$BLK_ref,$vars_ref);
} else {
if ($vars{'output_web'}) {
$WEB .= qq~<$form>~;
$WEB .= ONO::FW::Apps::Core->timer($vars{'output_web'},$vars{'output_web_timer_start'});
$op_symbol_opts = "c";
$WEB .= qq~<div class="w100 abs hide" style="top:0px;height:42px;background-color:#663333"></div>
<div class="w100 abs hide" style="top:380px;height:100px;background-color:#663333"></div>
<div class="inline abs" style="top:400px;left:10px">
~;
$WEB .= ONO::FW::Apps::Core->stats("",$BLK_ref,"ctmW$stats_switches");
$WEB .= qq~</div>~;
$WEB .= ONO::FW::Apps::Core->question_progress($vars{'app_input_number_of_questions'},$question_number,"","");
}
for (my $i = 0; $i < $questions_per_page; $i++) {
my $mode = &mode("",$vars{'app_input_options_draw'},$vars{'app_input_options_write'});
if ($vars{'app_input_op_add'} || $vars{'app_input_op_sub'}) {
if (!$op[$i]) {
$op[$i] = ONO::FW::Apps::Core->random_operation(ONO::FW::Apps::Core->get_operations(\%vars));
}
$op_symbol[$i] = ONO::FW::Apps::Core->operation_symbol($op[$i],$op_symbol_opts);
if ($op[$i] eq "add") {
($num1[$i],$num2[$i],$res[$i],$cache{'num1'},$cache{'num2'}) = ONO::FW::Apps::Core->generate_add($i,$num1[$i],$num2[$i],$op[$i],$res[$i],$cache{'num1'},$cache{'num2'},\%vars);
if ($used{"num1_$num1[$i]"} || $used{"num2_$num2[$i]"}) {
($num1[$i],$num2[$i],$res[$i],$cache{'num1'},$cache{'num2'}) = ONO::FW::Apps::Core->generate_add($i,$num1[$i],$num2[$i],$op[$i],$res[$i],$cache{'num1'},$cache{'num2'},\%vars);
}
$used{"num1_$num1[$i]"}++;
$used{"num2_$num2[$i]"}++;
}
if ($op[$i] eq "sub") {
($num1[$i],$num2[$i],$res[$i],$cache{'num1'},$cache{'num2'}) = ONO::FW::Apps::Core->generate_sub($i,$num1[$i],$num2[$i],$op[$i],$res[$i],$cache{'num1'},$cache{'num2'},\%vars);
if ($used{"num1_$num1[$i]"} || $used{"num2_$num2[$i]"}) {
($num1[$i],$num2[$i],$res[$i],$cache{'num1'},$cache{'num2'}) = ONO::FW::Apps::Core->generate_sub($i,$num1[$i],$num2[$i],$op[$i],$res[$i],$cache{'num1'},$cache{'num2'},\%vars);
}
$used{"num1_$num1[$i]"}++;
$used{"num2_$num2[$i]"}++;
}
} else {
if ($vars{'output_web_cache_num1_0'}) {
$num1[$i] = $vars{'output_web_cache_num1_0'};
} else {
$num1[$i] = ONO::FW::Apps::Core->random_number($vars{'app_input_range_from'},$vars{'app_input_range_to'},0,100,$vars_ref);
if ($used{"num1_$num1[$i]"}) {
$num1[$i] = ONO::FW::Apps::Core->random_number($vars{'app_input_range_from'},$vars{'app_input_range_to'},0,100,$vars_ref);
$used{"num1_$num1[$i]"}++;
}
}
}
# output paper
if ($vars{'output_paper'}) {
$corr_cache[$i] = "$mode\^$op[$i]\^$op_symbol[$i]\^$num1[$i]\^$num2[$i]\^$res[$i]\^$pdf_x\^$pdf_y\^";
ONO::Lib::PDF::Elements::Abacus->abacus($canvas,$pdf_x+5,$pdf_y+3,$mode,$op[$i],$num1[$i],$num2[$i]);
if ($op[$i] =~ /(add|sub)/) {
ONO::Lib::PDF::Draw->line($canvas,$pdf_x+7,$pdf_y+43,$pdf_x+18,$pdf_y+43);
ONO::Lib::PDF::Draw->line($canvas,$pdf_x+22,$pdf_y+43,$pdf_x+33,$pdf_y+43);
ONO::Lib::PDF::Draw->line($canvas,$pdf_x+37,$pdf_y+43,$pdf_x+48,$pdf_y+43);
ONO::Lib::PDF::Draw->text_math_symbol($canvas,$pdf_x+20,$pdf_y+41,2,$op_symbol[$i]);
ONO::Lib::PDF::Draw->text_math_symbol($canvas,$pdf_x+35,$pdf_y+41,2,"=");
if ($mode eq "draw") {
ONO::Lib::PDF::Draw->text($canvas,$pdf_x+12.5,$pdf_y+42,$num1[$i],"c");
ONO::Lib::PDF::Draw->text($canvas,$pdf_x+27.5,$pdf_y+42,$num2[$i],"c");
}
} else {
ONO::Lib::PDF::Draw->rect($canvas,$pdf_x+20,$pdf_y+37,$pdf_x+35,$pdf_y+44,1,"0:22:22:22","0:244:244:244",2);
if ($mode eq "draw") {
ONO::Lib::PDF::Draw->text($canvas,$pdf_x+27.5,$pdf_y+42,$num1[$i],"c");
}
}
$pdf_x = $pdf_x + 60;
if ($pdf_x > 150) {
$pdf_x = 0;
$pdf_y = $pdf_y + 47.5;
}
}
if ($vars{'output_web'}) {
$stat_todo++;
$vars{"output_web_answer_$i"} =~ s~[^0-9]~~gi;
if ($vars{"output_web_answer"}) {
if ($vars{"output_web_answer"} != $vars{"output_web_cache_num1_0"}) {
$vars{'output_web_mistakes'}++;
$vars{'output_web_answer_status'} = 2;
$op[$i] = $vars{"output_web_cache_op_$i"};
$num1[$i] = $vars{"output_web_cache_num1_$i"};
$num2[$i] = $vars{"output_web_cache_num2_$i"};
$res[$i] = $vars{"output_web_cache_res_$i"};
} else {
$question_number++;
$vars{'output_web_answer_status'} = 1;
$vars{'output_web_answer'} = "";
}
}
if ($vars{'output_web_answer_status'} != 1) {
$WEB .= qq~<input type="hidden" name="output_web_cache_num1_0" value="$num1[0]">~;
}
$WEB .= ONO::FW::Apps::Core->multi_frame_end($vars{'output_web_finish'},$vars{'app_input_multiple_questions_per_page'});
$WEB .= ONO::FW::Apps::Core->input_vars(\%vars);
my $ROWS;
for (my $r = 0; $r < 10; $r++) {
$ROWS .= qq~ <tr style="height:32px;background-image:url('/images/abacus/bar.png')">~;
for (my $c = 0; $c < 16; $c++) {
my $IMG = qq~<img class="block24" src="/ono/osr/images/spacer/trans.gif" alt="">~;
my $color = "red";
if ($num1[0]+1 > ($r+1)*10 && $c < 10) {
if ($c > 4) {
$color = "blue";
}
$IMG = qq~<img class="block24 auto" src="/images/abacus/bullet_$color.png" alt="">~;
}
if ($num1[0]+1 > $r*10 && $num1[0] < ($r+1)*10) {
if ($c < $num1[0]-$r*10) {
if ($c > 4) {
$color = "blue";
}
$IMG = qq~<img class="block24 auto" src="/images/abacus/bullet_$color.png" alt="">~;
}
my $rest = $num1[0]-$r*10;
$rest = 10-$rest;
if ($c > 15-$rest) {
if ($c > 10) {
$color = "blue";
}
$IMG = qq~<img class="block24 auto" src="/images/abacus/bullet_$color.png" alt="">~;
}
}
if ($num1[0]-1 < $r*10 && $c > 5) {
if ($c > 10) {
$color = "blue";
}
$IMG = qq~<img class="block24 auto" src="/images/abacus/bullet_$color.png" alt="">~;
}
$ROWS .= qq~ <td class="p0"><div class="rel" style="top:4px">$IMG</div></td>~;
}
$ROWS .= qq~ </tr>~;
}
my $wood = "cc7700";
$WEB .= qq~<table class="wide_table mb10">
<tr>
<td class="p10"></td>
<td class="p10 w10 p0" style="background-color:#$wood"></td>
<td class="w80 p0"><table class="wide_table">$ROWS</table></td>
<td class="p10 w10 p0" style="background-color:#$wood"></td>
<td class="p10"></td>
</tr>
<tr>
<td></td>
<td class="p5" style="background-color:#$wood"></td>
<td class="p0"></td>
<td class="p5" style="background-color:#$wood"></td>
<td></td>
</tr>
</table>
~;
my $ANSWER;
if ($vars{'output_web_answer_status'} == 1) {
$ANSWER = qq~<td><div class="ml20 bold green">$num1[0]</div></td>~;
}
$WEB .= ONO::FW::Apps::Core->check_single(
$ANSWER,
"",
50,
2,
$BLK_ref,
\%vars,
"CnM",
);
$WEB .= qq~</form>~;
if (ONO::IO->devstation) {
$WEB .= qq~<div class="bg_paper bo center mt20">debug: $num1[0]</div>~;
}
}
}
}
if (ONO::FW::Apps::Core->print_corrections("$BASE/pdf/pdf-$pdfkey-corr.pdf","",$format,$vars_ref)) {
ONO::FW::Apps::Core->headers(\%vars,$format,"c");
ONO::FW::Apps::PDF->title($BLK{'Corrections'},$PDF_OPTS,$vars{'app_input_print_options_code'},$format);
ONO::FW::Apps::Core->unique_copies_info($canvas,$copy,$vars_ref);
ONO::FW::Apps::Core::Graphics->pdf_draw_item_numbers($canvas,-2,0,1,4,"CHV",$vars_ref);
# ONO::Lib::PDF::ToolBox->canvas_test($canvas);
for (my $c = 0; $c < $questions_per_page; $c++) {
my ($mode,$op,$op_symbol,$num1,$num2,$res,$pdf_x,$pdf_y) = split(/\^/,$corr_cache[$c]);
ONO::Lib::PDF::Elements::Abacus->abacus($canvas,$pdf_x+5,$pdf_y+3,"write",$op,$num1,$num2,"C");
if ($op =~ /(add|sub)/) {
my $res = $num1 + $num2;
if ($op eq "sub") {
$res = $num1 - $num2;
}
ONO::Lib::PDF::Draw->line($canvas,$pdf_x+7,$pdf_y+43,$pdf_x+18,$pdf_y+43);
ONO::Lib::PDF::Draw->line($canvas,$pdf_x+22,$pdf_y+43,$pdf_x+33,$pdf_y+43);
ONO::Lib::PDF::Draw->line($canvas,$pdf_x+37,$pdf_y+43,$pdf_x+48,$pdf_y+43);
ONO::Lib::PDF::Draw->text_math_symbol($canvas,$pdf_x+20,$pdf_y+41,2,$op_symbol);
ONO::Lib::PDF::Draw->text_math_symbol($canvas,$pdf_x+35,$pdf_y+41,2,"=");
ONO::Lib::PDF::Draw->text($canvas,$pdf_x+12.5,$pdf_y+42,$num1,"c");
ONO::Lib::PDF::Draw->text($canvas,$pdf_x+27.5,$pdf_y+42,$num2,"c");
ONO::Lib::PDF::Draw->text($canvas,$pdf_x+42.5,$pdf_y+42,$res,"c");
} else {
ONO::Lib::PDF::Draw->rect($canvas,$pdf_x+20,$pdf_y+37,$pdf_x+35,$pdf_y+44,1,"0:22:22:22","0:244:244:244",2);
ONO::Lib::PDF::Draw->text($canvas,$pdf_x+27.5,$pdf_y+42,$num1,"c");
}
}
}
}
if ($vars{'output_web'}) {
$WEB = ONO::FW::Apps::Core->stats_replace($WEB,$question_number-1,0,$vars{'app_input_number_of_questions'}-$question_number+1,$vars{'output_web_mistakes'});
}
if ($vars{'output_paper'}) {
ONO::FW::Apps::PDF->end;
$WEB .= ONO::FW::Apps::Core->output_paper($pdfkey,\%BLK,\%vars,$HTTP,$BASE);
}
}
if ($vars{'output_web'}) {
ONO::FW::Apps::Core->varstore($vars{'username'},$vars{'virclass'},$vars{'anonymous'},\%vars);
}
} else {
#############################################################
# EXERCISE SETUP
#############################################################
if (!$vars{'app_input_number_of_questions'}) {
$vars{'app_input_number_of_questions'} = 20;
}
$WEB .= ONO::FW::Apps::Core->infopics(
"screen:320:50:50::math_abacus_screenshot_1.jpg",
"sheet:168:180:110:15:math_abacus_sheet_1.jpg",
"sheet:168:40:140:-10:math_abacus_sheet_2.jpg",
);
if (!$vars{'app_input_options_draw'} && !$vars{'app_input_options_write'}) {
$vars{'app_input_options_write'}++;
}
my @options = (
"write:$vars{'app_input_options_write'}:$BLK{'write'}",
"draw:$vars{'app_input_options_draw'}:$BLK{'draw'}",
);
my $CONF .= ONO::FW::Apps::ToolBox->conf_input("range", $BLK_ref,\%vars,"",1,100,100);
$CONF .= ONO::FW::Apps::ToolBox->conf_input("spacer", $BLK_ref,\%vars);
if ($vars{'output_paper'}) {
$CONF .= ONO::FW::Apps::ToolBox->conf_input("ops", $BLK_ref,\%vars,"","as");
$CONF .= ONO::FW::Apps::ToolBox->conf_input("spacer", $BLK_ref,\%vars);
$CONF .= ONO::FW::Apps::ToolBox->conf_input("checks", $BLK_ref,\%vars,"",$BLK{'options'},"options",@options);
}
$WEB .= ONO::FW::Apps::Core->conf_box(
$db,
$community,
$app,
$form,
"",
$action_url,
$CONF,
$lang,
$BLK_ref,
\%vars,
"op-ncdi-CDI-lsu-N",
);
if (!$vars{'exercise'}) {
$WEB .= ONO::FW::Apps::Core->info_display(
ONO::FW::Apps::Core->info("info_online_print",$vars{'app_lang'}),
ONO::FW::Apps::Core->info("info_indiv_diff", $vars{'app_lang'}),
);
}
}
my ($status,$WEB) = ONO::Lib::Parser->parse($WEB,$vars_ref);
$WEB .= ONO::FW::Apps::Core->vardump($vars_ref);
$WEB = ONO::FW::Edu::Apps::ToolBox->apps_gate($WEB,$vars_ref);
return $WEB;
}
###################################################################
# SUBS
###################################################################
sub mode {
my $mode = "write";
if ($_[1]) {
$mode = "draw";
}
if ($_[1] && $_[2] && int(rand(100)) > 50) {
$mode = "write";
}
return $mode;
}
###################################################################
#### THAT'S IT :-D
###################################################################
1;
__END__