Revision: 1.1 - (view) (download)
1 : | ktanaka | 1.1 | (setq testdat '( |
2 : | (((50 50)(350 50)(50 350)) | ||
3 : | ((yoko (0 1))(tate (0 2)))) | ||
4 : | (lisp (setq minchowidth 40.0) | ||
5 : | (((50 50)(350 50)(50 350)) | ||
6 : | ((yoko (0 1))(tate (0 2))))) | ||
7 : | (lisp (setq ywidth 9.0) | ||
8 : | (((50 50)(350 50)(50 350)) | ||
9 : | ((yoko (0 1))(tate (0 2))))))) | ||
10 : |
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |