alterqcm (23may19)

git-svn-id: svn://tug.org/texlive/trunk@51205 c570f23f-e606-0410-a88d-b1316a301751

4 files changed, 117 insertions, 19 deletions

diff --git a/Master/texmf-dist/doc/latex/alterqcm/README b/Master/texmf-dist/doc/latex/alterqcm/README
index 30b454aaabe..68d68cee933 100644
--- a/Master/texmf-dist/doc/latex/alterqcm/README
+++ b/Master/texmf-dist/doc/latex/alterqcm/README
@@ -1,4 +1,4 @@
-Contents of the README file   (v 3.7 c)
+Contents of the README file   (v 4.0)
 
 A. Purpose
 
@@ -48,11 +48,16 @@ run 'MiKTeX Options'. In the 'File name database' section, click on
 
 F. History 
 
+-- 4.0 Added full linguistic support  
+
 -- 3.7 Correction of bug 
        add the macro \AQpoints
 
-G. The author of the 'alterqcm.sty' package is Alain Matthes.
+G. The original author of the 'alterqcm.sty' package is Alain Matthes. This
+    version was developed by Apostolos Syropoulos and Anastasios Dimou.
 --
 Alain Matthes, <al.ma@mac.com>
-April, 20th, 2009 
+Apostolos Syropoulos, <asyropoulos@yahoo.com>
+Anastastios Dimou, <ansdimou@tassosdimou.gr>
+May, 23rd, 2019 
 
diff --git a/Master/texmf-dist/doc/latex/alterqcm/examples/latex/example_3.tex b/Master/texmf-dist/doc/latex/alterqcm/examples/latex/example_3.tex
new file mode 100644
index 00000000000..79126645c3c
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/alterqcm/examples/latex/example_3.tex
@@ -0,0 +1,64 @@
+\documentclass[11pt]{article}
+\usepackage{xltxtra}
+\usepackage{xgreek}
+\usepackage{amsmath,amssymb,stmaryrd,calc}%}% pour geqslant qui existe ds fourier
+\usepackage{xkeyval}
+\usepackage{multirow,longtable}
+\usepackage[%
+      a4paper,%
+      textwidth=16cm,
+      top=2cm,%
+      bottom=2cm,%
+      headheight=25pt,%
+      headsep=12pt,%
+      footskip=25pt]{geometry}%
+\usepackage[greek]{alterqcm}
+\usepackage{tikz}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\parindent=0pt
+\begin{document}
+\setmainfont[Mapping=tex-text,Ligatures=Common]{Minion Pro}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%\nogreekalph 
+\begin{minipage}[t][][b]{.45\linewidth}
+	Έστω $f$ ορισμένη και παραγωγίσιμη στο διάστημα $\big[-3,\,+\infty\big)$,
+	αύξουσα στα διαστήματα $\big[-3,\,-1\big]$ et $\big[2,\,+\infty\big)$
+	και φθίνουσα στο διάστημα $\big[-1,\,2\big]$.
+Έστω $f^{\prime}$ η παράγωγός της στο διάστημα $[-3,\,+\infty)$.
+	Η γραφική παράσταση $\Gamma$ της $f$ είναι σχεδιασμένη στο διπλανό σχήμα ως προς ένα ορθογώνιο σύστημα αξόνων $\big(O,~\vec{\imath},~\vec{\jmath}\big)$.
+	Διέρχεται από το σημείο A$(-3,\,0)$ και δέχεται ως ασύμπτωτη της ευθεία
+	$(\delta)$ με εξίσωση $y = 2x -5$.
+\end{minipage}
+\begin{minipage}[t][][b]{.45\linewidth}
+	\null
+	\begin{tikzpicture}[scale=0.5,>=latex]
+	\draw[very thin,color=gray] (-3,-2) grid (10,8);
+	\draw[->] (-3,0) -- (10,0) node[above left] {\small $x$};
+	\foreach \x in {-3,-2,-1,1,2,...,9}
+	\draw[shift={(\x,0)}] (0pt,1pt) -- (0pt,-1pt)node[below] { $\x$};
+	\draw[->] (0,-2) -- (0,8) node[below right] {\small $y$};
+	\foreach \y/\ytext in {-2,-1,1,2,...,8}
+	\draw[shift={(0,\y)}] (1pt,0pt) -- (-1pt,0pt) node[left] { $\y$};
+	\draw (-0.5,-2) -- (10,8);
+	\node[above right] at (-3,0) {\textbf{A}};
+	\node[above right] at (0,0) {\textbf{O}};
+	\node[below right] at (4,3) {$\mathbf{\Delta}$};
+	\node[above right] at (4,5) {$\mathbf{\Gamma}$};
+	\draw plot[smooth] coordinates{%
+		(-3,0)(-2,4.5)(-1,6.5)(0,5.5)(1,3.5)(2,3)(3,3.4)(4,4.5)(5,6)(6,7.75)};
+	\end{tikzpicture}
+\end{minipage}
+
+\vspace{20pt}
+\begin{alterqcm}[VF,pre=true,lq=125mm]
+	\AQquestion{Για κάθε $x \in (-\infty,\,2],\;f^{\prime}(x) \geqslant 0$.}
+	\AQquestion{Η συνάρτηση $F$ παρουσιάζει μέγιστο στο $2$}
+	\AQquestion{$\displaystyle\int_{0}^2 f’(x)\:\text{d}x = - 2$}
+\end{alterqcm}
+%\greekalph    %%% <----------------------------------------------
+
+\end{document}
diff --git a/Master/texmf-dist/doc/latex/alterqcm/examples/pdf/example_3.pdf b/Master/texmf-dist/doc/latex/alterqcm/examples/pdf/example_3.pdf
new file mode 100644
index 00000000000..17ca7f457f1
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/alterqcm/examples/pdf/example_3.pdf
diff --git a/Master/texmf-dist/tex/latex/alterqcm/alterqcm.sty b/Master/texmf-dist/tex/latex/alterqcm/alterqcm.sty
index b1f7a22dbcd..39b15b5e919 100644
--- a/Master/texmf-dist/tex/latex/alterqcm/alterqcm.sty
+++ b/Master/texmf-dist/tex/latex/alterqcm/alterqcm.sty
@@ -1,5 +1,5 @@
+% Copyright (C) 2019 Alain Matthes, Apostolos Syropoulos, and Anastasios Dimou
 % Copyright (C) 2009 Alain Matthes  
-%
 % This file may be distributed and/or modified
 %
 % 1. under the LaTeX Project Public License , either version 1.3
@@ -26,26 +26,32 @@
 
 %<–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––>
 \NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{alterqcm}
-  [2011/06/01 v3.6 qcm creation]
+\ProvidesPackage{alterqcm}[2019/05/23 v4.0]
+  \newcount\locall@ng% to set language specific strings:
+%                    % 0 stands for French, 1 for English, 2 for German, and 3 for Greek 
+  \locall@ng=0%
   \DeclareOption{french}{%
-  \def\aqlanguage{french}%
   \def\aqlabelforquest{Questions}%
   \def\aqlabelforrep{R\'eponses}%
   \def\aqfoottext{suite sur la page suivante\ldots}}%
   \DeclareOption{english}{%
-  \def\aqlanguage{english}
+  \locall@ng=1%
   \def\aqlabelforquest{Questions}
   \def\aqlabelforrep{Answers}
   \def\aqfoottext{Continued on the next page\ldots}}%
   \DeclareOption{german}{%
-  \def\aqlanguage{german}%
+  \locall@ng=2%
   \def\aqlabelforquest{Fragen}%
   \def\aqlabelforrep{Antworten}%
   \def\aqfoottext{Fortsetzung nächste Seite\ldots}}%
+  \DeclareOption{greek}{%
+  \locall@ng=3%
+  \def\aqlabelforquest{Ερωτήσεις}
+  \def\aqlabelforrep{Απαντήσεις}
+  \def\aqfoottext{Συνεχίζεται στην επόμενη σελίδα\ldots}}%
 \ExecuteOptions{french}
 \ProcessOptions\relax
-\RequirePackage{xkeyval}[2005/11/25]
+%\RequirePackage{xkeyval}[2005/11/25] % Not required anymore
 \RequirePackage{calc}
 \RequirePackage{ifthen}
 \RequirePackage{array}
@@ -135,11 +141,7 @@
 %                         Début Code QCM
 %<–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––>
 
-\define@choicekey*[AQ]{global}{language}[\val\nr]{french,
-                                                  english,
-                                                  german}{%
-\edef\AQ@global@language{\nr}
-\ifcase\nr\relax
+\ifcase\locall@ng
 \def\cmdAQ@global@tone{Questions}
 \def\cmdAQ@global@ttwo{R\'eponses}
 \def\aqfoottext{suite sur la page suivante\ldots}   
@@ -151,8 +153,11 @@
 \def\cmdAQ@global@tone{Fragen}
 \def\cmdAQ@global@ttwo{Antworten}
 \def\aqfoottext{Fortsetzung nächste Seite\ldots} 
+\or
+\def\cmdAQ@global@tone{Ερωτήσεις}
+\def\cmdAQ@global@ttwo{Απαντήσεις}
+\def\aqfoottext{Συνεχίζεται στην επόμενη σελίδα\ldots} 
 \fi%
-}
 \define@cmdkey  [AQ] {global} {lq}{}
 \define@cmdkey  [AQ] {global} {pq}{}
 \define@cmdkey  [AQ] {global} {points}{}
@@ -206,13 +211,26 @@
                                alea        = false}{}
 \define@cmdkey[AQ]{local}{pq}{}
 \define@cmdkey[AQ]{local}{br}{}
-\presetkeys[AQ]{local}{br=1,pq= \cmdAQ@global@pq}{}%
+\presetkeys[AQ]{local}{br=5,pq= \cmdAQ@global@pq}{}%
+%
+\ifcase\locall@ng
 \newcommand{\aq@pre}{Pour chacune des questions ci-dessous, une seule des r\'eponses propos\'ees est exacte. Vous devez  cocher la r\'eponse exacte sans justification.
 Une bonne r\'eponse rapporte \textbf{\cmdAQ@global@bonus\ point}. Une mauvaise r\'eponse enl\`eve \textbf{\cmdAQ@global@malus\ point}.  L'absence de r\'eponse ne rapporte ni n'enl\`eve aucun point. Si le total des points est n\'egatif, la note globale attribu\'ee \`a l'exercice est \textbf{0}.}%
-
+%
 \newcommand{\aq@preVF}{Pour chacune des affirmations ci-dessous, cocher la case V (l'affirmation est vraie) ou la case F (l'affirmation est fausse) sur l'ANNEXE, \`a rendre avec la copie. Les r\'eponses ne seront pas justifi\'ees.
 Une bonne r\'eponse rapporte \textbf{\cmdAQ@global@bonus\ point}. Une mauvaise r\'eponse enl\`eve \textbf{\cmdAQ@global@malus\ point}.  L'absence de r\'eponse ne rapporte ni n'enl\`eve aucun point. Si le total des points est n\'egatif, la note globale attribu\'ee \`a l'exercice est \textbf{0}.}%
-
+\or
+\newcommand{\aq@pre}{For each of the questions below, only one of the proposed answers is true. You must choose the right answer without justification.}%
+\newcommand{\aq@preVF}{For each of the statements below, check the \textbf{T} box (the statement is true) or the \textbf{F} box (the statement is false).}%
+\or
+\newcommand{\aq@pre}{Für jede der unterstehenden Fragen ist nur eine der vorgeschlagenen Antworten richtig. 
+Kreuzen Sie die richtige Antwort ohne Begründung an.}%
+\newcommand{\aq@preVF}{Für jede der unterstehenden Aussagen kreuzen Sie  R (für die richtige Aussage) und F (für die falsche Aussage) an.}%
+\or
+\newcommand{\aq@pre}{Από τις επόμενες προτάσεις επιλέξετε αυτήν, που θεωρείτε σωστή.}%
+\newcommand{\aq@preVF}{Να επιλέξετε \textbf{Σ}(ωστό), αν θεωρείτε την πρόταση που δίνεται παρακάτω σωστή, ή \textbf{Λ}(άθος) αν την θεωρείτε λανθασμένη.}%
+\fi
+%
 \newcommand*{\AQms}{\aq@ms}%
 \def\aq@ms(#1,#2){\vrule height #1pt depth #2pt width 0pt}
 \newcommand*{\altersquare}{\vbox{\hrule\hbox to 6pt{\vrule height 5.2pt \hfil\vrule}\hrule}}%
@@ -404,8 +422,19 @@ Une bonne r\'eponse rapporte \textbf{\cmdAQ@global@bonus\ point}. Une mauvaise r
 \setkeys[AQ]{local}{#1}
 \stepcounter{AQ@numquestion}% 
 \setcounter{AQ@numprop}{0}% v0.93 
+\ifcase\locall@ng
 \protected@xdef\aq@arga{\textbf{V}}
 \protected@xdef\aq@argb{\textbf{F}}
+\or
+\protected@xdef\aq@arga{\textbf{T}}
+\protected@xdef\aq@argb{\textbf{F}}
+\or
+\protected@xdef\aq@arga{\textbf{R}}
+\protected@xdef\aq@argb{\textbf{F}}
+\or
+\protected@xdef\aq@arga{\textbf{Σ}}
+\protected@xdef\aq@argb{\textbf{Λ}}
+\fi
 \setcounter{aq@numb}{2}%
 \aq@adjust{#2}%
 \multirow{3}{\cmdAQ@global@lq}[\cmdAQ@local@pq]{%