%% %% This is file `luasseq.sty', %% generated with the docstrip utility. %% %% The original source files were: %% %% luasseq.dtx (with options: `package') %% %% IMPORTANT NOTICE: %% %% For the copyright see the source file. %% %% Any modified versions of this file must be renamed %% with new filenames distinct from luasseq.sty. %% %% For distribution of the original source see the terms %% for copying and modification in the file luasseq.dtx. %% %% This generated file may be distributed as long as the %% original source files, as listed above, are part of the %% same distribution. (The sources need not necessarily be %% in the same archive or directory.) \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{luasseq}[2010/11/06 ver 2.1] \RequirePackage{ifthen,calc,pifont} \RequirePackage{pgf}[2006/01/01] \RequirePackage{xkeyval} \usepgflibrary{snakes} \newboolean{debug} \setboolean{debug}{false} \DeclareOption{ps}{\errmessage{sseq: ps/nops is deprecated}} \DeclareOption{nops}{\errmessage{sseq: ps/nops is deprecated}} \DeclareOption{dvips}{\errmessage{sseq: deprecated option dvips ignored}} \DeclareOption{xdvi}{\errmessage{sseq: deprecated option xdvi ignored}} \DeclareOption{color}{\errmessage{sseq: deprecated option color ignored}} \DeclareOption{nocolor}{\errmessage{sseq: deprecated option nocolor ignored}} \DeclareOption{debug}{\setboolean{debug}{true}} \ProcessOptions \directlua0{dofile(kpse.find_file("luasseq.lua","lua"))} \definecolor{sseqgr}{gray}{0.65} \definecolor{sslightgr}{gray}{0.9} \definecolor{ssred}{rgb}{1,0,0} \definecolor{ssblack}{rgb}{0,0,0} \newcommand{\ssconncolor}{ssblack} \newcommand{\sslabelcolor}{ssblack} \newcommand{\ssplacecolor}{ssblack} %% ^^A Initialization \newcount\sseqxstart \sseqxstart=0 \newcount\sseqystart \sseqystart=0 \newdimen\sseq@dimen % ^^A To convert dimensions to scaled points (in TeX) \newbox\sseqbox % ^^A To compute the size of dropped objects (in TeX) \long\def\for #1=#2\to#3\do#4\od{#1=#2 \sseq@for #1\to #3\do #4\od} \long\def\sseq@for #1\to #2\do #3\od{% \ifnum #1>#2 \else #3\relax \advance #1 by 1 \def\tempcmd{\sseq@for #1\to #2\do #3\od}% \expandafter\tempcmd \fi } \def\@eval#1#2{% \edef\tempcmd{\noexpand#1#2}% \tempcmd } \def\ss@placespecial#1#2#3#4#5{ \directlua0{sseq_drop_object(#1,#2,[[#3]],[[#4]],[[#5]],[[\ssplacecolor]])}} \newcommand{\ssplace}[3]{ \ss@placespecial{#1}{#2}{rectangle}{discard}{#3} } \newcommand{\ssplaceboxed}[3]{ \ss@placespecial{#1}{#2}{rectangle}{stroke}{\ensuremath{#3}} } \newcommand{\ssplacecircled}[3]{ \ss@placespecial{#1}{#2}{circle}{stroke}{\ensuremath{#3}} } \newcommand{\ssmoveto}[2]{\directlua0{sseq_moveto(#1,#2)}} \newcommand{\ssmove}[2]{\directlua0{sseq_move(#1,#2)}} \define@key{sseqdrop}{circled}[true]{\newif\ifKV@sseqdrop@circled\csname KV@sseqdrop@circled#1\endcsname} \define@key{sseqdrop}{boxed}[true]{\newif\ifKV@sseqdrop@boxed\csname KV@sseqdrop@boxed#1\endcsname} \define@key{sseqdrop}{color}{\def\sseq@color{#1}} \define@key{sseqdrop}{name}{\def\sseq@name{#1}} \def\ssdrop{\@ifnextchar[\sseq@drop{\sseq@drop[]}} \def\sseq@drop[#1]#2{ \presetkeys{sseqdrop}{circled=false,boxed=false,color=\ssplacecolor,name=\relax}{} \setkeys{sseqdrop}{#1} \ifKV@sseqdrop@circled \directlua0{sseq_drop_object_here("circle","stroke",[[#2]],"\sseq@color")} \else \ifKV@sseqdrop@boxed \directlua0{sseq_drop_object_here("rectangle","stroke",[[#2]],"\sseq@color")} \else \directlua0{sseq_drop_object_here("rectangle","discard",[[#2]],"\sseq@color")} \fi \fi \def\temp{\relax} \ifx\sseq@name\temp \else \@eval\ssname{{\sseq@name}} \fi } \newcommand{\ssdropbull}{\ssdrop{\bullet}} \newcommand{\ssdropboxed}[1]{\ssdrop[boxed]{#1}} \newcommand{\ssdropcircled}[1]{\ssdrop[circled]{#1}} \def\ssname#1{\directlua0{sseq_name("#1")}} \newcommand{\ssgoto}[1]{\directlua0{sseq_goto("#1")}} \newcommand{\ssprefix}[1]{\directlua0{sseq_prefix("#1")}} \newcommand{\ssresetprefix}{\directlua0{sseq_reset_prefix()}} \newcommand{\ssabsgoto}[1]{\directlua0{sseq_abs_goto("#1")}} \define@key{sseqlabel}{color}{\def\sseq@color{#1}} \define@key{sseqlabel}{pos}{\def\sseq@position{#1}} \define@key{sseqlabel}{U}[]{\def\sseq@position{U}} \define@key{sseqlabel}{LU}[]{\def\sseq@position{LU}} \define@key{sseqlabel}{L}[]{\def\sseq@position{L}} \define@key{sseqlabel}{LD}[]{\def\sseq@position{LD}} \define@key{sseqlabel}{D}[]{\def\sseq@position{D}} \define@key{sseqlabel}{RD}[]{\def\sseq@position{RD}} \define@key{sseqlabel}{R}[]{\def\sseq@position{R}} \define@key{sseqlabel}{RU}[]{\def\sseq@position{RU}} \def\ssdroplabel{\@ifnextchar[\sseq@droplabel{\sseq@droplabel[]}} \def\sseq@droplabel[#1]#2{ \def\sseq@position{L} \presetkeys{sseqlabel}{color=\ssplacecolor}{} \setkeys{sseqlabel}{#1} \directlua0{sseq_drop_label("\sseq@position","\sseq@color",[[#2]])} } \define@key{sseqdropext}{circled}[true]{\newif\ifKV@sseqdrop@circled\csname KV@sseqdrop@circled#1\endcsname} \define@key{sseqdropext}{boxed}[true]{\newif\ifKV@sseqdrop@boxed\csname KV@sseqdrop@boxed#1\endcsname} \define@key{sseqdropext}{color}{\def\ssplacecolor{#1}} \define@key{sseqdropext}{name}{\def\sseq@name{#1}} \def\ssdropextension{\@ifnextchar[\sseq@dropextension{\sseq@dropextension[]}} \def\sseq@dropextension[#1]{ \edef\sseq@savecolor{\ssplacecolor} \def\sseq@name{\relax} \presetkeys{sseqdropext}{circled=false,boxed=false}{} \setkeys{sseqdrop}{#1} \ifKV@sseqdrop@boxed \directlua0{sseq_drop_extension("rectangle","stroke","\sseq@color")} \else \directlua0{sseq_drop_extension("circle","stroke","\sseq@color")} \fi \def\temp{\relax} \ifx\sseq@name\temp \else \@eval\ssname{{\sseq@name}} \fi } \define@key{sseqstroke}{color}{\def\sseq@color{#1}} \define@key{sseqstroke}{curve}{\def\sseq@curve{#1}} \define@key{sseqstroke}{dashed}[{{2pt}{2pt}}]{\def\sseq@dashing{#1}} \define@key{sseqstroke}{dotted}[{{.5pt}{2pt}}]{\def\sseq@dashing{#1}} \define@key{sseqstroke}{arrowfrom}[\sseq@defaultarrowstyle]{\def\sseq@arrowfrom{\ssinversearrowhead[#1]}} \define@key{sseqstroke}{arrowto}[\sseq@defaultarrowstyle]{\def\sseq@arrowto{\ssarrowhead[#1]}} \define@key{sseqstroke}{void}[true]{\newif\ifKV@sseqstroke@void\csname KV@sseqstroke@void#1\endcsname} \def\ssstroke{\@ifnextchar[\sseq@stroke{\sseq@stroke[]}} \def\sseq@stroke[#1]{ \def\sseq@dashing{} \def\sseq@curve{} \def\sseq@arrowfrom{} \def\sseq@arrowto{} \presetkeys{sseqstroke}{void=false,color=\ssconncolor}{} \setkeys{sseqstroke}{#1} \ifKV@sseqstroke@void % ^^A a void line \directlua0{sseq_late_connection("\sseq@dashing","\sseq@curve","\sseq@color",false,true)} \else \directlua0{sseq_late_connection("\sseq@dashing","\sseq@curve","\sseq@color",false,false)} \fi \sseq@arrowfrom \sseq@arrowto } \newcommand{\sscurve}[1]{\sseq@stroke[curve=#1]} \newcommand{\ssdashedstroke}{\sseq@stroke[dashed]} \newcommand{\ssdashedcurve}[1]{\sseq@stroke[dashed,curve=#1]} \newcommand{\ssdottedstroke}{\sseq@stroke[dotted]} \newcommand{\ssdottedcurve}[1]{\sseq@stroke[dotted,curve=#1} \newcommand{\ssarrowhead}[1][\sseq@defaultarrowstyle]{\directlua0{sseq_add_arrow("arrowto","#1")}} \newcommand{\ssinversearrowhead}[1][\sseq@defaultarrowstyle]{\directlua0{sseq_add_arrow("arrowfrom","#1")}} \define@key{sseqline}{color}{\def\sseq@color{#1}} \define@key{sseqline}{curve}{\def\sseq@curve{#1}} \define@key{sseqline}{dashed}[{{2pt}{2pt}}]{\def\sseq@dashing{#1}} \define@key{sseqline}{dotted}[{{.5pt}{2pt}}]{\def\sseq@dashing{#1}} \define@key{sseqline}{arrowfrom}[\sseq@defaultarrowstyle]{\def\sseq@arrowfrom{\ssinversearrowhead[#1]}} \define@key{sseqline}{arrowto}[\sseq@defaultarrowstyle]{\def\sseq@arrowto{\ssarrowhead[#1]}} \define@key{sseqline}{void}[true]{\newif\ifKV@sseqline@void\csname KV@sseqline@void#1\endcsname} \def\ssline{\@ifnextchar[\sseq@line{\sseq@line[]}} \def\sseq@line[#1]#2#3{ \def\sseq@dashing{} \def\sseq@curve{} \edef\sseq@arrowfrom{} \edef\sseq@arrowto{} \presetkeys{sseqline}{void=false,color=\ssconncolor}{} \setkeys{sseqline}{#1} \ifKV@sseqline@void % ^^A a void line \directlua0{sseq_assert_source(); sseq_finish_pos(); sseq_move(#2,#3); sseq_late_connection("\sseq@dashing","\sseq@curve","\sseq@color",false,true)} \else \directlua0{sseq_open_connection("\sseq@dashing","\sseq@curve","\sseq@color",false,false); sseqposx = sseqposx+#2; sseqposy = sseqposy+#3} \fi \sseq@arrowfrom \sseq@arrowto } \newcommand{\sscurvedline}[3]{\ssline[curve=#3]{#1}{#2}} \newcommand{\ssdashedline}[2]{\ssline[dashed]{#1}{#2}} \newcommand{\sscurveddashedline}[3]{\ssline[curve=#3,dashed]{#1}{#2}} \newcommand{\ssarrow}[3][]{ \ssline[arrowto,#1]{#2}{#3} } \newcommand{\sscurvedarrow}[3]{\ssline[arrowto,curve=#3]{#1}{#2}} \newcommand{\ssdashedarrow}[2]{\ssline[arrowto,dashed]{#1}{#2}} \newcommand{\sscurveddashedarrow}[3]{\ssline[arrowto,dashed,curve=#3]{#1}{#2}} \def\ssvoidline{\@ifnextchar[\sseq@voidline{\sseq@voidline[]}} \def\sseq@voidline[#1]#2#3{ \def\sseq@dashing{} \def\sseq@curve{} \edef\sseq@arrowfrom{} \edef\sseq@arrowto{} \presetkeys{sseqline}{color=\ssconncolor}{} \setkeys{sseqline}{#1} \directlua0{sseq_void_line("\sseq@dashing","\sseq@curve","\sseq@color",#2,#3)} \sseq@arrowfrom \sseq@arrowto } \newcommand{\ssvoidarrow}[2]{\ssvoidline{#1}{#2}\ssarrowhead} \newcommand{\ssinversevoidarrow}[2]{\ssvoidline{#1}{#2}\ssinversearrowhead} \newcommand{\ssbullstring}[3]{ \directlua0{sseq_bullstring(#1,#2,#3,[[\ssplacecolor]])} } \newcommand{\ssinfbullstring}[3]{ \ssbullstring{#1}{#2}{#3} \ssvoidarrow{#1}{#2} } \newcommand{\ssgrayout}[1][gray]{\directlua0{sseq_grayout("#1")}} \define@key{sseq}{grid}{ \directlua0{sseqgriddrawer = sseq_grid_#1} } \define@key{sseq}{entrysize}{ \sseq@dimen=#1 \directlua0{sseqentrysize=\number\sseq@dimen} % In LUA, it's all in scaled points. } \define@key{sseq}{labels}{ \setkeys{sseq}{xlabels=#1,ylabels=#1} } \define@key{sseq}{xlabels}{ \def\temp{#1} \def\temptwo{none} \ifx\temp\temptwo \directlua0{sseqxlabels = sseq_parse_label_list("")} \else \def\temptwo{numbers} \ifx\temp\temptwo \directlua0{sseqxlabels = sseq_parse_label_list("&n")} \else \directlua0{sseqxlabels = sseq_parse_label_list([[#1]])} \fi \fi } \define@key{sseq}{ylabels}{ \def\temp{#1} \def\temptwo{none} \ifx\temp\temptwo \directlua0{sseqylabels = sseq_parse_label_list("")} \else \def\temptwo{numbers} \ifx\temp\temptwo \directlua0{sseqylabels = sseq_parse_label_list("&n")} \else \directlua0{sseqylabels = sseq_parse_label_list([[#1]])} \fi \fi } \define@key{sseq}{xlabelstep}{ \directlua0{sseqxstep=#1} } \define@key{sseq}{ylabelstep}{ \directlua0{sseqystep=#1} } \define@key{sseq}{labelstep}{\setkeys{sseq}{xlabelstep=#1}\setkeys{sseq}{ylabelstep=#1}} \define@key{sseq}{gapsize}{\setkeys{sseq}{xgapsize=#1}\setkeys{sseq}{ygapsize=#1}} \define@key{sseq}{xgapsize}{ \sseq@dimen=#1 \directlua0{sseqxgap=\number\sseq@dimen} } \define@key{sseq}{ygapsize}{ \sseq@dimen=#1 \directlua0{sseqygap=\number\sseq@dimen} } \define@key{sseq}{leak}{\setkeys{sseq}{xleak=#1}\setkeys{sseq}{yleak=#1}} \define@key{sseq}{xleak}{ \sseq@dimen=#1 \directlua0{sseqxleak=\number\sseq@dimen} } \define@key{sseq}{yleak}{ \sseq@dimen=#1 \directlua0{sseqyleak=\number\sseq@dimen} } \define@key{sseq}{gridstroke}{ \sseq@dimen=#1 \directlua0{sseqgridstrokethickness=\number\sseq@dimen} } \define@key{sseq}{arrows}{ \def\sseq@defaultarrowstyle{#1} \directlua0{sseqdefaultarrowstyle="#1"} } \define@key{sseq}{packing}{ \directlua0{sseqpacking = sseq_pack_#1} } \def\sseq@defaultarrowstyle{to} \directlua0{sseq_set_defaults()} \newenvironment{sseq}[3][]{% \begingroup \directlua0{sseq_init()} \begin{pgfpicture} \setkeys{sseq}{#1} \directlua0{sseq_setup_ranges("#2","#3",\the\sseqxstart,\the\sseqystart)} \directlua0{sseq_drawgrid()} \directlua0{sseq_drawlabels()} \directlua0{sseqboxno = \the\sseqbox} % ^^A Needed to measure the size of entries } { \relax \ssmoveto 0 0 \directlua0{sseq_position_objects(); sseq_dump_code()} \end{pgfpicture} \endgroup } \endinput %% %% End of file `luasseq.sty'.