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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
\NeedsTeXFormat{LaTeX2e}[1995/12/01]
\ProvidesPackage{HAPArabica}[2004/05/16]
\typeout{`Arabica' style for HA-prosper}
\typeout{(c) 2005 Youssef Jabri, Oujda, Morocco}
\typeout{Package version: 0.1}
\typeout{Adapted from HAPTycja}
% Color definitions
\newrgbcolor{tjlblue}{.90 .95 .98}%{.78 .82 .85}
\newrgbcolor{tjblue}{.19 .39 .61}
\newrgbcolor{tjdblue}{.19 .44 .61}%{.09 .27 .47}
\newrgbcolor{HAP@textc}{.09 .27 .47}
\newrgbcolor{tjyellow}{1 .81 .42}
\newrgbcolor{tjlyellow}{1 .97 .84}
\newrgbcolor{HAP@framecolor}{.17 .31 .44}%{.09 .27 .47}
% Highlighting definitions
\newrgbcolor{HAP@hcolor}{.09 .27 .47} % Highlight frame color
\newrgbcolor{HAP@htcolor}{1 .97 .84} % Highlight text color
% Font definitions
\FontTitle{\usefont{T1}{phv}{b}{n}\fontsize{14.4pt}{14pt}\selectfont\tjdblue}%
{\usefont{T1}{phv}{b}{n}\fontsize{14.4pt}{14pt}\selectfont\tjdblue}
\FontText{\usefont{T1}{phv}{m}{n}\fontsize{10pt}{10pt}\selectfont\HAP@textc}%
{\usefont{T1}{phv}{m}{n}\fontsize{10pt}{10pt}\selectfont\HAP@textc}
\FontLeftFoot{\@fontTextColor\fontsize{8pt}{8pt}\selectfont\tjdblue}%
{\@fontTextColor\fontsize{8pt}{4pt}\selectfont\tjdblue}
\FontRightFoot{\@fontTextColor\fontsize{8pt}{8pt}\selectfont\tjdblue}%
{\@fontTextColor\fontsize{8pt}{4pt}\selectfont\tjdblue}
% Slide style definitions
\RequirePackage{pst-grad}
\newcommand{\TitleSlide}[1]{%
\ifHAP@portrait
\psframe[linestyle=none,fillcolor=tjlyellow,fillstyle=solid](-2,11.5)(12.5,-.9)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-2,9.1)(-1,9.1)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-1,9.1)(-1,9.4)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-1,9.4)(12.5,9.4)%
\psframe[linestyle=none,fillstyle=gradient,gradbegin=tjlyellow,gradend=tjyellow,%
gradmidpoint=1](-2,-.15)(12.5,-2.26)%
\HAP@PutLF{tl}{-0.95,-.35}%
\HAP@PutRF{tr}{8.6,-.35}%
\else%
\psframe[linestyle=none,fillcolor=tjlyellow,fillstyle=solid](-2,9)(12.5,-.6)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-2,7.6)(-1,7.6)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-1,7.6)(-1,7.9)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-1,7.9)(11.5,7.9)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(11.5,7.9)(11.5,8.2)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(11.5,8.2)(12.5,8.2)%
\psframe[linestyle=none,fillstyle=gradient,gradbegin=tjlyellow,gradend=tjyellow,% title slide bottom
gradmidpoint=1](-2,-.5)(12.5,-1.32)%
\HAP@PutLF{tl}{-1.65,-.9}%
\HAP@PutRF{tr}{11.35,-.9}%
\fi%
{#1}}%
\newcommand{\NormalSlide}[1]{%
\ifHAP@portrait%
\psframe[linestyle=none,fillcolor=tjlyellow,fillstyle=solid](-2,11.5)(12.5,-.9)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-2,9.1)(-1,9.1)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-1,9.1)(-1,9.4)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-1,9.4)(12.5,9.4)%
\psframe[linestyle=none,fillstyle=gradient,gradbegin=tjyellow,gradend=tjlyellow,%
gradmidpoint=1](8.4,11.5)(10,-2)%
\rput[lb](-2.3,9.95){%
\@ifundefined{HAP@NSNav}%
{\includegraphics[scale=.14]{flower.ps}}%
{\Acrobatmenu{\HAP@NSNav}{\includegraphics[scale=.14]{flower.ps}}}%
}%
\psframe[linestyle=none,fillstyle=gradient,gradbegin=tjlyellow,gradend=tjyellow,%
gradmidpoint=1](-2,-.15)(12.5,-5)%
\ifHAP@toc%
\rput[tr](3.7,-.8){\begin{minipage}[t]{2cm}\HAP@tsections\end{minipage}}%
\rput[tl](4.1,-.8){\begin{minipage}[t]{2cm}\HAP@tcontent\end{minipage}}%
\fi%
\HAP@PutLF{tl}{-0.95,-.35}%
\HAP@PutRF{tr}{8.6,-.35}%
\else%
\psframe[linestyle=none,fillcolor=tjlyellow,fillstyle=solid](-2,9)(9.4,-.6)% slide body
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-2,7.6)(-1,7.6)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-1,7.6)(-1,7.8)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-1,7.8)(9.3,7.8)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(9.3,7.8)(9.3,9)%11.5
\psframe[linestyle=none,fillstyle=gradient,gradbegin=tjyellow,gradend=tjlyellow,% vertical panel
gradmidpoint=1](9.3,9)(12.5,-2)% all slide height
% \psframe[linestyle=none,fillstyle=gradient,gradbegin=tjlblue,gradend=tjblue,% bottom
% gradmidpoint=1](-2,-.5)(12.5,-1.32)%
\psframe[linestyle=none,fillstyle=solid,fillcolor=tjlyellow,gradmidpoint=1](-2,-.5)(12.5,-1.32)%% bottom
\ifHAP@toc%
\rput[lt](9.475,7.25){\begin{minipage}[t]{2cm}\HAP@toc\end{minipage}}%
\fi%
\HAP@PutLF{tl}{-1.65,-.9}%
\HAP@PutRF{tr}{11.35,-.9}%
\fi%
{#1}}%
\newcommand{\SpecialSlide}[1]{%
\ifHAP@portrait%
\psframe[linestyle=none,fillcolor=tjlyellow,fillstyle=solid](-2,11.5)(12.5,-.9)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-2,9.1)(-1,9.1)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-1,9.1)(-1,9.4)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-1,9.4)(12.5,9.4)%
\psframe[linestyle=none,fillstyle=gradient,gradbegin=tjyellow,gradend=tjlyellow,gradmidpoint=1](8.4,11.5)(10,-.2)%
\psframe[linestyle=none,fillstyle=gradient,gradbegin=tjlyellow,gradend=tjyellow,gradmidpoint=1](-2,-.15)(12.5,-5)%
\ifHAP@toc%
\rput[tr](3.7,-.8){\begin{minipage}[t]{2cm}\HAP@tsections\end{minipage}}%
\rput[tl](4.1,-.8){\begin{minipage}[t]{2cm}\HAP@tcontent\end{minipage}}%
\fi%
\HAP@PutLF{tl}{-0.95,-.35}%
\HAP@PutRF{tr}{8.6,-.35}%
\else%
\psframe[linestyle=none,fillcolor=tjlyellow,fillstyle=solid](-2,9)(9.4,-.6)%
\psframe[linestyle=none,fillstyle=gradient,gradbegin=tjyellow,gradend=tjlyellow,gradmidpoint=1](9.3,9)(12.5,-2)%
\psframe[linestyle=none,fillcolor=tjlyellow,fillstyle=solid](9.2,7.91)(12.5,-2)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-2,7.6)(-1,7.6)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-1,7.6)(-1,7.9)%
\psline[linewidth=.3pt,linecolor=tjdblue]{C-C}(-1,7.9)(12.5,7.9)%
\psframe[linestyle=none,fillstyle=gradient,gradbegin=tjlyellow,gradend=tjyellow,gradmidpoint=1](-2,-.5)(12.5,-1.32)%
\HAP@PutLF{tl}{-1.65,-.9}%
\HAP@PutRF{tr}{11.35,-.9}%
\fi%
{#1}}%
\ifHAP@portrait
\newcommand{\HAPR@titleSlide}{\NewSlideStyle[9cm]{tl}{-.65,2.9}{TitleSlide}}
\newcommand{\HAPR@normalSlide}{\NewSlideStyle[8.7cm]{tl}{-.65,3.3}{NormalSlide}}
\newcommand{\HAPR@wideSlide}{\NewSlideStyle[8.7cm]{tl}{-.65,3.3}{NormalSlide}}
\newcommand{\HAPR@dualSlide}{\NewSlideStyle[4.2cm]{tl}{-.65,3.3}{NormalSlide}}
\newcommand{\slidetitle}[1]{\rput[Br](8.3,4.55){\fontTitle{#1}}}
\else
\newcommand{\HAPR@titleSlide}{\NewSlideStyle[11.7cm]{tl}{-.6,3.4}{TitleSlide}}
\newcommand{\HAPR@normalSlide}{\NewSlideStyle[9.5cm]{tl}{-.6,3.7}{NormalSlide}}
\newcommand{\HAPR@wideSlide}{\NewSlideStyle[11.7cm]{tl}{-.6,3.7}{SpecialSlide}}
\newcommand{\HAPR@dualSlide}{\NewSlideStyle[5.5cm]{tl}{-.6,3.7}{SpecialSlide}}
\newcommand{\slidetitle}[1]{\rput[Br](9.2,4.55){\fontTitle{#1}}}
\fi
% List item definitions
\RequirePackage{pifont}
\myitem{1}{\raisebox{1pt}{\fontsize{7pt}{7pt}\selectfont\ding{110}}}
\myitem{2}{\raisebox{1pt}{\fontsize{7pt}{7pt}\selectfont\ding{117}}}
\myitem{3}{\raisebox{1pt}{\fontsize{5pt}{5pt}\selectfont\ding{110}}}
% Style of table of contents entries
\newcommand{\HAP@tsectionm}{%
\ifHAP@portrait\else
\psline[linecolor=tjdblue,linewidth=.25pt](-.04,-.05)(2,-.05)%
\fi
}
\newcommand{\HAP@tsectiononly}[1]{\parbox{2cm}{\raggedleft#1\,}}%
\endinput
|
