Changeset 25530 in project


Ignore:
Timestamp:
11/21/11 15:33:44 (8 years ago)
Author:
Alaric Snell-Pym
Message:

banterpixra: used a better name than "make-blob" for the procedure to make blobby boxes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/banterpixra/trunk/banterpixra.scm

    r18811 r25530  
    433433            (height ,(number->string h)))))
    434434
    435 (define (make-blob x y w h style)
     435(define (make-rounded-blob x y w h style)
    436436  `(rect (@ (x ,(number->string x))
    437437            (y ,(number->string y))
     
    510510(define (rule->svg* diagram)
    511511  (make-group
    512    (make-blob (diagram-x diagram) (diagram-y diagram)
     512   (make-rounded-blob (diagram-x diagram) (diagram-y diagram)
    513513              (diagram-width diagram) (diagram-height diagram)
    514514              '((stroke "black")))
Note: See TracChangeset for help on using the changeset viewer.