summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci39
1 files changed, 0 insertions, 39 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci
deleted file mode 100644
index 11b02c63..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-function Mawarikomi(varargin)
- FL='default';
- haba='10cm';
- Nargs=length(varargin);
- if Nargs>0
- haba=varargin(1);
- if Nargs>=2
- FL=varargin(2);
- if FL==''
- FL='tmp.tex'
- end
- end
- end
- StrM=[
- '\begin{mawarikomi}%',...
- '%<1>[5](0,0)%',...
- '{'+haba+'}{%',...
- '',...
- '}',...
- '',...
- '',...
- '\end{mawarikomi}'...
- ];
- 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
-