← Back to branch summary

~ubuntu-branches/ubuntu/saucy/texmacs/saucy-proposed

« back to all changes in this revision

Viewing changes to TeXmacs/progs/graphics/graphics-utils.scm

  • Committer: Bazaar Package Importer
  • Author(s): Atsuhito KOHDA
  • Date: 2011-04-04 13:58:09 UTC
  • mfrom: (4.1.13 sid)
  • Revision ID: james.westby@ubuntu.com-20110404135809-6f6jvotefb694vgp
Tags: 1:1.0.7.10-1
http://bugs.debian.org/582228
* New Upstream Release.
* Added gostscript to Build-Depends.  (Closes: #582228)

Show diffs side-by-side

added added

removed removed

Lines of Context:
TeXmacs/progs/graphics/graphics-utils.scm
333
333
      (graphics ""))
334
334
   '(6 1)))
335
335
 
 
336
(tm-define (graphics-mode-attribute? mode attr)
 
337
  (if (func? mode 'edit 1) (set! mode (cadr mode)))
 
338
  (cond ((in? mode '(point))
 
339
         (in? attr '("color" "point-style")))
 
340
        ((in? mode gr-tags-curves)
 
341
         (in? attr '("color" "line-width" "dash-style"
 
342
                     "dash-style-unit" "line-arrows" "fill-color")))
 
343
        ((in? mode '(text-at))
 
344
         (in? attr '("text-at-halign" "text-at-valign")))
 
345
        (else #f)))
 
346
 
336
347
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
337
348
;; Subroutines for accessing the properties of the graphics
338
349
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
422
433
 
423
434
(tm-define (local-magnification amagn)
424
435
  (set! amagn (convert-magn amagn))
425
 
 `(times ,(f2s (/ amagn (s2f (graphics-eval-magnification))))
 
436
  `(times ,(f2s (/ amagn (s2f (graphics-eval-magnification))))
426
437
          (value "magnification")))
427
438
 
428
439
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
477
488
           (graphics-enrich-sub t
478
489
            `(("color" ,color)
479
490
              ("line-width" ,lw)
480
 
              ("magnification" ,mag)
 
491
              ;;("magnification" ,mag)
481
492
              ("dash-style" ,st) ("dash-style-unit" ,stu)
482
493
              ("line-arrows" ,lp)
483
494
              ("fill-color" ,fc))))
484
495
          ((== mode 'text-at)
485
496
           (graphics-enrich-sub t
486
 
            `(("magnification" ,mag)
 
497
            `(;;("magnification" ,mag)
487
498
              ("text-at-halign" ,ha)
488
499
              ("text-at-valign" ,va))))
489
500
          ((== mode 'gr-group)
491
502
            `(("color" ,color)
492
503
              ("point-style" ,ps)
493
504
              ("line-width" ,lw)
494
 
              ("magnification" ,mag)
 
505
              ;;("magnification" ,mag)
495
506
              ("dash-style" ,st) ("dash-style-unit" ,stu)
496
507
              ("line-arrows" ,lp)
497
508
              ("fill-color" ,fc)