ThierryGoubier · December 8, 2015 09:59 · ThierryGoubier · Dec 7, 2015
diff --git a/morphicBench.st b/morphicBench.st
 "Morphic Performance Testing v2"
 | rand creating deleting hiding showing ellipses |
 rand := Random new.
 creating :=
 [ | m |   m := EllipseMorph  new.
  ellipses add: m.
     m color: Color random.
     m position: ActiveWorld extent * ((rand next)@(rand next))
 ].
 deleting := [ World removeAllMorphsIn: ellipses].
 hiding := [ ellipses do: [ :item | item hide ] ].
 showing := [ ellipses do: [ :item | item show ] ]. 

 Transcript show: 'Morphic Performance Test Code v3.0 - ##FLAVOUR## '; cr.
 Transcript show: 'amount, createTime, createRefreshTime, hideTime, hideRefreshTime, showTime, showRefreshTime, deleteTime'; cr.
 #( 1 10  100 200 300 400 500 600 700 800 900 1000 2000
 3000 4000 5000 6000 7000 8000 9000 10000  30000 100000)
 do: [ :amount | | createTime cTOneCycle hideTime hTOneCycle showTime sTOneCycle deleteTime |
 	ActiveWorld doOneCycle.
         ellipses := OrderedCollection new: amount. 
         createTime := [ amount timesRepeat: creating. 
                   World addAllMorphs: ellipses. 
         ] timeToRun asMilliSeconds. 
 	cTOneCycle := [ ActiveWorld doOneCycle ] timeToRun asMilliSeconds. 
    hideTime := [ hiding value ] timeToRun asMilliSeconds.
 	hTOneCycle := [ ActiveWorld doOneCycle ] timeToRun asMilliSeconds. 
    showTime := [ showing value ] timeToRun asMilliSeconds.
 	sTOneCycle := [ ActiveWorld doOneCycle ] timeToRun asMilliSeconds. 
    deleteTime := [ deleting value ] timeToRun asMilliSeconds.
    Transcript show: amount asString,          ' ', 
                     createTime asString,    ' ',
                   cTOneCycle asString,    ' ',  
                     hideTime asString,        ' ',
                   hTOneCycle asString,    ' ',  
                     showTime asString,       ' ', 
                   sTOneCycle asString,    ' ', 
          deleteTime asString;     cr.
 ]
	"Morphic Performance Testing v2"
	\| rand creating deleting hiding showing ellipses \|
	rand := Random new.
	creating :=
	[ \| m \| m := EllipseMorph new.
	ellipses add: m.
	m color: Color random.
	m position: ActiveWorld extent * ((rand next)@(rand next))
	].
	deleting := [ World removeAllMorphsIn: ellipses].
	hiding := [ ellipses do: [ :item \| item hide ] ].
	showing := [ ellipses do: [ :item \| item show ] ].

	Transcript show: 'Morphic Performance Test Code v3.0 - ##FLAVOUR## '; cr.
	Transcript show: 'amount, createTime, createRefreshTime, hideTime, hideRefreshTime, showTime, showRefreshTime, deleteTime'; cr.
	#( 1 10 100 200 300 400 500 600 700 800 900 1000 2000
	3000 4000 5000 6000 7000 8000 9000 10000 30000 100000)
	do: [ :amount \| \| createTime cTOneCycle hideTime hTOneCycle showTime sTOneCycle deleteTime \|
	ActiveWorld doOneCycle.
	ellipses := OrderedCollection new: amount.
	createTime := [ amount timesRepeat: creating.
	World addAllMorphs: ellipses.
	] timeToRun asMilliSeconds.
	cTOneCycle := [ ActiveWorld doOneCycle ] timeToRun asMilliSeconds.
	hideTime := [ hiding value ] timeToRun asMilliSeconds.
	hTOneCycle := [ ActiveWorld doOneCycle ] timeToRun asMilliSeconds.
	showTime := [ showing value ] timeToRun asMilliSeconds.
	sTOneCycle := [ ActiveWorld doOneCycle ] timeToRun asMilliSeconds.
	deleteTime := [ deleting value ] timeToRun asMilliSeconds.
	Transcript show: amount asString, ' ',
	createTime asString, ' ',
	cTOneCycle asString, ' ',
	hideTime asString, ' ',
	hTOneCycle asString, ' ',
	showTime asString, ' ',
	sTOneCycle asString, ' ',
	deleteTime asString; cr.
	]