conservatory
/
xxl-website
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add site from Wayback Machine 

wayback_machine_downloader -a http://www.esinsa.unice.fr/xxl.html
wayback_machine_downloader -a http://www.esinsa.unice.fr/xxl/
This commit is contained in:
Lassi Kortela 2022-08-03 15:21:43 +03:00
parent f22485cd8e
commit ae1296d873
13 changed files with 862 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

200
www/index.html Normal file
View File

@ -0,0 +1,200 @@
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<META NAME="Author" CONTENT="Vincent Granet">
<META CONTENT="Vincent Granet" NAME="Author">
<META CONTENT="Vincent Granet" NAME="xxl">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Mozilla/4.7 [en] (X11; I; Linux 2.2.12-20 i686) [Netscape]">
<title>Spreadsheet - xxl
</title>
<!--#include virtual="/cgi-bin/stats.cgi?vg"-->
<!--#include virtual="/cgi-bin/showstats.cgi?vg"-->
<!--#include virtual="/cgi-bin/showstatsdate.cgi?vg"-->
<!--#include virtual="/cgi-bin/lasthost.cgi?vg"-->
</head>
<body bgcolor="#FFFFFF">
&nbsp;
<table BORDER=0 CELLSPACING=0 CELLPADDING=10 WIDTH="100%" VALIGN="BOTTOM" >
<tr>
<td ALIGN=LEFT VALIGN=BOTTOM><img SRC="xxl/logoxxl.gif" NOSAVE BORDER=0 height=163 width=350></td>
<td ALIGN=RIGHT VALIGN=BOTTOM><a href="http://www.unice.fr"><img SRC="xxl/unsa.gif" NOSAVE BORDER=0 height=114 width=200></a></td>
</tr>
<tr>
<td></td>
</tr>
</table>
<table BORDER=0 CELLSPACING=10 CELLPADDING=20 WIDTH="100%" >
<tr>
<td BGCOLOR="#EEEEEE"><b>What is xxl?</b>
<p>Xxl is a free graphical spreadsheet developed at <a href="http://www.unice.fr">the
University of Nice</a> for Unix platforms. Xxl is written in <a href="http://kaolin.unice.fr">STk
</a>and
is based on the <a href="http://www.hobbs.wservice.com/tcl/capp/tkTable">tkTable</a>
widget. Xxl is designed to be simple, easy to use and user friendly. The
aim of xxl is not to compete with commercial spreadsheets. The latter are
often too complex for novices and provides too much functionnalities for
current usages. This last version of xxl provides a really fonctionnal
spreadsheet for small or middle-size sheets. The model it defines is similar
to that of all present-day spreadsheets. However, this model is limited
and has to be entirely revisited. Xxl should be a stable experimental platform
for future studies, in order to propose a reflexion and to define tools
for a new spreadsheet generation, more simple and secure to use. This point
of vue and more generally the xxl project is described in this <a href="http://www.linuxjournal.com/issue60/3186.html">paper</a>.&nbsp;
<p><b>Main Features</b>
<ul>
<li>
relative and absolute references to cells and ranges</li>
<li>
arithmetic, statistic, logic, time and string functions&nbsp;</li>
<li>
infinite arithmetic&nbsp;</li>
<li>
number of rows or cols is unlimited&nbsp;</li>
<li>
multi-sheets, number of sheets is unlimited&nbsp;</li>
<li>
deletion/insertion of rows/cols&nbsp;</li>
<li>
X cut and glue for move or copy operations&nbsp;</li>
<li>
X cut and glue also with other X clients&nbsp;</li>
<li>
sheet identification (title, author, date, ...)&nbsp;</li>
<li>
creating series&nbsp;</li>
<li>
sorting&nbsp;</li>
<li>
hiding and sticking rows and cols.&nbsp;</li>
<li>
printing and pre-viewing&nbsp;</li>
<li>
exported formats:&nbsp; postscript, html, LaTeX, csv,&nbsp; sylk&nbsp;<img SRC="xxl/new01.gif" NOSAVE height=20 width=35 align=ABSCENTER></li>
<li>
imported formats: csv, sylk&nbsp;<img SRC="xxl/new01.gif" NOSAVE height=20 width=35 align=ABSCENTER></li>
<li>
undo&nbsp;<img SRC="xxl/new01.gif" NOSAVE height=20 width=35 align=ABSCENTER></li>
<li>
graphics using <a href="http://sourceforge.net/projects/blt">Blt</a> (barchart, line)
(special thanks to <a href="mailto:briand@seanet.com">Brian Denheyer</a>)<img SRC="xxl/new01.gif" NOSAVE height=20 width=35 align=ABSCENTER></li>
</ul>
<b>TODO</b>
<ul>
<li>
more layout facilities</li>
<li>
improve efficiency for large sheets</li>
</ul>
<b>Current Version:</b>&nbsp;&nbsp; 2.1.2
<p><b>What's new in xxl-2.1.2?</b>
<ul>
<li>
Please have a look at file <a href="xxl/ChangeLog">ChangeLog</a> for further
informations&nbsp;</li>
</ul>
<b>See Screen Shots ?</b>
<ul>
<li>
<a href="xxl/xxlshot.gif">first</a> (43K)</li>
<li>
<a href="xxl/xxlshot2.gif">second</a> (31K)</li>
</ul>
</td>
</tr>
<tr>
<td BGCOLOR="#EEEEEE"><b>Copyright Type:&nbsp; </b>GNU General Public License
<br><b>Targeted Platforms:&nbsp;</b>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Tested on Linux (RedHat-(5-6).?,
Debian),&nbsp; Solaris 2.6, HPUX 9.05;&nbsp; OSF1 on DEC Alpha,&nbsp; and
normally can run on all STk platforms.&nbsp;
<br><b>Software Requirements:</b>
<dd>
<a href="http://kaolin.unice.fr/STk">STk</a>-4.0.1 ,&nbsp; LaTeX</dd>
</td>
</tr>
<tr>
<td BGCOLOR="#EEEEEE"><b><font color="#FF0000"><font size=+1>Download lastest
version:</font></font></b>
<ul>
<li>
<a href="ftp://elec.polytech.unice.fr:/pub/xxl-2.1.2.tar.gz">source tar.gz</a></li>
<li>
<a href="ftp://elec.polytech.unice.fr:/pub/xxl-2.1.2-1.i386.rpm">rpm i386
binary package</a></li>
<li>
<a href="ftp://elec.polytech.unice.fr:/pub/xxl-2.1.2-1.src.rpm">rpm source
package</a></li>
<li>
<a href="ftp://boltz.univ-littoral.fr/pub/">debian i386 binary package</a>
(thanks to Georges Khaznadar, georgesk@boltz.univ-littoral.fr)</li>
</ul>
<b>Known Intallation Problems:</b>
<ul><li>
With Dec Alpha, Stk and Xxl cannot be compiled with gcc.</li>
<br><b>FIX</b>:&nbsp; use the native C compiler (ie cc)</ul>
<ul>
<li>
Problem loading libxxl.so when xxl starts (unresolved symbols). You have
upgraded to lib6c (glibc), but your STk had been compiled under lib5c.</li>
<br><b>FIX</b>:&nbsp; recompile STk&nbsp; using libc6</ul>
<ul>
<li>
With SunOS helios 5.6 (and maybe others sunos), xxl does not compile with
yacc and lex.</li>
<br><b>FIX</b>:&nbsp; install and use <a href="ftp://elec.polytech.unice.fr:/pub/flex-2.5.4a.tar.gz">flex</a>
and <a href="ftp://elec.polytech.unice.fr:/pub/bison-1.25.tar.gz">bison</a></ul>
</td>
</tr>
<tr>
<td BGCOLOR="#EEEEEE">
<dd>
<a href="http://metalab.unc.edu/pub/Linux/apps/financial/spreadsheet">Secondary
download site (sunsite)</a>&nbsp;</dd>
<dd>
<a href="http://www.hex.net/~cbbrowne/spreadsheets.html">General Linux
spreadsheet information</a>&nbsp;</dd>
</td>
</tr>
</table>
<address>
<a href="mailto:vg@unice.fr">Vincent Granet</a></address>
<a href="http://elec.polytech.unice.fr/~vg">home</a>
<br>
<hr SIZE=3 WIDTH="100%">
<br><a href="http://www.linux-directory.com"><img SRC="xxl/button_88x31.gif" NOSAVE height=31 width=88></a>
</body>
</html>

261
www/xxl/Annuity.xxl Normal file
View File

@ -0,0 +1,261 @@
;;File generated by xxl-v2.1.2. DO NOT EDIT.
;29 22 ;; nb-rows nb-cols
(set-author! *current-sheet* "")
(set-creation-date! *current-sheet* "07/16/99 15:30:38")
(set-modification-date! *current-sheet* "12/16/99 12:45:19")
(set-title! *current-sheet* "No Title")
(set-purpose! *current-sheet* "Purpose: ")
(apply width (current-table) '(8 -114 7 -89 6 -98 5 -110 3 -44 2 -51 1 -65))
(set-table-value! (current-table) 2 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 600000))
(set-table-value! (current-table) 1 1 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "Loan"))
(set-table-value! (current-table) 1 2 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "Rate"))
(set-table-value! (current-table) 1 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "Years"))
(set-table-value! (current-table) 2 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.044))
(set-table-value! (current-table) 2 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
(set-table-value! (current-table) 3 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 600000))
(set-table-value! (current-table) 3 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0445))
(set-table-value! (current-table) 3 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
(set-table-value! (current-table) 1 5 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "Monthly payment"))
(set-table-value! (current-table) 2 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 6864.14616227857 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
(set-table-value! (current-table) 3 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 6878.56910239991 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
(set-table-value! (current-table) 1 7 (make <value-cell> :format '(3 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "Interest paid"))
(set-table-value! (current-table) 2 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 141327.785526085 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
(set-table-value! (current-table) 3 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 142885.46305919 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
(set-table-value! (current-table) 1 4 (make <value-cell> :format '(3 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "Insurance"))
(set-table-value! (current-table) 2 8 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "diff = $ 1557.68" :has-ext-ref #f :formula '((& "diff = $ " (tostr (round (- #(#f 0 (1 . -1)) #(#f 0 (0 . -1))) 2))))))
(set-table-value! (current-table) 2 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 741327.785526085 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
(set-table-value! (current-table) 3 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 742885.46305919 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
(set-table-value! (current-table) 2 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
(set-table-value! (current-table) 3 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
(set-table-value! (current-table) 5 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 620000))
(set-table-value! (current-table) 5 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.044))
(set-table-value! (current-table) 5 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
(set-table-value! (current-table) 5 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
(set-table-value! (current-table) 5 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 7092.95103435452 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
(set-table-value! (current-table) 5 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 766038.711710288 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
(set-table-value! (current-table) 5 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 146038.711710288 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
(set-table-value! (current-table) 5 8 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "diff = $ 1609.6" :has-ext-ref #f :formula '((& "diff = $ " (tostr (round (- #(#f 0 (1 . -1)) #(#f 0 (0 . -1))) 2))))))
(set-table-value! (current-table) 8 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 635000))
(set-table-value! (current-table) 8 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.044))
(set-table-value! (current-table) 8 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
(set-table-value! (current-table) 8 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
(set-table-value! (current-table) 8 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 7264.55468841148 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
(set-table-value! (current-table) 8 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 784571.90634844 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
(set-table-value! (current-table) 8 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 149571.90634844 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
(set-table-value! (current-table) 11 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 650000))
(set-table-value! (current-table) 11 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.044))
(set-table-value! (current-table) 11 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
(set-table-value! (current-table) 11 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
(set-table-value! (current-table) 11 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 7436.15834246845 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
(set-table-value! (current-table) 11 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 803105.100986592 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
(set-table-value! (current-table) 11 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 153105.100986592 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
(set-table-value! (current-table) 11 8 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "diff = $ 1687.48" :has-ext-ref #f :formula '((& "diff = $ " (tostr (round (- #(#f 0 (1 . -1)) #(#f 0 (0 . -1))) 2))))))
(set-table-value! (current-table) 14 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 700000))
(set-table-value! (current-table) 14 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.044))
(set-table-value! (current-table) 14 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
(set-table-value! (current-table) 14 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
(set-table-value! (current-table) 14 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 8008.17052265833 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
(set-table-value! (current-table) 14 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 864882.416447099 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
(set-table-value! (current-table) 14 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 164882.416447099 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
(set-table-value! (current-table) 14 8 (make <formula-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "diff = $1817.29" :has-ext-ref #f :formula '((& "diff = $" (tostr (round (- #(#f 0 (1 . -1)) #(#f 0 (0 . -1))) 2))))))
(set-table-value! (current-table) 15 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 700000))
(set-table-value! (current-table) 15 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0445))
(set-table-value! (current-table) 15 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
(set-table-value! (current-table) 15 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
(set-table-value! (current-table) 15 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 8024.99728613323 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
(set-table-value! (current-table) 15 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 866699.706902388 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
(set-table-value! (current-table) 15 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 166699.706902388 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
(set-table-value! (current-table) 12 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 650000))
(set-table-value! (current-table) 12 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0445))
(set-table-value! (current-table) 12 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
(set-table-value! (current-table) 12 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
(set-table-value! (current-table) 12 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 7451.78319426657 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
(set-table-value! (current-table) 12 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 804792.584980789 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
(set-table-value! (current-table) 12 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 154792.584980789 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
(set-table-value! (current-table) 9 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 635000))
(set-table-value! (current-table) 9 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0445))
(set-table-value! (current-table) 9 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
(set-table-value! (current-table) 9 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
(set-table-value! (current-table) 9 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 7279.81896670657 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
(set-table-value! (current-table) 9 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 786220.44840431 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
(set-table-value! (current-table) 9 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 151220.44840431 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
(set-table-value! (current-table) 6 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 620000))
(set-table-value! (current-table) 6 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0445))
(set-table-value! (current-table) 6 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
(set-table-value! (current-table) 6 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
(set-table-value! (current-table) 6 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 7107.85473914657 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
(set-table-value! (current-table) 6 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 767648.31182783 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
(set-table-value! (current-table) 6 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 147648.31182783 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
(set-table-value! (current-table) 1 6 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "Total borrowed"))
(tag-cell (get-tag (get-table-cell (current-table) 12 3)) '(12 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 3 2)) '(3 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 15 1)) '(15 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 2 7)) '(2 . 7))
(tag-cell (get-tag (get-table-cell (current-table) 2 2)) '(2 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 6 4)) '(6 . 4))
(tag-cell (get-tag (get-table-cell (current-table) 5 2)) '(5 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 11 5)) '(11 . 5))
(tag-cell (get-tag (get-table-cell (current-table) 6 7)) '(6 . 7))
(tag-cell (get-tag (get-table-cell (current-table) 12 5)) '(12 . 5))
(tag-cell (get-tag (get-table-cell (current-table) 12 2)) '(12 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 8 4)) '(8 . 4))
(tag-cell (get-tag (get-table-cell (current-table) 14 1)) '(14 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 5 5)) '(5 . 5))
(tag-cell (get-tag (get-table-cell (current-table) 2 6)) '(2 . 6))
(tag-cell (get-tag (get-table-cell (current-table) 8 1)) '(8 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 1 2)) '(1 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 11 1)) '(11 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 5 1)) '(5 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 8 7)) '(8 . 7))
(tag-cell (get-tag (get-table-cell (current-table) 2 3)) '(2 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 9 7)) '(9 . 7))
(tag-cell (get-tag (get-table-cell (current-table) 9 2)) '(9 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 3 7)) '(3 . 7))
(tag-cell (get-tag (get-table-cell (current-table) 3 5)) '(3 . 5))
(tag-cell (get-tag (get-table-cell (current-table) 2 8)) '(2 . 8))
(tag-cell (get-tag (get-table-cell (current-table) 8 2)) '(8 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 11 3)) '(11 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 11 7)) '(11 . 7))
(tag-cell (get-tag (get-table-cell (current-table) 14 4)) '(14 . 4))
(tag-cell (get-tag (get-table-cell (current-table) 9 4)) '(9 . 4))
(tag-cell (get-tag (get-table-cell (current-table) 14 8)) '(14 . 8))
(tag-cell (get-tag (get-table-cell (current-table) 5 6)) '(5 . 6))
(tag-cell (get-tag (get-table-cell (current-table) 11 2)) '(11 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 1 6)) '(1 . 6))
(tag-cell (get-tag (get-table-cell (current-table) 15 3)) '(15 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 14 6)) '(14 . 6))
(tag-cell (get-tag (get-table-cell (current-table) 14 5)) '(14 . 5))
(tag-cell (get-tag (get-table-cell (current-table) 6 3)) '(6 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 1 7)) '(1 . 7))
(tag-cell (get-tag (get-table-cell (current-table) 1 1)) '(1 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 6 1)) '(6 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 11 6)) '(11 . 6))
(tag-cell (get-tag (get-table-cell (current-table) 8 3)) '(8 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 12 1)) '(12 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 14 7)) '(14 . 7))
(tag-cell (get-tag (get-table-cell (current-table) 3 6)) '(3 . 6))
(tag-cell (get-tag (get-table-cell (current-table) 15 7)) '(15 . 7))
(tag-cell (get-tag (get-table-cell (current-table) 11 8)) '(11 . 8))
(tag-cell (get-tag (get-table-cell (current-table) 6 5)) '(6 . 5))
(tag-cell (get-tag (get-table-cell (current-table) 9 1)) '(9 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 12 7)) '(12 . 7))
(tag-cell (get-tag (get-table-cell (current-table) 15 6)) '(15 . 6))
(tag-cell (get-tag (get-table-cell (current-table) 5 8)) '(5 . 8))
(tag-cell (get-tag (get-table-cell (current-table) 9 6)) '(9 . 6))
(tag-cell (get-tag (get-table-cell (current-table) 12 6)) '(12 . 6))
(tag-cell (get-tag (get-table-cell (current-table) 15 2)) '(15 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 15 5)) '(15 . 5))
(tag-cell (get-tag (get-table-cell (current-table) 1 5)) '(1 . 5))
(tag-cell (get-tag (get-table-cell (current-table) 9 5)) '(9 . 5))
(tag-cell (get-tag (get-table-cell (current-table) 3 1)) '(3 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 11 4)) '(11 . 4))
(tag-cell (get-tag (get-table-cell (current-table) 14 3)) '(14 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 12 4)) '(12 . 4))
(tag-cell (get-tag (get-table-cell (current-table) 3 4)) '(3 . 4))
(tag-cell (get-tag (get-table-cell (current-table) 8 6)) '(8 . 6))
(tag-cell (get-tag (get-table-cell (current-table) 1 3)) '(1 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 2 1)) '(2 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 6 6)) '(6 . 6))
(tag-cell (get-tag (get-table-cell (current-table) 6 2)) '(6 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 2 4)) '(2 . 4))
(tag-cell (get-tag (get-table-cell (current-table) 5 7)) '(5 . 7))
(tag-cell (get-tag (get-table-cell (current-table) 5 4)) '(5 . 4))
(tag-cell (get-tag (get-table-cell (current-table) 2 5)) '(2 . 5))
(tag-cell (get-tag (get-table-cell (current-table) 14 2)) '(14 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 3 3)) '(3 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 1 4)) '(1 . 4))
(tag-cell (get-tag (get-table-cell (current-table) 5 3)) '(5 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 9 3)) '(9 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 8 5)) '(8 . 5))
(tag-cell (get-tag (get-table-cell (current-table) 15 4)) '(15 . 4))
(spans (current-table) '(8 . 9) '(1 . 0))
(spans (current-table) '(14 . 9) '(1 . 0))
(spans (current-table) '(5 . 9) '(1 . 0))
(spans (current-table) '(11 . 9) '(1 . 0))
(spans (current-table) '(2 . 9) '(1 . 0))
(configure (current-table) :titlerows 1)
(set-last-active-cell! (current-table) '(1 . 7))
(activate-last-active-cell (current-table))
;;End of xxl-v2.1.2. File.

183
www/xxl/ChangeLog/index.html Normal file
View File

@ -0,0 +1,183 @@
-*-change-log-*-
1999-09-13 Vincent Granet <vg@unice.fr>
---- v2.1.2 ----
* FIXED bug in sort.stk: line 108 stk:<= change to <=
* Added = and != operators to compare string and number
values. Numbers are converted (if possible) to string.
* Changed, now xxl uses the "longtable" package instead of
the "supertabular" package.
* Added parameters in the Preview, Print and LaTeX dialog boxes to
change the sheet layout. Also, help messages have been added.
* Added, a checkbutton in the control-panel to set "on" or "off"
the cell reevalution. For huge sheets, setting off cell reevalution
could avoid wasting time :-).
* Added a help balloon to the button that controls the cell
reevalution.
* FIXED, information about hidden rows or cols are now correctly
saved in the xxl file.
* Changed, hidden rows or cols are no more printed or previewed.
* Removed "Preview" entry in "Print" menu. Added a button "Preview"
in the "Print Document" dialog box.
* Changed, tempory files created in the tmp directory are now deleted
when xxl exits. A new variable *rm* has been defined at
configuration time. So users who have already a file ~/.xxlrc
need to add the line (define *rm* "/bin/rm") in it.(of course, if
/bin/rm is the remove command on the system!)
* Changed. Command print document can now be applied to the selection.
Only contiguous selected cells are printed (not all the
document). Title columns and title rows always are printed.
* Added boolean comparison operators < > <= >= (false < true)
* Changed sort function. It can now sort values of type boolean, string
or number, with the following rule: boolean < string < number.
* FIXED sheet filename after imported file now suffixed by .xxl.
* FIXED bug. The table was not marked saved when a col/row was
cleared
* Changed xxl installation procedure. Now ask for deletion of
previous installed versions.
* Added conversion functions 'tostr' and 'tonum'. The first one
converts any value to string (boolean values to 'true' and
'false'). The second one converts values to numbers (a string
value must be a valid numeric expression, true = 1 and false = 0)
* Added function 'round' with 1 argument to give the precision
(ie the number of digit after the dot).
* ADDED sylk format import/export.
* FIXED bug in function text-cell-width.
* FIXED binding Alt-d to a wrong function name
* Added undo function. The 20 last actions are kept and can be undone.
* Added financial functions "etofr" and "frtoe" to convert euros to
francs and francs to euros.
* FIXED bug in setting italic style to selected cells.
* FIXED bug when clicking on an unsed sheet after closing another
sheet.
* Added rpm packages for distribution.
* Changed function save-sheet. It now checks if the sheet is
really modified before saving it.
* Changed commands called from control panel are now applied
to the selection, even if the selection is not in the active
worksheet. Commands via bindings are always applied to the
worksheet that gets the control sequence.
* Added at sheet openning, selection is set on the last active
cell. Default is cell (1,1)).
* Added adaptation of Blt2.4g (sourceforge.net/projects/blt) to Stk and graph functions.
(special thanks to Brian Denheyer <briand@seanet.com>)
* Provided rpm distributions (i386.rpm and src.rpm)
* Changed copyright and license terms of xxl. Xxl is now released
under GPL.
1999-08-01 Vincent Granet <vg@unice.fr>
---- v2.1.1 ----
* Updated to tkTable2.4.
* Added sheet:spans method (accel Alt-p) for row/col spanning
* Added function count(r) to return the number of non
empty cells in a range(r)
* Added functions day(), month(), year(), hour(),
minute() and second() to return, resp., current day, month,
year, hour, minute and second.
* Added function index(i,r) to return the value at index x
in the range r.
* Added function hypot(x,y) to return the hypotenuse of a right
triangle
* Added function substr(s,p1,p2) to return charaters from pos p1
to p2 in string s
* Added functions strupper(s) and strlower(s) to convert string s
to upper case and lower case.
to p2 in string s.
* Added financial functions fv(pmt,i,term), pv(pmt,i,term) and
pmt(pmt,i,term) (got from Xspread, thanks).
* Added balloon contexual help on raise button of sheets
* Renamed function "type" to "celltype"
* Replaced in sort.stk string functions by string-lo functions to
sort cell depending on the environment variable LANG.
* FIXED bug in traducteur.y with equal operator.
* Added logical operators: and & or.
* Fixed sheet redisplay after currency or number format changes.
* Changed the word Money to Currency.
* Added shortcuts in menu style.
* Fixed bug in set-sheet-size. *ROW--MAX* and *COL--MAX* always
converted to number.
* Changed open file. If the file does not exist, xxl will open a new
sheet with ist filename. Consquence, Fix option "-doc" when file
argument cannot be read.
* Added the version of xxl in the first line of generated ~/.xxlrc
1998-11-05 Vincent Granet <vg@unice.fr>
---- v2.1.0 ----
* Modified right and down moves extend sheet if necessary
* Extended identification sheet. Author, creation and last modifiation
date, and purpose. Set title changed to set indentification.
* Added utopia font. It is cmr LaTeX font for printing and
previewing
* Added choose of default spreadsheet font in the configuration dialog
box
* Improved html format production.
* Modified xxl libraries. Now, all libraries (traducteur, tradinv,
type, libxxl, tktable) are grouped in one called libxxl (static
libxxl.a or dynamic libxxl.??)
* Replaced in interface (catch (load "~/.xxlrc")) by
(try-load "~/.xxlrc")
* Modified Makefiles to create ${prefix}/lib and ${prefix}/bin if
necessary
* Replaced all "require" to widget calls by (require "Tk-classes")
* Modified csv format production to be conform to usage
* Fixed open-file when choosen file has a wrong format
* Fixed Filebox.stklos. It now shows correctly files with proper
suffix
* Fixed save-sheet-as. Use of cancel button was bogus
* Upgraded to tkTable2.3.
* Added importation of csv format
1998-08-16 Vincent Granet <vg@unice.fr>
---- v2.0.4 ----
* Fixed bugs in deletion/insertion functions managing absolute cell
references
* Added distclean rule for Maps directory in the main Makefile.in
* Added balloon contexual help on panel buttons.
* Deleted Online Help entry in Help menu and Help buttons (useless)
* Added stick and hide buttons
1998-07-15 Vincent Granet <vg@unice.fr>
---- v2.0.3 ----
* Upgraded tktable1.8 to tktable2.2
* Removed batchmode slot from class <Table> (tktable2.1)
* Added clear method for class <Table> (tktable2.1)
* Removed clear button. Useless
* Added wrap button
* Removed list-minus function. Used instead remove stk native
function.
* Moved functions apply-a-style, apply-an-anchor and
change-style-or-anchor from cellEdit.stklos to tag.stklos
* Added font family and font size selection.
- POTENTIAL INCOMPATIBILITY - Use script xxl-convert in etc to
convert old format to new format: xxl-convert old > new
* Added multiline cells. Alt-= to in entry to insert newline
* Added code for multiline cell and its latex output. No perfect.
* Changed type.l to match strings including newline char
* Added output support for csv and html formats. (first versions)
Thanks to Brian Denheyer <briand@northwest.com>
1998-06-15 Vincent Granet <vg@unice.fr>
---- v2.0.2 ----
* Updated code to stk 3.99.2. Side effect : bug found in stk
(thanks to to Brian Denheyer <briand@northwest.com> for finding
and fixing it)
Fri Aug 29 11:37:18 1997 Vincent Granet <vg@unice.fr>
---- v2.0.1 ----
* bugs in loop checking and file loading are fixed.
* in v2.0, cells were systematically re-evaluated when displayed,
so scrolling or cell resizing was very slow.
The value of a formula cell is now stored and re-evaluated each
time a cell content is changed. In a formula cell, a "value"
slot is saved in xxl format file.
* bignums are now correctly managed.
* money values with precision 0 are now correctly displayed
* added user init file ~/.xxlrc. This file can be created with new
entry "Configure" in menu "File".

14
www/xxl/PATH-OSF-STK-3.99.4 Normal file
View File

@ -0,0 +1,14 @@
*** io.c.orig ven 12 mar 16:12:41 MET 1999
--- io.c ven 12 mar 15:59:57 MET 1999
***************
*** 160,165 ****
--- 160,168 ----
/* Otherwise */
switch (TYPE(port)) {
case tc_iport : for ( ; ; ) {
+ #ifdef OSF1
+ errno = 0; /* OSF does not set errno to 0 before a read ! */
+ #endif
SYSTEM(result=getc(PORT_FILE(port)));
if (result != EOF || errno != EINTR) break;
}

BIN
www/xxl/button_88x31.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.4 KiB

204
www/xxl/fac.xxl Normal file
View File

@ -0,0 +1,204 @@
;;File generated by xxl-v2.1.1. DO NOT EDIT.
;201 200 ;; nb-rows nb-cols
(set-author! *current-sheet* "")
(set-creation-date! *current-sheet* "11/12/98 14:12:30")
(set-modification-date! *current-sheet* "01/07/99 16:51:15")
(set-title! *current-sheet* "Factorielle")
(set-purpose! *current-sheet* "Purpose: ")
(apply width (current-table) '(1 -69 2 -165 3 -174))
(apply height (current-table) '(1 -43))
(set-table-value! (current-table) 2 1 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(times 16 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "n"))
(set-table-value! (current-table) 2 2 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(times 16 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "n!"))
(set-table-value! (current-table) 2 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(times 16 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "1/n!"))
(set-table-value! (current-table) 3 1 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 1))
(set-table-value! (current-table) 3 2 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 1))
(set-table-value! (current-table) 3 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 1 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 4 1 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 1))
(set-table-value! (current-table) 4 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 1 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 4 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 1 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 5 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 2 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 5 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 2 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 5 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.5 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 6 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 3 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 6 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 6 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 6 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.166666666666667 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 7 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 4 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 7 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 24 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 7 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0416666666666667 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 8 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 5 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 8 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 120 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 8 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.00833333333333333 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 9 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 6 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 9 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 720 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 9 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.00138888888888889 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 10 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 7 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 10 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 5040 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 10 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.000198412698412698 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 11 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 8 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 11 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 40320 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 11 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 2.48015873015873e-05 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 12 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 12 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 362880 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 12 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 2.75573192239859e-06 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 13 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 10 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 13 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 3628800 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 13 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 2.75573192239859e-07 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 14 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 11 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 14 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 39916800 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 14 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 2.50521083854417e-08 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 15 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 12 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 15 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 479001600 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 15 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 2.08767569878681e-09 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 16 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 13 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 16 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 6227020800 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 16 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 1.60590438368216e-10 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 17 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 14 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 17 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 87178291200 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 17 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 1.14707455977297e-11 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 18 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 15 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 18 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 1307674368000 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 18 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 7.64716373181982e-13 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 19 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 16 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 19 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 20922789888000 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 19 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 4.77947733238739e-14 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 20 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 17 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 20 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 355687428096000 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 20 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 2.81145725434552e-15 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 21 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 18 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 21 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 6402373705728000 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 21 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 1.56192069685862e-16 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 22 1 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 19 :has-ext-ref #f :formula '((+ #(#f 0 (-1 . 0)) 1))))
(set-table-value! (current-table) 22 2 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 121645100408832000 :has-ext-ref #f :formula '((* #(#f 0 (-1 . 0)) #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 22 3 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 14 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 8.22063524662433e-18 :has-ext-ref #f :formula '((/ 1 #(#f 0 (0 . -1))))))
(set-table-value! (current-table) 1 1 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 16 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "Table de Factorielle"))
(tag-cell (get-tag (get-table-cell (current-table) 2 3)) '(2 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 17 1)) '(17 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 18 3)) '(18 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 20 3)) '(20 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 4 3)) '(4 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 6 3)) '(6 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 12 2)) '(12 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 14 2)) '(14 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 6 1)) '(6 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 16 2)) '(16 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 18 1)) '(18 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 11 3)) '(11 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 14 3)) '(14 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 15 3)) '(15 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 3 3)) '(3 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 14 1)) '(14 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 15 1)) '(15 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 11 1)) '(11 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 16 1)) '(16 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 22 3)) '(22 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 22 2)) '(22 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 22 1)) '(22 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 8 3)) '(8 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 21 3)) '(21 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 10 1)) '(10 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 19 2)) '(19 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 8 1)) '(8 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 13 2)) '(13 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 15 2)) '(15 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 11 2)) '(11 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 10 2)) '(10 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 7 3)) '(7 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 13 3)) '(13 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 2 1)) '(2 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 7 1)) '(7 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 19 1)) '(19 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 10 3)) '(10 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 5 1)) '(5 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 9 3)) '(9 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 18 2)) '(18 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 9 2)) '(9 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 6 2)) '(6 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 12 1)) '(12 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 20 1)) '(20 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 7 2)) '(7 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 17 3)) '(17 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 21 2)) '(21 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 21 1)) '(21 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 3 1)) '(3 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 5 2)) '(5 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 20 2)) '(20 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 9 1)) '(9 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 19 3)) '(19 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 4 1)) '(4 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 3 2)) '(3 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 8 2)) '(8 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 12 3)) '(12 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 17 2)) '(17 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 5 3)) '(5 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 4 2)) '(4 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 16 3)) '(16 . 3))
(tag-cell (get-tag (get-table-cell (current-table) 2 2)) '(2 . 2))
(tag-cell (get-tag (get-table-cell (current-table) 13 1)) '(13 . 1))
(tag-cell (get-tag (get-table-cell (current-table) 1 1)) '(1 . 1))
(spans (current-table) '(1 . 1) '(0 . 2))
(configure (current-table) :titlerows 1)
;;End of xxl-v2.1.1. File.

BIN
www/xxl/logoxxl.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 13 KiB

BIN
www/xxl/new01.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1016 B

BIN
www/xxl/stop.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 116 B

BIN
www/xxl/unsa.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.2 KiB

BIN
www/xxl/xxl.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 13 KiB

BIN
www/xxl/xxlshot.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 46 KiB

BIN
www/xxl/xxlshot2.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 32 KiB