summaryrefslogtreecommitdiff
path: root/modules/tclsci/demos/tk/demredraw.sci
blob: 09c4faf7d2fcf73c070c7b933a9e15d24d6c7b71 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) ????-2008 - INRIA
//
// This file is distributed under the same license as the Scilab package.
//

function demredraw(alpha)
    global alpha0
    if alpha0 == [] then
        alpha0 = 30;
    end

    if done&abs(alpha-alpha0)>2 then
        done              = %f;
        a                 = gca();
        a.rotation_angles = [alpha,30];
        alpha0            = alpha;
        done              = %t;
    end

endfunction