diff options
author | Norbert Preining <norbert@preining.info> | 2017-10-14 11:43:11 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2017-10-14 11:43:11 +0900 |
commit | dc71274f16f7ff65145e034900f582b62453a033 (patch) | |
tree | a71452364cbe1a03feb6a84cdfd09eedae861590 /texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.sci | |
parent | aecda53b09be64698e9e5dcbf40f0fe289b37e2e (diff) |
rename and update ketpic -> ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.sci | 78 |
1 files changed, 0 insertions, 78 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.sci deleted file mode 100755 index 84ea4d60..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.sci +++ /dev/null @@ -1,78 +0,0 @@ -// 08.12.06 -// 08.12.18 -// 09.02.20 -// 09.02.27 -// 14.03.05 MARKLEN -// 17.03.19 VL=[] => VL=""; - -function Out=Setunitlen(varargin) - global FID XMIN XMAX YMIN YMAX ULEN - global MilliIn MARKLEN MARKLENNow PenThickInit; - if length(varargin)==0 - Out=ULEN; - disp(ULEN); - return; - end; - Ul=varargin(1); - Dx=XMAX-XMIN; - Dy=YMAX-YMIN; - Sym='.0123456789 +-*/'; - Tmp=ascii(Sym); - SL=Sym; - OL='+-*/'; - if Ul~='' - ULEN=Ul; - end; - Out=ULEN; - Is=1; - VL=""; // 17.03.19 - Ucode=ascii(ULEN); - for I=1:length(Ucode) - C=char(Ucode(I)); - if mtlb_findstr(SL,C)~=[] - if mtlb_findstr(OL,C) - Str=char(Ucode(Is:(I-1))); - VL=VL+Str+C; - Is=I+1; - end - else - Unit=char(Ucode(I:(I+1))); - Str=char(Ucode(Is:(I-1))); - VL=VL+Str; - break; - end; - end; - Valu=evstr(VL); - Str=string(Valu); - ULEN=Str+Unit; - Out=ULEN; - if Unit=='cm' - MilliIn=1000/2.54*Valu; - end - if Unit=='mm' - MilliIn=1000/2.54*Valu/10; - end - if Unit=='in' - MilliIn=1000*Valu; - end - if Unit=='pt' - MilliIn=1000/72.27*Valu; - end - if Unit=='pc' - MilliIn=1000/6.022*Valu; - end - if Unit=='bp' - MilliIn=1000/72*Valu; - end - if Unit=='dd' - MilliIn=1000/1238/1157/72.27*Valu; - end - if Unit=='cc' - MilliIn=1000/1238/1157/72.27*12*Valu;p - end - if Unit=='sp' - MilliIn=1000/72.27/65536*Valu/10; - end - MARKLEN=MARKLENNow*1000/2.54/MilliIn; -endfunction; - |