11-05-2016, 04:26 AM
Hello
HPuserEdit editor for (hp48/hp50) http://www.hpcalc.org/details/7587 and
DaisukeEdit (TI89) http://www.ticalc.org/archives/files/fil...39853.html are makers dialog boxes
some enthusiastic for to creating a PC program that generates dialog boxes for hp-prime? similar to hpuserEdit or daisuke edit.
Screenshots:
The idea is to automatically generate code for INPUT cmd and similar on hp-prime
Example extracted from graph3d app
HPuserEdit editor for (hp48/hp50) http://www.hpcalc.org/details/7587 and
DaisukeEdit (TI89) http://www.ticalc.org/archives/files/fil...39853.html are makers dialog boxes
some enthusiastic for to creating a PC program that generates dialog boxes for hp-prime? similar to hpuserEdit or daisuke edit.
Screenshots:
The idea is to automatically generate code for INPUT cmd and similar on hp-prime
Example extracted from graph3d app
PHP Code:
xmin3D,xmax3D;
ymin3D,ymax3D;
zmin3D,zmax3D;
grid3D,zoom3D;
rotx,roty,rotz,RotM;
xc,yc,zc,dx,dy;
recompute3D;
init3D=0;
minZ,maxZ,minD;
tmode,cmode,showbox=1;
boxpts,blines;
zclip;
xlines,ylines;
rowtrace,coltrace;
xtrace, ytrace;
showplanes;
winx, winy;
triparms;
funcs,oldfuncs;
tridefs,ldefs,ptdefs,zcols,zvals;
fsel,flist,tracefunc;
wiremode,transmode,contour,ptype;
clist,reclist;
mpan;
EXPORT inputbox()
BEGIN
local xmin=xmin3D,xmax=xmax3D;
local ymin=ymin3D,ymax=ymax3D;
local zmin=zmin3D,zmax=zmax3D;
local zoom=zoom3D,tm=transmode,wm=wiremode;
local sb=showbox,pt=ptype;
input(
{
{xmin,[0],{15,30,0}},
{xmax,[0],{65,30,0}},
{ymin,[0],{15,30,1}},
{ymax,[0],{65,30,1}},
{zmin,[0],{15,30,2}},
{zmax,[0],{65,30,2}},
{zoom,[0],{15,30,4}},
{tm,0,{90,10,4}},
{wm,0,{90,10,5}},
{sb,0,{90,10,6}},
{pt,{"Surface","3D Contour", "2D Contour"},{15,30,3}},
{mpan,0,{40,30,5}},
{showplanes,0,{40,30,6}}
},
"Graph 3D Plot Setup",
{
"Xmin=", "Xmax=",
"Ymin=", "Ymax=",
"Zmin=", "Zmax=",
"Zoom=",
"Transparent?", "Show grid?",
"Show box?", "Type",
"Mouse Pan?",
"Show Planes?"
},
{
"Enter the value of left side of the viewing box",
"Enter the value of right side of the viewing box",
"Enter the value of front side of the viewing box",
"Enter the value of back side of the viewing box",
"Enter the value of bottom side of the viewing box",
"Enter the value of top side of the viewing box",
"Enter the zoom factor (must be > 0)",
"Render surface with transparency?",
"Render surface with wireframe?",
"Show box frame?",
"Select plot type",
"Enable mouse panning?",
"Show cross-sectional planes in trace mode?"
})
END;