The script is slower on Pharo3. But I think, this has nothing to do with the pharo3 image, as the same drgeo image is slower on a pharo3 vm than on the pharo 1.4 vm.
2014-06-09 23:10 GMT+02:00 Esteban Lorenzano <esteba...@gmail.com>: > I do not understand, what is/could be a vm issue? > > Esteban > > On 09 Jun 2014, at 18:08, Nicolai Hess <nicolaih...@web.de> wrote: > > Is this a VM issue? > I took the same image (drgeo from http://www.drgeo.eu/ download page) > and run it with pharo4 vm and pharo 1.4 (from http://www.drgeo.eu/) > > 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.fernan...@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) >> >> -- >> Dr. Geo http://drgeo.eu >> iStoa - https://launchpad.net/istoa >> >> >> > >
