← Back to branch summary

~ubuntu-branches/ubuntu/hoary/scilab/hoary

« back to all changes in this revision

Viewing changes to macros/metanet/ge_do_zoom.sci

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2005-01-09 22:58:21 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20050109225821-473xr8vhgugxxx5j
Tags: 3.0-12
http://bugs.debian.org/255869
changed configure.in to build scilab's own malloc.o, closes: #255869

Show diffs side-by-side

added added

removed removed

Lines of Context:
macros/metanet/ge_do_zoom.sci
 
1
function ge_do_zoom()
 
2
//Copyright INRIA
 
3
//Author : Serge Steer 2002
 
4
 
 
5
   Z=[12.5 25:25:400]
 
6
   execstr('global EGdata_'+w+';EGdata=EGdata_'+w)
 
7
   c=x_choose(['Other value',string(Z)+'%'],'Choose a a zoom factor')
 
8
   if c==0 then return,end
 
9
   c=c-1;
 
10
   if c==0 then 
 
11
     cl=string(100*EGdata.Zoom)
 
12
     while c<=0 then
 
13
       [ok,c,cl]=getvalue('Enter a zoom factor (%)','Factor',list('vec',1),cl)
 
14
       if ~ok then return,end
 
15
     end
 
16
   else
 
17
     c=Z(c)
 
18
   end
 
19
   
 
20
   EGdata.Zoom=c/100;
 
21
   EGdata.Edited=%t
 
22
   GraphList=EGdata.GraphList
 
23
   
 
24
   execstr('EGdata_'+w+'=EGdata')
 
25
   
 
26
   xbasc()
 
27
   ge_set_winsize()
 
28
   ge_drawobjs(GraphList),
 
29
   
 
30
   
 
31
 
 
32
endfunction