Reset mark type to avoid ugly rectangle.
[scilab.git] / scilab / modules / graphics / demos / basic_functions / basic_functions_2.dem.sce
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2007-2008 - INRIA
3 // Copyright (C) 2010 - DIGITEO - Allan CORNET
4 //
5 // This file is released under the 3-clause BSD license. See COPYING-BSD.
6
7 function demo_basic_function2()
8     mode(-1);
9
10     my_handle             = scf(100001);
11     clf(my_handle,"reset");
12     demo_viewCode("basic_functions_2.dem.sce");
13
14     my_plot_desc          = "rectangles, arcs, polylines and strings";
15     my_handle.figure_name = my_plot_desc;
16
17     plot2d([-100,500],[-100,600],[-1,-1],"022");
18     a           = gca();
19     t           = a.title;
20     t.text      = my_plot_desc;
21     t.font_size = 3;
22
23     // clipping
24     a.clip_state = "clipgrf";
25
26     deff("[v]=transl(x,t)","v=x+t*ones(x)");
27
28     messagebox(["[II] Basic Functions of drivers :"],"modal");
29
30     // Demo II.1
31     expr="xrect(20,120,60,60);";
32     messagebox(["[II.1] xrect : draw one rectangle with current line style";expr],"modal");
33     execstr(expr);
34
35     // Demo II.2
36     expr="xfrect(100,120,60,60);";
37     messagebox(["[II.1] xfrect : fill one rectangle with current pattern";expr],"modal");
38     execstr(expr);
39
40     // Demo II.3
41     expr="xarc(20,200,50,70,0,64*(225));";
42     messagebox(["[II.2] xarc : draw part of an elipsis";expr],"modal");
43     execstr(expr);
44
45     // Demo II.4
46     expr="xfarc(100,200,50,70,0,64*225);";
47     messagebox(["[II.2] xfarc : fill part of an elipsis";expr],"modal");
48     execstr(expr);
49
50     // Demo II.5
51     expr0=["x=0:1:%pi;";
52     "[n1,n2]=size(x);";
53     "x1=50*sin(x)+40*ones(x);";
54     "y1=50*cos(x)+90*ones(x);"];
55
56     expr=[expr0;
57     "xset(''mark'',6,1);";
58     "y1=transl(y1,200);";
59     "xpoly(x1,y1,''marks'',0);";
60     "xset(''mark'',4,6);";
61     "x1=transl(x1,80);";
62     "xpoly(x1,y1,''marks'',0);"];
63
64     messagebox(["[II.3] xpoly(x,y,""marks"",0)";expr],"modal");
65     execstr(expr);
66
67     // Demo II.6
68     expr=[expr0;"x1=transl(x1,160);";
69     "xpoly(x1,y1,''lines'',0);"];
70     messagebox(["[II.3] xpoly(x,y,""lines"",0)";expr],"modal");
71     execstr(expr);
72
73     // Demo II.7
74     expr=[expr0;"x1=transl(x1,240);";
75     "xpoly(x1,y1,''lines'',1);"]
76     messagebox(["[II.3] xpoly(x,y,""lines"",1)";expr],"modal");
77     execstr(expr);
78
79     // Demo II.8
80     expr=[expr0;"x1=transl(x1,320);";
81     "xfpoly(x1,y1,1);"]
82     messagebox(["[II.4] xfpoly(x,y,1)";expr],"modal");
83     execstr(expr);
84
85     // Demo II.9
86     expr=["xset(''font'',2,2);";
87     "xstring(200,200,''Character string'',0,0);";
88     "xstring(200,250,''Character string'',0,1);";
89     "xstring(400,300,''Chaine '',45,0);"];
90     messagebox(["[II.5] xstring";expr],"modal");
91     execstr(expr);
92
93     // Demo II.10
94     expr=["xset(''mark'', 0, 0);"
95         "rect=xstringl(350,200,''Character string'');";
96         "xrect(rect(1),rect(2),rect(3),rect(4));"]
97     messagebox(["[II.6] xstringl";expr],"modal");
98     execstr(expr);
99
100 endfunction
101
102 demo_basic_function2();
103 clear demo_basic_function2;