Revision 3828 trunk/extensions/extCAD/sm/CircleCADTool.sm
| CircleCADTool.sm | ||
|---|---|---|
| 9 | 9 |
%class CircleCADTool |
| 10 | 10 |
%package com.iver.cit.gvsig.gui.cad.tools.smc |
| 11 | 11 |
%import com.iver.cit.gvsig.gui.cad.tools.CircleCADTool |
| 12 |
%import com.iver.cit.gvsig.fmap.layers.FBitSet |
|
| 13 | 12 |
|
| 13 |
|
|
| 14 | 14 |
%map ExecuteMap |
| 15 | 15 |
%% |
| 16 | 16 |
// A task begins life in suspended animation. |
| ... | ... | |
| 25 | 25 |
} |
| 26 | 26 |
|
| 27 | 27 |
{
|
| 28 |
addPoint(sel:FBitSet,pointX:double,pointY:double)
|
|
| 28 |
addPoint( pointX:double,pointY:double)
|
|
| 29 | 29 |
First {
|
| 30 | 30 |
setQuestion("Insertar radio o segundo punto");
|
| 31 |
addPoint(sel,pointX,pointY);
|
|
| 31 |
addPoint( pointX,pointY);
|
|
| 32 | 32 |
} |
| 33 |
addOption(sel:FBitSet,s:String)
|
|
| 33 |
addOption( s:String)
|
|
| 34 | 34 |
Seventh{
|
| 35 | 35 |
setQuestion("Insertar primer punto");
|
| 36 |
addOption(sel,s);
|
|
| 36 |
addOption( s);
|
|
| 37 | 37 |
} |
| 38 | 38 |
|
| 39 | 39 |
} |
| 40 | 40 |
First{
|
| 41 |
addPoint(sel:FBitSet,pointX:double,pointY:double)
|
|
| 41 |
addPoint( pointX:double,pointY:double)
|
|
| 42 | 42 |
Sixth {
|
| 43 |
addPoint(sel,pointX,pointY);
|
|
| 43 |
addPoint( pointX,pointY);
|
|
| 44 | 44 |
end(); |
| 45 | 45 |
} |
| 46 |
addValue(sel:FBitSet,d:double)
|
|
| 46 |
addValue( d:double)
|
|
| 47 | 47 |
Fiveth {
|
| 48 |
addValue(sel,d);
|
|
| 48 |
addValue( d);
|
|
| 49 | 49 |
end(); |
| 50 | 50 |
} |
| 51 | 51 |
|
| 52 | 52 |
} |
| 53 | 53 |
Second{
|
| 54 |
addPoint(sel:FBitSet,pointX:double,pointY:double)
|
|
| 54 |
addPoint( pointX:double,pointY:double)
|
|
| 55 | 55 |
Third {
|
| 56 | 56 |
setQuestion("Insertar tercer punto");
|
| 57 |
addPoint(sel,pointX,pointY);
|
|
| 57 |
addPoint( pointX,pointY);
|
|
| 58 | 58 |
} |
| 59 | 59 |
} |
| 60 | 60 |
Third{
|
| 61 |
addPoint(sel:FBitSet,pointX:double,pointY:double)
|
|
| 61 |
addPoint( pointX:double,pointY:double)
|
|
| 62 | 62 |
Fourth {
|
| 63 |
addPoint(sel,pointX,pointY);
|
|
| 63 |
addPoint( pointX,pointY);
|
|
| 64 | 64 |
end(); |
| 65 | 65 |
} |
| 66 | 66 |
} |
| ... | ... | |
| 72 | 72 |
Sixth{
|
| 73 | 73 |
} |
| 74 | 74 |
Seventh{
|
| 75 |
addPoint(sel:FBitSet,pointX:double,pointY:double)
|
|
| 75 |
addPoint( pointX:double,pointY:double)
|
|
| 76 | 76 |
Second {
|
| 77 | 77 |
setQuestion("Insertar segundo punto");
|
| 78 |
addPoint(sel,pointX,pointY);
|
|
| 78 |
addPoint( pointX,pointY);
|
|
| 79 | 79 |
} |
| 80 | 80 |
} |
| 81 | 81 |
Default{
|
Also available in: Unified diff