Changeset 838 for misc

Timestamp:

10/09/07 07:03:27 (11 months ago)

Author:

mankoff

Message:

Scaling: Hold SHIFT and click or drag higher and lower on the image

Location:

misc/clouds

Files:

• README.TXT (modified) (1 diff)
• xyztn.pro (modified) (6 diffs)

misc/clouds/README.TXT

@@ -51 +51 @@
 IDL> xyztn, load='some_struct.sav'
 
-Everything should be self-explanatory from the UI, except for the 
-StreamLines. StreamLines are set via a right-click, or by holding down the 
-middle mouse button and interactively dragging and setting them. On my 
-MacBook this is done via a two-fingered tap on the track-pad (right), or 
-holding down the Command (Apple) key (middle) and clicking and dragging
+StreamLines: Set via a right-click, or by holding down the middle mouse 
+button and interactively dragging and setting them. On my MacBook this is 
+done via a two-fingered tap on the track-pad (right), or holding down the 
+Command (Apple) key (middle) and clicking and dragging
 
+Scaling: Hold down shift, and drag up/down, or click higher/lower. The 
+higher up the screen you go, the larger the scaling.

misc/clouds/xyztn.pro

@@ -690 +690 @@
         END
      END
-     
+
      ;; Iso level changed
      'ISO_LEVEL': BEGIN
@@ -867 +867 @@
         bHaveTransform = sState.oTrack->Update( sEvent, TRANSFORM=qmat )
         IF (bHaveTransform NE 0) THEN BEGIN
-           sState.oGroup->GetProperty, TRANSFORM=t
-           sState.oGroup->SetProperty, TRANSFORM=t#qmat
+           IF sEvent.modifiers eq 0 then begin
+              sState.oGroup->GetProperty, TRANSFORM=t
+              sState.oGroup->SetProperty, TRANSFORM=t#qmat
+           ENDIF ELSE IF sEvent.modifiers eq 1 then begin ; shift = scale
+              ;; help, sEvent, /st
+              sct = sEvent.y / 200.
+              transform = [[sct, 0, 0, 0.0], [0, sct, 0, 0.0], $
+                           [0, 0, sct, 0.0], [0, 0, 0, 1]]
+              sstate.oTop->SetProperty, transform=transform
+           ENDIF
            bRedraw = 1
         ENDIF
@@ -875 +883 @@
         ;;  Button press.
         IF (sEvent.type EQ 0) THEN BEGIN
+
            IF (sEvent.press EQ 4) THEN BEGIN ; Right mouse.
               IF (xyztnDoStream(sEvent,sState,1)) THEN BEGIN
@@ -904 +913 @@
            ENDIF
         ENDIF
-        
-        
+               
         
         IF (sEvent.press EQ 1) THEN BEGIN ; other mouse button.
-           sState.btndown = 1b
-           sState.oWindow->SetProperty, QUALITY=sState.dragq
-           WIDGET_CONTROL, sState.wDraw, /DRAW_MOTION
-           bRedraw = 1
+              sState.btndown = 1b
+              sState.oWindow->SetProperty, QUALITY=sState.dragq
+              WIDGET_CONTROL, sState.wDraw, /DRAW_MOTION
+              bRedraw = 1
         ENDIF
         ;; Button release.
@@ -1235 +1243 @@
   oView = OBJ_NEW('IDLgrView', PROJECTION=2,$
                   VIEWPLANE_RECT=myview,COLOR=[50,50,70])
-  
+
   ;; Create model.
   oTop = OBJ_NEW('IDLgrModel')
@@ -1466 +1474 @@
             oWindow: oWindow,      $
             oView: oView,          $
+            oTop: oTop,            $
             oGroup: oGroup,        $
             oCBTop: oCBTop,        $