summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.sci30
1 files changed, 30 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.sci
new file mode 100755
index 00000000..a07a89d1
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.sci
@@ -0,0 +1,30 @@
+function Kyorihensuu(varargin)
+ if length(varargin)==0
+ FL='default';
+ else
+ FL=varargin(1);
+ if FL==''
+ FL='tmp.tex'
+ end
+ end
+ StrM=[...
+ '\newlength{\Width}%',...
+ '\newlength{\Height}%',...
+ '\newlength{\Depth}%'...
+ ];
+ if FL~='default'
+ Fid=mopen(FL,'w');
+ mprintf('%s\n\n','Writing to '+FL);
+ end;
+ for I=1:size(StrM,2)
+ Str=StrM(I);
+ mprintf('%s\n',Str);
+ if FL~='default'
+ mfprintf(Fid,'%s\n',Str);
+ end
+ end
+ if FL~='default'
+ mclose(Fid)
+ end
+endfunction
+