Megatest

Diff
Login

Differences From Artifact [48b3b2908c]:

To Artifact [69bd36bdf2]:


14
15
16
17
18
19
20

21
22
23





24

25
26
27
28
29
30
31
14
15
16
17
18
19
20
21



22
23
24
25
26
27
28
29
30
31
32
33
34
35







+
-
-
-
+
+
+
+
+

+







;;     GNU General Public License for more details.
;; 
;;     You should have received a copy of the GNU General Public License
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

;;  strftime('%m/%d/%Y %H:%M:%S','now','localtime')

(declare (unit vg))
(use typed-records srfi-1)

(declare (unit vg))

(module vg
    *
  
(import scheme chicken data-structures extras ports)
(use canvas-draw iup)
(use typed-records srfi-1 srfi-69)
(import canvas-draw-iup)

(include "vg_records.scm")

;; ;; structs
;; ;;
;; (defstruct vg:lib     comps)
660
661
662
663
664
665
666


664
665
666
667
668
669
670
671
672







+
+
	  (let* ((inst     (hash-table-ref/default insts instname #f))
		 (newres   (if inst
			       (vg:draw-inst drawing inst draw-mode: draw-mode prev-extents: res)
			       res)))
	    (if (null? tal)
		newres
		(loop (car tal)(cdr tal) newres)))))))

)