From dc71274f16f7ff65145e034900f582b62453a033 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 14 Oct 2017 11:43:11 +0900 Subject: rename and update ketpic -> ketcindy --- .../scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci') diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci new file mode 100644 index 00000000..b091754f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci @@ -0,0 +1,17 @@ +function Drwxy(varargin) + global XMIN XMAX YMIN YMAX GENTEN ARROWSIZE + global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ULEN; + Nargs=length(varargin) + Tmp=mtlb_findstr(ZIKU,'arrow'); + if Tmp~=[] + Arrowline([XMIN,GENTEN(2)],[XMAX,GENTEN(2)],ARROWSIZE); + Arrowline([GENTEN(1),YMIN],[GENTEN(1),YMAX],ARROWSIZE); + else + Drwline(Listplot([XMIN,GENTEN(2)],[XMAX,GENTEN(2)])); + Drwline(Listplot([GENTEN(1),YMIN],[GENTEN(1),YMAX])); + end; + Letter([XMAX,GENTEN(2)],XPOS,XNAME); + Letter([GENTEN(1),YMAX],YPOS,YNAME); + Letter(GENTEN,OPOS,ONAME); +endfunction + -- cgit v1.2.3