forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Mouse rotation in 3D simfit

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Support
View previous topic :: View next topic  
Author Message
StamK



Joined: 12 Oct 2016
Posts: 159

PostPosted: Wed Jan 04, 2023 11:06 am    Post subject: Mouse rotation in 3D simfit Reply with quote

Is this something possible? I mean for the user to rotate/zoom a 3D graph?
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 7916
Location: Salford, UK

PostPosted: Wed Jan 04, 2023 12:17 pm    Post subject: Reply with quote

Do you mean Simfit? Which part of Simfit are you using?
Back to top
View user's profile Send private message AIM Address
StamK



Joined: 12 Oct 2016
Posts: 159

PostPosted: Wed Jan 04, 2023 1:02 pm    Post subject: Reply with quote

We are thinking of using SimFit with our Silverfrost Fortran program and was wondering if it allows mouse rotation/zoom of a 3D graph.
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 7916
Location: Salford, UK

PostPosted: Wed Jan 04, 2023 9:51 pm    Post subject: Reply with quote

This information is from Bill Bardsley who can be contacted via bill.bardsley@simfit.org.uk. (I assume that there is no automatic response to mouse events.)

Three dimensional surface plots and two dimensional contour diagrams using simdem.

The routine surd2s is called as shown below by option 29 of simdem70 with user-supplied coordinates and gives the option to plot either a 3D surface, a 2D contour, or a 3D surface projected onto a 2D contour, all of which can be rotated in multiples of quarter pi and then edited interactively before saving a hardcopy.

Code:

!
! 3D surface/bar chart/contours
!
            i1 = 10
            i2 = nsmax
            if (nsur.gt.i2) nsur = i2
            call getjm1 (i1, nsur, i2, 'No. of divisions required')
            xmin = - one
            xmax = one
            ymin = - one
            ymax = one
            delta = (xmax - xmin)/(dble(nsur - 1))
            atemp = xmin - delta
            do j = 1, nsur
               atemp = atemp + delta
               btemp = ymin - delta
               do i = 1, nsur
                  btemp = btemp + delta
                  z(i,j) = btemp**2 - atemp**2
               enddo
            enddo
            isend = 4
            call surd2s (isend, nsmax, nsur, nsur, &
                         vector, xmax, xmin, ymax, ymin, z, &
                         unused)
Back to top
View user's profile Send private message AIM Address
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Support All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group