summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/profcollege/latex/PfCKakurasu.tex
blob: 944d295e8fe1d21dcdce1589e559fc904bb2690e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
%%%
% Kakurasu
%%%
\setKVdefault[Kakurasu]{Solution=false,Longueur=6,Largeur=6,Echelle=8mm,Graines=false,Trace=false}
\defKV[Kakurasu]{Graine=\setKV[Kakurasu]{Graines}}
\defKV[Kakurasu]{Traces=\setKV[Kakurasu]{Trace}}

\NewDocumentCommand\Kakurasu{o}{%
  \useKVdefault[Kakurasu]%
  \setKVdefault[Kakurasu]{#1}%
  \BuildKakurasu%
}

\NewDocumentCommand\BuildKakurasu{}{%
  \ifluatex
  \mplibforcehmode
  \begin{mplibcode}
    boolean Graines,Solution,Trace;
    Graines=\useKV[Kakurasu]{Graines};
    Solution=\useKV[Kakurasu]{Solution};
    Trace=\useKV[Kakurasu]{Trace};
    
    if Graines:
    randomseed:=\useKV[Kakurasu]{Graine};
    fi;
    
    numeric Longueur,Largeur;
    Longueur=\useKV[Kakurasu]{Longueur};
    Largeur=\useKV[Kakurasu]{Largeur};
    
    u:=\useKV[Kakurasu]{Echelle};
    
    pair A[][];%centre des carrés.
    boolean Allume[][];
    numeric NombreLigne[][],NombreColonne[][];
    
    for k=-1 upto Largeur+1:
    for l=-1 upto Longueur+1:
    Allume[k][l]=false;
    endfor;
    endfor;
    
    for k=0 upto Largeur-1:
    for l=0 upto Longueur-1:
    A[k][l]=u*(l,-k);
    trace (unitsquare scaled u) shifted A[k][l];
    endfor;
    endfor;

    for k=0 upto Largeur-1:
    for l=0 upto Longueur-1:
    if Allume[k][l]:
    else:
    Allume[k][l]:=true;
    m:=uniformdeviate(1);
    if m<0.5:
    % on ne met pas de case noire
    else:
    % on met une case noire
    NombreLigne[k][l]=l+1;
    NombreColonne[k][l]=k+1;
    if Solution:
    fill (unitsquare scaled 0.9u) shifted (A[k][l]+0.05*u*(1,1));
    fi;
    fi;
    fi;
    endfor;
    endfor;
    
    % on compte le nombre de chiffres dans les lignes et on les ajoute
    for k=0 upto Largeur-1:
    Somme:=0;
    for l=0 upto Longueur-1:
    if unknown NombreLigne[k][l]:
    else:
    Somme:=Somme+NombreLigne[k][l];
    fi;
    endfor;
    label(TEX(decimal(Somme)),u*(-0.5,-k+0.5));
    endfor;

    % on compte le nombre de chiffres dans les colonnes et on les ajoute
    for k=0 upto Longueur-1:
    Somme:=0;
    for l=0 upto Largeur-1:
    if unknown NombreColonne[l][k]:
    else:
    Somme:=Somme+NombreColonne[l][k];
    fi;
    endfor;
    label(TEX(decimal(Somme)),u*(k+0.5,1.5));
    endfor;

    % On affiche les valeurs des cases noires.
    drawoptions(withcolor 0.5white);
    for k=0 upto Longueur-1:
    label(TEX("\footnotesize"&decimal(k+1)),u*(k+0.5,-Largeur+0.5));
    endfor;
    for k=0 upto Largeur-1:
    label(TEX("\footnotesize"&decimal(k+1)),u*(Longueur+0.5,-k+0.5));
    endfor;
    drawoptions();
    if Trace:
    \useKV[Kakurasu]{Traces};
    fi;
  \end{mplibcode}
 \fi
}%