diff --git a/doc/xschem_man/developer_info.html b/doc/xschem_man/developer_info.html
index 90e8b65d..0080e77f 100644
--- a/doc/xschem_man/developer_info.html
+++ b/doc/xschem_man/developer_info.html
@@ -492,16 +492,6 @@ C {verilog_timescale.sym} 1050 -100 0 0 {name=s1 timestep="1ns" precision="1ns"
-
-
-
-
-
-
-
-
-
-
@@ -581,13 +571,6 @@ C {verilog_timescale.sym} 1050 -100 0 0 {name=s1 timestep="1ns" precision="1ns"
Create an xplot file in netlist/simulation directory with
the list of highlighted nodes in a format the selected waveform
viewer understands (bespice, gaw, ngspice)
- create_text draw x y rot flip text props size
- Create a text object
- draw is a flag. If set to 1 will draw the created text
- x, y, rot, flip specify the position and orientation
- text is the text string
- props is the attribute string
- size sets the size
cut
Cut selection to clipboard
debug n
@@ -689,6 +672,11 @@ C {verilog_timescale.sym} 1050 -100 0 0 {name=s1 timestep="1ns" precision="1ns"
sellayer layer number for selection
semaphore used for debug
schname get full path of current sch. if 'n' given get sch of level 'n'
+ schprop get schematic "spice" global attributes
+ schvhdlprop get schematic "vhdl" global attributes
+ schverilogprop get schematic "verilog" global attributes
+ schsymbolprop get schematic "symbol" global attributes
+ schtedaxprop get schematic "tedax" global attributes
sch_path get hierarchy path. if 'n' given get hierpath of level 'n'
sch_to_compare if set return schematic current design is compared with
temp_dir get windows temporary dir
@@ -1257,6 +1245,13 @@ C {verilog_timescale.sym} 1050 -100 0 0 {name=s1 timestep="1ns" precision="1ns"
0.0 0.0 1.8 0.3
0.1 0.0 1.5 0.6
... ... ... ...
+ text x y rot flip text props size draw
+ Create a text object
+ x, y, rot, flip specify the position and orientation
+ text is the text string
+ props is the attribute string
+ size sets the size
+ draw is a flag. If set to 1 will draw the created text
test
testmode
toggle_colorscheme
@@ -1333,6 +1328,16 @@ C {verilog_timescale.sym} 1050 -100 0 0 {name=s1 timestep="1ns" precision="1ns"
+
+
+
+
+
+
+
+
+
+
diff --git a/src/create_graph.tcl b/src/create_graph.tcl
index e2aea468..b3346176 100644
--- a/src/create_graph.tcl
+++ b/src/create_graph.tcl
@@ -27,7 +27,7 @@ proc create_graph {title rawfile node {analysis tran} {color {4 5 6 7 8 9 10 11
xschem clear force
# add title text
- xschem create_text 1 30 -350 0 0 $title {} 0.5
+ xschem text 30 -350 0 0 $title {} 0.5 1
# clear loaded raw file if any
xschem raw_clear
# set current layer to graph layer (grey, layer 2)
diff --git a/src/place_sym_pins.tcl b/src/place_sym_pins.tcl
index 2bb142ea..a74e4b30 100644
--- a/src/place_sym_pins.tcl
+++ b/src/place_sym_pins.tcl
@@ -38,7 +38,7 @@ proc place_sym_pins {filename dir {x 0} {y 0} {spacing 20}} {
xschem rect $x1 $y1 $x2 $y2 -1 "name=$name dir=$dir" 0
xschem set rectcolor 4 ;# symbol line color
xschem line $x $y [expr {$x + $line_offset}] $y {} 0
- xschem create_text 0 [expr {$x + $offset}] [expr {$y - 4}] 0 $flip $name {} 0.2
+ xschem text [expr {$x + $offset}] [expr {$y - 4}] 0 $flip $name {} 0.2 0
incr y $spacing
}
xschem set schsymbolprop "type=subcircuit\nformat=\"@name @pinlist @symname\"\ntemplate=\"name=X1\""
diff --git a/src/scheduler.c b/src/scheduler.c
index 03896182..aa34acc5 100644
--- a/src/scheduler.c
+++ b/src/scheduler.c
@@ -567,24 +567,6 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
Tcl_ResetResult(interp);
}
- /* create_text draw x y rot flip text props size
- * Create a text object
- * draw is a flag. If set to 1 will draw the created text
- * x, y, rot, flip specify the position and orientation
- * text is the text string
- * props is the attribute string
- * size sets the size */
- else if(!strcmp(argv[1], "create_text") )
- {
- if(!xctx) {Tcl_SetResult(interp, not_avail, TCL_STATIC); return TCL_ERROR;}
-
- if(argc > 9) {
- create_text(atoi(argv[2]), atof(argv[3]), atof(argv[4]), atoi(argv[5]), atoi(argv[6]),
- argv[7], argv[8], atof(argv[9]), atof(argv[9]));
- }
- Tcl_ResetResult(interp);
- }
-
/* cut
* Cut selection to clipboard */
else if(!strcmp(argv[1], "cut"))
@@ -1189,6 +1171,26 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
Tcl_SetResult(interp, xctx->sch[x], TCL_VOLATILE);
}
}
+ else if(!strcmp(argv[2], "schprop")) /* get schematic "spice" global attributes */
+ {
+ Tcl_SetResult(interp, xctx->schprop ? xctx->schprop : "", TCL_VOLATILE);
+ }
+ else if(!strcmp(argv[2], "schvhdlprop")) /* get schematic "vhdl" global attributes */
+ {
+ Tcl_SetResult(interp, xctx->schvhdlprop ? xctx->schvhdlprop : "", TCL_VOLATILE);
+ }
+ else if(!strcmp(argv[2], "schverilogprop")) /* get schematic "verilog" global attributes */
+ {
+ Tcl_SetResult(interp, xctx->schverilogprop ? xctx->schverilogprop : "", TCL_VOLATILE);
+ }
+ else if(!strcmp(argv[2], "schsymbolprop")) /* get schematic "symbol" global attributes */
+ {
+ Tcl_SetResult(interp, xctx->schsymbolprop ? xctx->schsymbolprop : "", TCL_VOLATILE);
+ }
+ else if(!strcmp(argv[2], "schtedaxprop")) /* get schematic "tedax" global attributes */
+ {
+ Tcl_SetResult(interp, xctx->schtedaxprop ? xctx->schtedaxprop : "", TCL_VOLATILE);
+ }
else if(!strcmp(argv[2], "sch_path")) /* get hierarchy path. if 'n' given get hierpath of level 'n' */
{
int x;
@@ -4393,6 +4395,25 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
Tcl_ResetResult(interp);
}
+ /* text x y rot flip text props size draw
+ * Create a text object
+ * x, y, rot, flip specify the position and orientation
+ * text is the text string
+ * props is the attribute string
+ * size sets the size
+ * draw is a flag. If set to 1 will draw the created text */
+ else if(!strcmp(argv[1], "text") )
+ {
+ if(!xctx) {Tcl_SetResult(interp, not_avail, TCL_STATIC); return TCL_ERROR;}
+ if(argc < 10) {Tcl_SetResult(interp,
+ "xschem text requires 8 additional arguments", TCL_STATIC); return TCL_ERROR;}
+
+ create_text(atoi(argv[9]), atof(argv[2]), atof(argv[3]), atoi(argv[4]), atoi(argv[5]),
+ argv[6], argv[7], atof(argv[8]), atof(argv[9]));
+ Tcl_ResetResult(interp);
+ }
+
+
/* test
* testmode */
else if(!strcmp(argv[1], "test"))