summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci75
1 files changed, 0 insertions, 75 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci
deleted file mode 100644
index 5cb45c6f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci
+++ /dev/null
@@ -1,75 +0,0 @@
-//
-// 08.05.31
-// 09.12.25
-// 10.01.01
-
-function Drwpt(varargin)
- global Wfile FID TenSize TenSizeInit MilliIn;
- Nargs=length(varargin);
- if TenSize>TenSizeInit
- N=round(6*sqrt(TenSize/TenSizeInit));
- else
- N=4
- end
- Tmp=varargin(Nargs);
- if type(Tmp)==1
- if length(Tmp)>1
- Kosa=1; All=Nargs;
- else
- Kosa=Tmp; All=Nargs-1;
- end;
- elseif type(Tmp)==15
- Kosa=1; All=Nargs;
- end;
- CL=[];
- for J=0:N
- Tmp=TenSize*0.5*1000/2.54/MilliIn;
- Tmp=Tmp*[cos(%pi/4+J*2*%pi/N),sin(%pi/4+J*2*%pi/N)];
- CL=[CL;Tmp];
- end
- for II=1:All
- Tmp=varargin(II);
- MS=Flattenlist(Tmp); // 11.05.29
- for I=1:length(MS);
- P=Op(I,MS);
- if InWindow(P)~='i'
- continue
- end
- P=Doscaling(P);
- PL=[];
- for J=0:N
- PL=[PL;P+CL(J+1,:)];
- end;
- Mojisu=0;
- for J=1:size(PL,1)
- Q=PL(J,:);
- X=string(round(MilliIn*Q(1)));
- Y=string(-round(MilliIn*Q(2)));
- Str='\special{pa '+X+' '+Y+'}'
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- Mojisu=0;
- end
- end;
- Str1='\special{sh '+string(Kosa)+'}';
- Str2='\special{fp}%';
- if Wfile=='default'
- mprintf('%s',Str1);
- mprintf('%s\n',Str2);
- else
- mfprintf(FID,'%s',Str1);
- mfprintf(FID,'%s\n',Str2);
- end
- end
- end
-endfunction