diff options
author | Karl Berry <karl@freefriends.org> | 2018-12-25 21:49:04 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-12-25 21:49:04 +0000 |
commit | 149bc3fbc5c7aac22d6f6439c5af590420f2b82d (patch) | |
tree | a7835e48b0e16a3a57e6078a85b81665ee404401 /Master/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs | |
parent | 9ddb2c44860e61a962778bcb5294315c3722db6b (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.cs | 54 |
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"); |