520 msec vs 371 msec:
Image
-----
P:\Pharo4.0\drgeo.image
Pharo1.4
Latest update: #14459
Unnamed
Virtual Machine
---------------
P:\Pharo4.0\Pharo.exe
- 512 tallies, 520 msec.
....
**Leaves**
13.1% {68ms} Array class(Behavior)>>inheritsFrom:
9.4% {49ms} DrGPointIntersectionItem>>=
8.0% {42ms} DrGPointFreeItem(DrGMathItem)>>=
6.6% {35ms} OrderedCollection(SequenceableCollection)>>hasEqualElements:
6.6% {35ms} DrGCircle2ptsItem(DrGMathItem)>>parentsEqual:
6.3% {33ms} WeakActionSequence(SequenceableCollection)>>first
5.7% {29ms} OrderedCollection>>at:
4.7% {24ms} OrderedCollection>>size
2.7% {14ms} Array(Object)>>isKindOf:
2.7% {14ms} OrderedCollection(SequenceableCollection)>>=
1.8% {9ms} OrderedCollection>>do:
1.8% {9ms} OrderedCollection(SequenceableCollection)>>indexOf:startingAt:ifAbsent:
Image
-----
c:\Users\nicolai\Downloads\DrGeo.app\Contents\Resources\drgeo.image
Pharo1.4
Latest update: #14459
Unnamed
Virtual Machine
---------------
c:\Users\nicolai\Downloads\DrGeo.app\drgeo.exe
- 366 tallies, 371 msec.
**Leaves**
14.5% {54ms} OrderedCollection(SequenceableCollection)>>hasEqualElements:
11.5% {43ms} DrGPointIntersectionItem>>=
10.7% {40ms} OrderedCollection class(Behavior)>>inheritsFrom:
6.8% {25ms} DrGPointIntersectionItem(DrGMathItem)>>parentsEqual:
5.7% {21ms} OrderedCollection>>at:
5.5% {20ms} Array(SequenceableCollection)>>first
5.2% {19ms} OrderedCollection>>size
4.6% {17ms} DrGCircle2ptsItem(DrGMathItem)>>=
4.4% {16ms} Array(SequenceableCollection)>>=
3.3% {12ms} Array(Object)>>isKindOf:
2.5% {9ms} OrderedCollection(SequenceableCollection)>>indexOf:startingAt:ifAbsent:
2.2% {8ms} SmallInteger>>bitShift:
1.6% {6ms} OrderedCollection>>do:2014-06-09 12:24 GMT+02:00 Hilaire Fernandes <hilaire.fernandes@gmail.com>:
Hi Nicolai,
No, check on Smalltalk Hub. You will find instruction to install it as well.
The ConfigurationOfDrGeo will not fetch the latest code, but once
installed you can update the packages -Core and -Polymorph throught
Monticello.
Hilaire
Script to try for rendering slowness (replace "figure do:" with
"MessageTally spyOn:" to measure)
|canvas s stats points|
points :=Array new: 12.
stats := Array new: 12 withAll: 0.
canvas := DrGeoCanvas new.
canvas scale: 20; fullscreen ;
centerTo: 6@10.
2 to: 12 do: [:i |
points at: i put: (canvas point: i@0.1).
(points at: i) square; color: Color blue.
s := canvas segment: i@0 to: (points at: i).
s color: Color red].
figure do: [
1 to: 10000 do: [:i|
s := 6 atRandom + 6 atRandom.
stats at: s put: ((stats at: s)+1).
(points at: s)
name: (stats at: s) asString;
moveTo: s @ ((stats at: s) / 100).
canvas update]].
Or another script to stress other aspect:
| figure triangle |
figure := DrGeoCanvas new fullscreen.
triangle := [ ].
triangle := [:p1 :p2 :p3 :n | |s1 s2 s3 perp cercle p4 |
s1 := figure segment: p1 to: p2.
s2 := (figure segment: p2 to: p3) color: Color red; large.
s3 := figure segment: p3 to: p1.
perp := figure perpendicular: s3 at: p3.
cercle := figure circleCenter: p3 to: p2.
p4 := figure altIntersectionOf: cercle and: perp.
perp hide. cercle hide. p4 hide.
n > 0 ifTrue: [triangle value: p1 value: p3 value: p4 value: n -1]].
MessageTally spyOn: [triangle value: 0@0 value: -1@0 value: -1@1
value: 50]
Le 08/06/2014 23:07, Nicolai Hess a �crit :
>
> I would like to take a look at this, can
> you provide me your current DrGeo version you are using
> for this. (I guess it is not http://www.squeaksource.com/DrGeoII)