August 2006 - mcclim-devel - mailman3.common-lisp.net

Re: Fwd: Re: [mcclim-devel] Severe performance regression with latest CVS sources?
by Christophe Rhodes 22 Nov '06

22 Nov '06

Paolo Amoroso <amoroso(a)mclink.it> writes: >> twice that many hash tables with (make-hash-table)? The other thing > > CL-USER> (time (dotimes (i (* 2 824)) > (make-hash-table))) > ; Compiling LAMBDA NIL: > ; Compiling Top-Level Form: > > ; Evaluation took: > ; 6,648 CPU cycles It's elided the creation, I'm afraid. Can you do (defvar *foo*) (time (dotimes (i (* 2 824)) (setq *foo* (make-hash-table)))) ? > ; > NIL > CL-USER> > > >> to look at is for collisions in your hash tables; check the EDGES-FROM >> slot of something with a lot of direct subclasses, say STRUCTURE-CLASS >> or CONDITION or NUMBER, and see if all of the entries are in the same >> bucket of the hash table) > > I'm not sure I understand what you mean. I used the SLIME inspector > to inspect the output of, say, (find-class 'structure-class). I > include the output below, which does not seem to have any EDGES-FROM > slot. I think the edges-from should be in the graph node output record. I'm not entirely sure how to get at one of those, but you could start by inspecting clim:*application-frame* from the slime inspector, finding the listener interactor pane, finding its output history, and looking at the output records in there. > 588,259,376 | 1,111 | 15.158 | 0.01364 | 529,486 | CLIM-INTERNALS::LAYOUT-EDGE-1 > 1,111: #<Code Object "LAMBDA (FWRAPPER)" {5A58260F}> > 1,470,608 | 2,222 | 0.056 | 0.00003 | 662 | CLIM-INTERNALS::ENSURE-EDGE-RECORD > 1,111: #<Code Object "DEFUN LAYOUT-EDGE" {59718A4F}> > 1,111: #<Code Object "DEFUN LAYOUT-EDGE-1" {5A75B007}> Well, that's moderately conclusive: the cost seems to be in LAYOUT-EDGE-1, not in ENSURE-EDGE-RECORD. Which is weird, because I can't really see what LAYOUT-EDGE-1 is doing that is so ludicrously expensive. Can you do the same thing, but with the CLIM package profiled additionally? (And then maybe one with CLIM but not CLIM-INTERNALS profiled?) The first 10 or so entries in each profile will probably suffice. (Maybe CLEAR-OUTPUT-RECORD is expensive?) Cheers, Christophe

3 3

[mcclim-devel] draw-arrow with transformation, freetype with fix(ed) fonts
by Luigi Panzeri 14 Oct '06

14 Oct '06

Hi all (and good holiday if you are in vacation), i noted two strange behavior, but I am not a clim expert but so sorry if i miss something. 1) draw-arrow* use the line-style-thickness to calculate distances in order to draw the head, but that thickness is not transformed with the current user transformation. So for example: (in-package :clim-user) (define-application-frame foo () () (:panes (app :application :width 1000 :height 1000 :display-function #'display)) (:layouts (default (vertically () app)))) (defun display (frame stream) (declare (ignore frame)) (with-first-quadrant-coordinates (stream 0 1000) (with-scaling (stream 250 250) ;; so now it is 4x4 (draw-line* stream 2 1 2 2.5) (draw-arrow* stream 1 1 1 2.5 :head-length 0.1 :head-width 0.1)))) (run-frame-top-level (make-application-frame 'foo)) i draw a 4x4 grid drawing a line and a parallel arrow (of the same length), but the two drawing is not of the same length. I tried to fix that (see first attachment). 2) in make-text-style i can specify the font family with :fix or :fixed for fixed fonts, but the freetype experimental extension accept only :fix (that is standard-compliant afaik). Do you have suggestion for the delivery of mcclim application (e.g. to avoid the debugger et similia)?

2 1

[mcclim-devel] [ANN] cl-wav-synth - express noises as you think V2006-08-26
by Philippe Brochard 04 Sep '06

04 Sep '06

Hi everybody, I'm glad to announce the last public release of cl-wav-synth. cl-wav-synth is a wav sample editor. It comes in two parts, the main library for manipulating wav files and a (Mc)CLIM interface with a full lisp listener, a sample pane editor, a spectrum pane editor and a song pane editor. The wav sample editor is driven from the lisp REPL: you can watch immediately the result of each applied functions. cl-wav-synth comes with some effects as echo, delay, pitch... The spectrum editor is here just for educational purpose. It show the effect of adding sinus together. But it can load spectrum from the sharc project and can be used to produce instruments sounds (the sample amplitude need to be modified to have a real sound). The song editor is a way to express a song. A song is just a list of events to write on a wav file. cl-wav-synth traverses the song list and evaluates the form of each song-sample, if the result is a wav sample, it is merged in the song wav file. Since the last release, there have been many enhancements For samples: - Sample flags (or multiselections) - Sample tones - To produce all the musical range (do, ré, mi... or a, b, c...) from a single sample. - Envelope manipulation (drawing mode) - Players choices (tested under Unix/MacOS/Windows) For songs: - Mouse rectangular selection (move/delete/copy selection) - Undo/Redo system - Grid and snap And some bug fixes (in particular a double redisplay which divided the performances by two (sorry for the bad pub)). You can find more here: http://common-lisp.net/project/cl-wav-synth/ Have fun, and thanks all for your great work with McCLIM ! I'm really amazed how easy it is to make graphical things with clim (once your accustomed to it). Regards, Philippe -- Philippe Brochard <hocwp(a)free.fr> http://hocwp.free.fr -=-= http://www.gnu.org/home.fr.html =-=-

1 1

[mcclim-devel] international text help
by Hazen Babcock 24 Aug '06

24 Aug '06

Hello, I'd like to display some chinese characters in my mcclim application, but I'm not sure how to go about this. I've loaded :mcclim-freetype and tried to follow: http://common-lisp.net/pipermail/mcclim-devel/ 2005-August/004136.html since I have a truetype font that includes chinese characters. (defmethod display-some-pane ((frame translator-frame) stream) (declare (ignore stream)) (let ((pane (get-frame-pane *application-frame* 'some-pane))) (window-clear pane) (with-text-style (pane (make-device-font-text-style (port *application-frame*) "/usr/share/fonts/truetype/ttf-bitstream-vera/VeraBd.ttf")) (draw-text* pane "foo" 10 10)))) gives: The value "/usr/share/fonts/truetype/ttf-bitstream-vera/VeraBd.ttf" is not of type MCCLIM-FREETYPE::FREETYPE-DEVICE-FONT-NAME. [Condition of type TYPE-ERROR] If I use a function that I don't think I'm supposed to use directly: (defmethod display-some-pane ((frame translator-frame) stream) (declare (ignore stream)) (let ((pane (get-frame-pane *application-frame* 'some-pane))) (window-clear pane) (with-text-style (pane (make-device-font-text-style (port *application-frame*) (mcclim-freetype::make-freetype-device-font-name :font-file "/usr/share/fonts/truetype/ttf-bitstream-vera/ VeraBd.ttf" :size 12))) (draw-text* pane "foo" 10 10)))) then it works, but I imagine that this is not the right/supported way. thanks, -Hazen

1 0