[Author Prev][Author Next][Thread Prev][Thread Next][Author Index][Thread Index]
gEDA-cvs: CVS update: system-gschemrc.in
User: pcjc2
Date: 07/04/17 12:18:55
Modified: . Tag: noscreen system-gschemrc.in
Log:
Sync with trunk
Revision Changes Path
No revision
No revision
1.111.2.6 +58 -3 eda/geda/gaf/gschem/lib/system-gschemrc.in
(In the diff below, changes in quantity of whitespace are not shown.)
Index: system-gschemrc.in
===================================================================
RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/gschem/lib/system-gschemrc.in,v
retrieving revision 1.111.2.5
retrieving revision 1.111.2.6
diff -u -b -r1.111.2.5 -r1.111.2.6
--- system-gschemrc.in 6 Apr 2007 17:29:13 -0000 1.111.2.5
+++ system-gschemrc.in 17 Apr 2007 16:18:55 -0000 1.111.2.6
@@ -848,6 +848,9 @@
(lambda (char)
(list->string (list char))))
+; Attribute autoplacement grid
+(define autoplace-attributes-grid 50)
+
(define default-position-of-text-attributes
; Specifies the default position of text attributes.
; Each list entry is a list specifying the position of a text attribute.
@@ -956,23 +959,35 @@
"value" "<" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
0 -50 "Lower Middle" "Upper Middle" 0 "" 0)
(list
+ "device" "<" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
+ 0 -50 "Lower Middle" "Upper Middle" 0 "" 0)
+ (list
"refdes" ">" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
0 50 "Upper Middle" "Lower Middle" 0 "" 0)
(list
"value" ">" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
0 -50 "Lower Middle" "Upper Middle" 0 "" 0)
(list
+ "device" ">" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
+ 0 -50 "Lower Middle" "Upper Middle" 0 "" 0)
+ (list
"refdes" "^" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
0 100 "Middle Left" "Lower Right" 0 "" 0)
(list
"value" "^" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
0 -100 "Middle Left" "Lower Right" 0 "" 0)
(list
+ "device" "^" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
+ 0 -100 "Middle Left" "Lower Right" 0 "" 0)
+ (list
"refdes" "v" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
0 100 "Middle Left" "Lower Right" 0 "" 0)
(list
"value" "v" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
0 -100 "Middle Left" "Lower Right" 0 "" 0)
+ (list
+ "device" "v" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
+ 0 -100 "Middle Left" "Lower Right" 0 "" 0)
; Two directions
(list
"refdes" "<>" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
@@ -981,11 +996,17 @@
"value" "<>" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
0 -50 "Lower Middle" "Upper Middle" 0 "" 0)
(list
+ "device" "<>" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
+ 0 -50 "Lower Middle" "Upper Middle" 0 "" 0)
+ (list
"refdes" "^v" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
50 100 "Middle Right" "Lower Left" 0 "" 0)
(list
"value" "^v" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
50 -100 "Middle Right" "Lower Left" 0 "" 0)
+ (list
+ "device" "^v" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
+ 50 -100 "Middle Right" "Lower Left" 0 "" 0)
; Three directions
(list
"refdes" "<^v" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
@@ -994,23 +1015,35 @@
"value" "<^v" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
-50 -100 "Middle Left" "Lower Right" 0 "" 0)
(list
+ "device" "<^v" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
+ -50 -100 "Middle Left" "Lower Right" 0 "" 0)
+ (list
"refdes" ">^v" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
50 100 "Middle Right" "Lower Left" 0 "" 0)
(list
"value" ">^v" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
50 -100 "Middle Right" "Lower Left" 0 "" 0)
(list
+ "device" ">^v" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
+ 50 -100 "Middle Right" "Lower Left" 0 "" 0)
+ (list
"refdes" "<>v" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
-50 -50 "Lower Middle" "Upper Right" 0 "" 0)
(list
"value" "<>v" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
50 -50 "Lower Middle" "Upper Left" 0 "" 0)
(list
+ "device" "<>v" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
+ 50 -50 "Lower Middle" "Upper Left" 0 "" 0)
+ (list
"refdes" "<>^" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
-50 50 "Upper Middle" "Lower Right" 0 "" 0)
(list
"value" "<>^" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
50 50 "Upper Middle" "Lower Left" 0 "" 0)
+ (list
+ "device" "<>^" (list "OBJ_TYPE" (char2str OBJ_COMPLEX))
+ 50 50 "Upper Middle" "Lower Left" 0 "" 0)
; Four directions
(list
"refdes" "<>^v"(list "OBJ_TYPE" (char2str OBJ_COMPLEX))
@@ -1018,6 +1051,26 @@
(list
"value" "<>^v"(list "OBJ_TYPE" (char2str OBJ_COMPLEX))
50 -50 "Lower Right" "Upper Right" 0 "v>" 50)
+ (list
+ "device" "<>^v"(list "OBJ_TYPE" (char2str OBJ_COMPLEX))
+ 50 -50 "Lower Right" "Upper Right" 0 "v>" 50)
+
+ ; Net attributes
+ ; Two directions
+ (list
+ "netname" "<>" (list "OBJ_TYPE" (char2str OBJ_NET))
+ 0 50 "Upper Middle" "Lower Middle" 0 "" 0)
+ (list
+ "netname" "^v" (list "OBJ_TYPE" (char2str OBJ_NET))
+ -50 0 "Middle Middle" "Lower Middle" 90 "" 0)
+ ; Bus attributes
+ ; Two directions
+ (list
+ "netname" "<>" (list "OBJ_TYPE" (char2str OBJ_BUS))
+ 0 50 "Upper Middle" "Lower Middle" 0 "" 0)
+ (list
+ "netname" "^v" (list "OBJ_TYPE" (char2str OBJ_BUS))
+ -50 0 "Middle Middle" "Lower Middle" 90 "" 0)
))
; Position of parameters inside default-position-of-text-attributes
@@ -1058,11 +1111,11 @@
(add-hook! mirror-pin-hook (lambda (pin)
(autoplace-pin-attributes pin )) #t)
-; Autoplace component text attributes hook.
+; Autoplace component/net/buses text attributes hook.
; Comment in these if you want the component attributes to be
; automatically placed.
; There are different hooks for situations like adding a new pin, rotating
-; or mirroring an existing one, or adding a new attribute.
+; or mirroring an existing one, adding a new attribute or a new component.
; The #t at the end means that function is appended to the end of the hook.
;(add-hook! add-component-object-hook (lambda (object)
; (autoplace-object-attributes object)) #t)
@@ -1072,6 +1125,8 @@
; (autoplace-object-attributes object)) #t)
;(add-hook! add-attribute-hook (lambda (object)
; (autoplace-object-attributes object)) #t)
+;(add-hook! complex-place-list-changed-hook (lambda (object)
+; (autoplace-object-attributes object)) #t)
; Automatically place a titleblock (or other components) when creating
; a new page.
_______________________________________________
geda-cvs mailing list
geda-cvs@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-cvs