summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-12-25 21:49:04 +0000
committerKarl Berry <karl@freefriends.org>2018-12-25 21:49:04 +0000
commit149bc3fbc5c7aac22d6f6439c5af590420f2b82d (patch)
treea7835e48b0e16a3a57e6078a85b81665ee404401 /Master/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs
parent9ddb2c44860e61a962778bcb5294315c3722db6b (diff)
ketcindy (25dec18)
git-svn-id: svn://tug.org/texlive/trunk@49502 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs')
-rw-r--r--Master/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs54
1 files changed, 51 insertions, 3 deletions
diff --git a/Master/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs b/Master/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs
index dabd701c181..7f378e9cd87 100644
--- a/Master/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs
+++ b/Master/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs
@@ -14,7 +14,7 @@
// along with this program. If not, see <http://www.gnu.org/licenses/>
//
-println("ketcindylib3d(20181108) loaded");
+println("ketcindylib3d(20181218) loaded");
//help:start();
@@ -2104,7 +2104,7 @@ Putpoint3d(Arg1,Arg2,Arg3):=(
////%Fixpoint3d start////
Fixpoint3d(ptlist):=(
-// help:Fixpoint3d(["O",[0,0,0],"X",[1,0,0]]);
+// help:Fixpoint3d(["O",[0,0,0],"X",[1,0,0]]);
regional(name,pt3,pt2,tmp,tmp1,tmp2);
forall(1..(length(ptlist)/2),
name=ptlist_(2*#-1);
@@ -2123,6 +2123,54 @@ Fixpoint3d(ptlist):=(
);
////%Fixpoint3d end////
+////%Letter3d start////
+Letter3d(dtlist):=Letter3d(dtlist,[]); //181218from
+Letter3d(pt3d,dir,name):=Letter3d([pt3d,dir,name],[]);
+Letter3d(pt3d,dir,name,options):=Letter3d([pt3d,dir,name],options);
+Letter3d(dtlist,options):=(
+//help:Letter3d(point3d,,direction,name);
+//help:Letter3d([point3d,,direction,name],options]);
+ regional(dt,nall,jj);
+ dt=dtlist;
+ if(mod(length(dt),3)!=0,
+ println(" Improper data");
+ ,
+ nall=length(dt)/3;
+ forall(1..nall,
+ jj=#*3-2;
+ tmp=dt_jj;
+ if(ispoint(tmp),tmp=parse(text(tmp)+"3d"));
+ dt_jj=Parapt(tmp);
+ );
+ Letter(dt,options);
+ );
+); //181218to
+////%Letter3d end////
+
+////%Expr3d start////
+Expr3d(dtlist):=Expr3d(dtlist,[]); //181218from
+Expr3d(pt3d,dir,name):=Expr3d([pt3d,dir,name],[]); //181218from
+Expr3d(pt3d,dir,name,options):=Expr3d([pt3d,dir,name],options);
+Expr3d(dtlist,options):=(
+//help:Expr3d(point3d,,direction,name);
+//help:Expr3d([point3d,,direction,name],options]);
+ regional(dt,nall,jj);
+ dt=dtlist;
+ if(mod(length(dt),3)!=0,
+ println(" Improper data");
+ ,
+ nall=length(dt)/3;
+ forall(1..nall,
+ jj=#*3-2;
+ tmp=dt_jj;
+ if(ispoint(tmp),tmp=parse(text(tmp)+"3d"));
+ dt_jj=Parapt(tmp);
+ );
+ Expr(dt,options);
+ );
+); //181218to
+////%Expr3d end////
+
////%Perppt start////
Perppt(name,ptstr,pLstr):=Putperp(name,ptstr,pLstr,"draw");
Perppt(name,ptstr,pLstr,option):=Putperp(name,ptstr,pLstr,option);
@@ -2870,7 +2918,7 @@ VertexEdgeFace(nm,vfnLorg,optionorg):=(
tmp=parse(text(vtx)+"3d");
vname=text(vtx);
,
- vname="V"+text(#); //181107
+ vname="V"+nm+text(#); //181212
if(vtxflg==1, //180905
if(fixflg==1,
Putpoint3d([vname,vtx],"fix");