diff --git a/src/BlocBenchs-FPS/BlBasicAnimation.class.st b/src/BlocBenchs-FPS/BlBasicAnimation.class.st index f31b42b..bd4d025 100644 --- a/src/BlocBenchs-FPS/BlBasicAnimation.class.st +++ b/src/BlocBenchs-FPS/BlBasicAnimation.class.st @@ -1,31 +1,33 @@ Class { - #name : #BlBasicAnimation, - #superclass : #BlBaseAnimation, + #name : 'BlBasicAnimation', + #superclass : 'BlBaseAnimation', #instVars : [ 'stepBlock' ], - #category : #'BlocBenchs-FPS-Utility' + #category : 'BlocBenchs-FPS-Utility', + #package : 'BlocBenchs-FPS', + #tag : 'Utility' } -{ #category : #pulse } +{ #category : 'pulse' } BlBasicAnimation >> doStep [ stepBlock cull: target ] -{ #category : #accessing } +{ #category : 'accessing' } BlBasicAnimation >> duration [ ^ 1 minute ] -{ #category : #accessing } +{ #category : 'accessing' } BlBasicAnimation >> initialize [ super initialize. self beInfinite. ] -{ #category : #pulse } +{ #category : 'pulse' } BlBasicAnimation >> onStepDo: aBlock [ stepBlock := aBlock ] diff --git a/src/BlocBenchs-FPS/BlFPSTracer.class.st b/src/BlocBenchs-FPS/BlFPSTracer.class.st index ba1fb30..00e34cc 100644 --- a/src/BlocBenchs-FPS/BlFPSTracer.class.st +++ b/src/BlocBenchs-FPS/BlFPSTracer.class.st @@ -4,8 +4,8 @@ I trace to Transcript animation statistics of a Bloc space. See an example of use on my class side. " Class { - #name : #BlFPSTracer, - #superclass : #Object, + #name : 'BlFPSTracer', + #superclass : 'Object', #instVars : [ 'framesDeltaMS', 'lastMS', @@ -16,10 +16,12 @@ Class { 'spaceShownEventHandler', 'spaceRenderEndEventHandler' ], - #category : #'BlocBenchs-FPS-Utility' + #category : 'BlocBenchs-FPS-Utility', + #package : 'BlocBenchs-FPS', + #tag : 'Utility' } -{ #category : #examples } +{ #category : 'examples' } BlFPSTracer class >> exampleOfUse [ "The #start adds a handler to the space shown event, then it should be added before space show." @@ -41,7 +43,7 @@ BlFPSTracer class >> exampleOfUse [ ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFPSTracer class >> newOnSpace: aSpace [ ^ self basicNew @@ -49,7 +51,7 @@ BlFPSTracer class >> newOnSpace: aSpace [ yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFPSTracer class >> startOnSpace: aBlSpace [ ^ (self newOnSpace: aBlSpace) @@ -57,7 +59,7 @@ BlFPSTracer class >> startOnSpace: aBlSpace [ yourself ] -{ #category : #displaying } +{ #category : 'displaying' } BlFPSTracer >> forkLoopProcess [ loopProcess := [ @@ -79,7 +81,7 @@ BlFPSTracer >> forkLoopProcess [ ] -{ #category : #displaying } +{ #category : 'displaying' } BlFPSTracer >> initializeOnSpace: aSpace [ self initialize. @@ -108,7 +110,7 @@ BlFPSTracer >> initializeOnSpace: aSpace [ ] -{ #category : #printing } +{ #category : 'printing' } BlFPSTracer >> printOn: aStream [ super printOn: aStream. @@ -118,7 +120,7 @@ BlFPSTracer >> printOn: aStream [ nextPut: $) ] -{ #category : #displaying } +{ #category : 'displaying' } BlFPSTracer >> printStatsOn: aStream [ aStream @@ -133,14 +135,14 @@ BlFPSTracer >> printStatsOn: aStream [ ] -{ #category : #displaying } +{ #category : 'displaying' } BlFPSTracer >> resetFramesDeltaMS [ framesDeltaMS := LinkedList new. ] -{ #category : #displaying } +{ #category : 'displaying' } BlFPSTracer >> start [ self trace. ' start' traceCr. @@ -151,7 +153,7 @@ BlFPSTracer >> start [ ] -{ #category : #displaying } +{ #category : 'displaying' } BlFPSTracer >> stop [ self trace. ' stop' traceCr. diff --git a/src/BlocBenchs-FPS/PCAnnulusSectorBenchCase.class.st b/src/BlocBenchs-FPS/PCAnnulusSectorBenchCase.class.st index adc3810..bef94d6 100644 --- a/src/BlocBenchs-FPS/PCAnnulusSectorBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCAnnulusSectorBenchCase.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCAnnulusSectorBenchCase, - #superclass : #PCTranslatingFiguresBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCAnnulusSectorBenchCase', + #superclass : 'PCTranslatingFiguresBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #hook } +{ #category : 'hook' } PCAnnulusSectorBenchCase >> newFigureWith: random [ ^ BlElement new diff --git a/src/BlocBenchs-FPS/PCBenchCase.class.st b/src/BlocBenchs-FPS/PCBenchCase.class.st index 15cc5cd..a91c8c1 100644 --- a/src/BlocBenchs-FPS/PCBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCBenchCase.class.st @@ -3,15 +3,17 @@ I define a case to be benchmarked by a PCBenchmarker. " Class { - #name : #PCBenchCase, - #superclass : #Object, + #name : 'PCBenchCase', + #superclass : 'Object', #instVars : [ 'numberOfSeconds' ], - #category : #'BlocBenchs-FPS-Cases' + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #convenience } +{ #category : 'convenience' } PCBenchCase class >> allBenchCases [ ^ self allSubclasses @@ -19,7 +21,7 @@ PCBenchCase class >> allBenchCases [ thenCollect: [ :each | each new ] ] -{ #category : #convenience } +{ #category : 'convenience' } PCBenchCase class >> allBenchCasesWithRaw [ ^ self allBenchCases select: [ :each | @@ -27,19 +29,19 @@ PCBenchCase class >> allBenchCasesWithRaw [ ] -{ #category : #hook } +{ #category : 'hook' } PCBenchCase >> angleInDegreesWith: random [ ^ random nextInteger: 360 ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchCase >> duration [ ^ numberOfSeconds seconds ] -{ #category : #initialization } +{ #category : 'initialization' } PCBenchCase >> initialize [ super initialize. @@ -48,7 +50,7 @@ PCBenchCase >> initialize [ ] -{ #category : #printing } +{ #category : 'printing' } PCBenchCase >> label [ | prefix suffix | @@ -58,13 +60,13 @@ PCBenchCase >> label [ ^ ' ' join: ((self className allButFirst: prefix size) allButLast: suffix size) splitCamelCase ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchCase >> logicalExtent [ ^ self subclassResponsibility ] -{ #category : #hook } +{ #category : 'hook' } PCBenchCase >> newColorGenerator [ ^ Generator on: [ :generator | @@ -75,39 +77,39 @@ PCBenchCase >> newColorGenerator [ nextIndex := (nextIndex + 1) \\ wheel size + 1 ] repeat ] ] -{ #category : #hook } +{ #category : 'hook' } PCBenchCase >> newElement [ "Answer the Bloc element to be added to the root of the space to setup the benchmark scenario." ^ self subclassResponsibility ] -{ #category : #private } +{ #category : 'private' } PCBenchCase >> newRandom [ ^ Random seed: 1 ] -{ #category : #hook } +{ #category : 'hook' } PCBenchCase >> newRawSDLCairoWindow [ "Answer a PCBenchCaseRawSDLCairoWindow instance to benchmark this case." ^ self notYetImplemented ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchCase >> numberOfMilliseconds [ ^ numberOfSeconds * 1000 ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchCase >> numberOfSeconds [ ^ numberOfSeconds ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchCase >> numberOfSeconds: aNumber [ numberOfSeconds := aNumber diff --git a/src/BlocBenchs-FPS/PCBenchCaseRawSDLCairoWindow.class.st b/src/BlocBenchs-FPS/PCBenchCaseRawSDLCairoWindow.class.st index 93d1b4b..ae65aeb 100644 --- a/src/BlocBenchs-FPS/PCBenchCaseRawSDLCairoWindow.class.st +++ b/src/BlocBenchs-FPS/PCBenchCaseRawSDLCairoWindow.class.st @@ -1,6 +1,6 @@ Class { - #name : #PCBenchCaseRawSDLCairoWindow, - #superclass : #PCRawSDLCairoWindow, + #name : 'PCBenchCaseRawSDLCairoWindow', + #superclass : 'PCRawSDLCairoWindow', #instVars : [ 'case', 'random', @@ -9,10 +9,12 @@ Class { 'deltaMS', 'framesDeltaMS' ], - #category : #'BlocBenchs-FPS-Raw' + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCBenchCaseRawSDLCairoWindow class >> newWith: aPCBenchCase [ ^ self basicNew @@ -20,31 +22,31 @@ PCBenchCaseRawSDLCairoWindow class >> newWith: aPCBenchCase [ yourself ] -{ #category : #hook } +{ #category : 'hook' } PCBenchCaseRawSDLCairoWindow >> elapsedMillisecondsSinceFirstDraw [ ^ lastMS - startMS ] -{ #category : #hook } +{ #category : 'hook' } PCBenchCaseRawSDLCairoWindow >> elapsedTimeSinceFirstDraw [ ^ self elapsedMillisecondsSinceFirstDraw milliSeconds ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchCaseRawSDLCairoWindow >> frameCount [ ^ framesDeltaMS size ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchCaseRawSDLCairoWindow >> framesDeltaMS [ ^ framesDeltaMS ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchCaseRawSDLCairoWindow >> initializeWith: aPCBenchCase [ self initialize. @@ -53,7 +55,7 @@ PCBenchCaseRawSDLCairoWindow >> initializeWith: aPCBenchCase [ ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCBenchCaseRawSDLCairoWindow >> open [ self @@ -62,7 +64,7 @@ PCBenchCaseRawSDLCairoWindow >> open [ extent: case logicalExtent ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchCaseRawSDLCairoWindow >> resetAnimation [ "Prepare to start drawing the animation from the biggining. Subclasses can assume that Cairo and SDL surfaces are initialized." @@ -78,7 +80,7 @@ PCBenchCaseRawSDLCairoWindow >> resetAnimation [ ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchCaseRawSDLCairoWindow >> resetMainTexture [ super resetMainTexture. @@ -86,7 +88,7 @@ PCBenchCaseRawSDLCairoWindow >> resetMainTexture [ self resetAnimation. ] -{ #category : #hook } +{ #category : 'hook' } PCBenchCaseRawSDLCairoWindow >> step [ self stepAnimation. @@ -94,7 +96,7 @@ PCBenchCaseRawSDLCairoWindow >> step [ ] -{ #category : #hook } +{ #category : 'hook' } PCBenchCaseRawSDLCairoWindow >> stepAnimation [ | currentMS | diff --git a/src/BlocBenchs-FPS/PCBenchmarkSuite.class.st b/src/BlocBenchs-FPS/PCBenchmarkSuite.class.st index a9b0a67..05afc23 100644 --- a/src/BlocBenchs-FPS/PCBenchmarkSuite.class.st +++ b/src/BlocBenchs-FPS/PCBenchmarkSuite.class.st @@ -1,64 +1,66 @@ Class { - #name : #PCBenchmarkSuite, - #superclass : #Object, + #name : 'PCBenchmarkSuite', + #superclass : 'Object', #instVars : [ 'cases', 'numberOfSeconds', 'benchmarkers', 'timeToWaitBetweenCases' ], - #category : #'BlocBenchs-FPS-Suite' + #category : 'BlocBenchs-FPS-Suite', + #package : 'BlocBenchs-FPS', + #tag : 'Suite' } -{ #category : #adding } +{ #category : 'adding' } PCBenchmarkSuite >> addAlexandrieBenchmarker [ benchmarkers add: PCBlocAlexandrieBenchmarker new ] -{ #category : #adding } +{ #category : 'adding' } PCBenchmarkSuite >> addCase: aPCBenchCase [ cases add: aPCBenchCase ] -{ #category : #adding } +{ #category : 'adding' } PCBenchmarkSuite >> addHeadlessBenchmarker [ benchmarkers add: PCHeadlessBenchmarker new ] -{ #category : #adding } +{ #category : 'adding' } PCBenchmarkSuite >> addRawBenchmarker [ benchmarkers add: PCRawBenchmarker new ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchmarkSuite >> benchmarkers [ ^ benchmarkers ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchmarkSuite >> benchmarkers: aCollection [ benchmarkers := aCollection ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchmarkSuite >> cases [ ^ cases ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchmarkSuite >> cases: aCollection [ cases := aCollection ] -{ #category : #initialization } +{ #category : 'initialization' } PCBenchmarkSuite >> initialize [ super initialize. @@ -69,19 +71,34 @@ PCBenchmarkSuite >> initialize [ numberOfSeconds := 5. ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchmarkSuite >> numberOfSeconds [ ^ numberOfSeconds ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchmarkSuite >> numberOfSeconds: anObject [ numberOfSeconds := anObject ] -{ #category : #running } +{ #category : 'running' } +PCBenchmarkSuite >> run [ + + cases do: [ :eachCase | + eachCase numberOfSeconds: numberOfSeconds. + benchmarkers do: [ :eachBenchmarker | + Smalltalk garbageCollect. timeToWaitBetweenCases wait. + + eachBenchmarker + case: eachCase; + run; + shortReportOnStdout; + shortReportOnTranscript ] ] +] + +{ #category : 'running' } PCBenchmarkSuite >> runInForkWithGUI [ | b p w remainingCasesToBench | diff --git a/src/BlocBenchs-FPS/PCBenchmarker.class.st b/src/BlocBenchs-FPS/PCBenchmarker.class.st index 65f5c13..c02f275 100644 --- a/src/BlocBenchs-FPS/PCBenchmarker.class.st +++ b/src/BlocBenchs-FPS/PCBenchmarker.class.st @@ -5,8 +5,8 @@ See examples in my class-side. " Class { - #name : #PCBenchmarker, - #superclass : #Object, + #name : 'PCBenchmarker', + #superclass : 'Object', #instVars : [ 'loggedCalls', 'loggedCallsRanking', @@ -16,10 +16,12 @@ Class { 'case', 'loggedFramesDeltaMS' ], - #category : #'BlocBenchs-FPS-Benchmarkers' + #category : 'BlocBenchs-FPS-Benchmarkers', + #package : 'BlocBenchs-FPS', + #tag : 'Benchmarkers' } -{ #category : #examples } +{ #category : 'examples' } PCBenchmarker class >> exampleAllBenchs [ PCBenchmarkSuite new @@ -30,7 +32,7 @@ PCBenchmarker class >> exampleAllBenchs [ ] -{ #category : #examples } +{ #category : 'examples' } PCBenchmarker class >> exampleAllBenchsWithRaw [ "Bench the cases that respond to `PCBenchCase>>#newRawSDLCairoWindow`." @@ -43,7 +45,7 @@ PCBenchmarker class >> exampleAllBenchsWithRaw [ ] -{ #category : #examples } +{ #category : 'examples' } PCBenchmarker class >> exampleAllSDL2Drivers [ | case driverNames | @@ -74,7 +76,7 @@ PCBenchmarker class >> exampleAllSDL2Drivers [ ] -{ #category : #examples } +{ #category : 'examples' } PCBenchmarker class >> exampleAnimations [ | aCase | @@ -95,7 +97,7 @@ PCBenchmarker class >> exampleAnimations [ ] -{ #category : #examples } +{ #category : 'examples' } PCBenchmarker class >> exampleBunchOfBenchs [ PCBenchmarkSuite new @@ -120,7 +122,7 @@ PCBenchmarker class >> exampleBunchOfBenchs [ ] -{ #category : #examples } +{ #category : 'examples' } PCBenchmarker class >> exampleComposition [ PCBenchmarkSuite new @@ -132,7 +134,7 @@ PCBenchmarker class >> exampleComposition [ ] -{ #category : #examples } +{ #category : 'examples' } PCBenchmarker class >> exampleFFI [ [ | case | @@ -148,7 +150,7 @@ PCBenchmarker class >> exampleFFI [ ] -{ #category : #examples } +{ #category : 'examples' } PCBenchmarker class >> exampleGradients [ | suite | @@ -168,7 +170,7 @@ PCBenchmarker class >> exampleGradients [ ] -{ #category : #examples } +{ #category : 'examples' } PCBenchmarker class >> exampleMinimizeLoopPeriods [ { BlOSWindowSDL2Host } do: [ :each | @@ -178,7 +180,7 @@ PCBenchmarker class >> exampleMinimizeLoopPeriods [ ] -{ #category : #examples } +{ #category : 'examples' } PCBenchmarker class >> exampleOneBench [ PCBenchmarkSuite new @@ -192,7 +194,7 @@ PCBenchmarker class >> exampleOneBench [ ] -{ #category : #examples } +{ #category : 'examples' } PCBenchmarker class >> exampleOutskirts [ | suite | @@ -215,7 +217,7 @@ PCBenchmarker class >> exampleOutskirts [ ] -{ #category : #examples } +{ #category : 'examples' } PCBenchmarker class >> exampleProfileCase [ "Profile the overhead of Bloc without rendering" @@ -225,7 +227,7 @@ PCBenchmarker class >> exampleProfileCase [ AndreasSystemProfiler spyOnWorldFor: 5. ] -{ #category : #examples } +{ #category : 'examples' } PCBenchmarker class >> exampleProfileCaseWithFlameGraph [ "Opens a flame-graph on the AndreasSystemProfiler." @@ -271,7 +273,7 @@ PCBenchmarker class >> exampleProfileCaseWithFlameGraph [ ] -{ #category : #examples } +{ #category : 'examples' } PCBenchmarker class >> exampleProfileRawSDLCairoWithFlameGraph [ "Opens a flame-graph on the AndreasSystemProfiler." @@ -299,7 +301,7 @@ PCBenchmarker class >> exampleProfileRawSDLCairoWithFlameGraph [ ] -{ #category : #examples } +{ #category : 'examples' } PCBenchmarker class >> exampleShadows [ PCBenchmarkSuite new @@ -312,19 +314,19 @@ PCBenchmarker class >> exampleShadows [ ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchmarker >> case [ ^ case ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchmarker >> case: aPCBenchCase [ case := aPCBenchCase ] -{ #category : #hook } +{ #category : 'hook' } PCBenchmarker >> closeWindow [ self subclassResponsibility @@ -332,25 +334,25 @@ PCBenchmarker >> closeWindow [ ] -{ #category : #hook } +{ #category : 'hook' } PCBenchmarker >> elapsedTimeSinceFirstDraw [ ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } PCBenchmarker >> enableFFILogging [ mustLogFFI := true ] -{ #category : #printing } +{ #category : 'printing' } PCBenchmarker >> fpsReportAsString [ ^ String streamContents: [ :stream | self fpsReportOn: stream ] ] -{ #category : #printing } +{ #category : 'printing' } PCBenchmarker >> fpsReportOn: aStream [ self printFpsOn: aStream. @@ -358,31 +360,31 @@ PCBenchmarker >> fpsReportOn: aStream [ ] -{ #category : #printing } +{ #category : 'printing' } PCBenchmarker >> fpsReportOnStdout [ self fpsReportOn: Stdio stdout ] -{ #category : #printing } +{ #category : 'printing' } PCBenchmarker >> fpsReportOnTranscript [ self fpsReportAsString withInternalLineEndings trace ] -{ #category : #hook } +{ #category : 'hook' } PCBenchmarker >> frameCount [ ^ self subclassResponsibility ] -{ #category : #hook } +{ #category : 'hook' } PCBenchmarker >> framesDeltaMS [ ^ self subclassResponsibility ] -{ #category : #initializing } +{ #category : 'initializing' } PCBenchmarker >> initialize [ super initialize. @@ -390,26 +392,26 @@ PCBenchmarker >> initialize [ mustLogFFI := false. ] -{ #category : #printing } +{ #category : 'printing' } PCBenchmarker >> label [ ^ self subclassResponsibility ] -{ #category : #printing } +{ #category : 'printing' } PCBenchmarker >> labelWithCase [ ^ self label, ' - ', case label ] -{ #category : #hook } +{ #category : 'hook' } PCBenchmarker >> openWindow [ self subclassResponsibility ] -{ #category : #printing } +{ #category : 'printing' } PCBenchmarker >> printFpsOn: aStream [ loggedFramesDeltaMS size / loggedDuration totalSeconds @@ -417,7 +419,7 @@ PCBenchmarker >> printFpsOn: aStream [ showingDecimalPlaces: 1 ] -{ #category : #printing } +{ #category : 'printing' } PCBenchmarker >> printFrameMSDurationStatsOn: aStream [ MeanConfidenceIntervalPrinter new @@ -426,7 +428,7 @@ PCBenchmarker >> printFrameMSDurationStatsOn: aStream [ ] -{ #category : #printing } +{ #category : 'printing' } PCBenchmarker >> printProjectedFpsOn: aStream [ | projectedFps | @@ -439,13 +441,13 @@ PCBenchmarker >> printProjectedFpsOn: aStream [ ] -{ #category : #printing } +{ #category : 'printing' } PCBenchmarker >> reportFFIAsString [ ^ String streamContents: [ :stream | self reportFFIOn: stream ] ] -{ #category : #printing } +{ #category : 'printing' } PCBenchmarker >> reportFFIOn: aStream [ aStream << self labelWithCase; << ': '; lf. @@ -463,19 +465,19 @@ PCBenchmarker >> reportFFIOn: aStream [ ] -{ #category : #printing } +{ #category : 'printing' } PCBenchmarker >> reportFFIOnStdout [ self reportFFIOn: Stdio stdout ] -{ #category : #printing } +{ #category : 'printing' } PCBenchmarker >> reportFFIOnTranscript [ self reportFFIAsString withInternalLineEndings trace ] -{ #category : #running } +{ #category : 'running' } PCBenchmarker >> run [ "Start log" @@ -497,13 +499,13 @@ PCBenchmarker >> run [ ] -{ #category : #printing } +{ #category : 'printing' } PCBenchmarker >> shortReportAsString [ ^ String streamContents: [ :stream | self shortReportOn: stream ] ] -{ #category : #printing } +{ #category : 'printing' } PCBenchmarker >> shortReportOn: aStream [ aStream @@ -521,19 +523,19 @@ PCBenchmarker >> shortReportOn: aStream [ ] -{ #category : #printing } +{ #category : 'printing' } PCBenchmarker >> shortReportOnStdout [ self shortReportOn: Stdio stdout ] -{ #category : #printing } +{ #category : 'printing' } PCBenchmarker >> shortReportOnTranscript [ self shortReportAsString withInternalLineEndings trace ] -{ #category : #private } +{ #category : 'private' } PCBenchmarker >> startFFILogging [ "Ensure prepared" @@ -547,7 +549,7 @@ PCBenchmarker >> startFFILogging [ ] -{ #category : #private } +{ #category : 'private' } PCBenchmarker >> stopFFILogging [ | functionNamesSeries callsPerFrameSeries | diff --git a/src/BlocBenchs-FPS/PCBlocAlexandrieBenchmarker.class.st b/src/BlocBenchs-FPS/PCBlocAlexandrieBenchmarker.class.st index fb6ed47..bdf89b7 100644 --- a/src/BlocBenchs-FPS/PCBlocAlexandrieBenchmarker.class.st +++ b/src/BlocBenchs-FPS/PCBlocAlexandrieBenchmarker.class.st @@ -2,18 +2,20 @@ I'm a benchmarker for the Pure Cairo renderer. " Class { - #name : #PCBlocAlexandrieBenchmarker, - #superclass : #PCBlocBenchmarker, - #category : #'BlocBenchs-FPS-Benchmarkers' + #name : 'PCBlocAlexandrieBenchmarker', + #superclass : 'PCBlocBenchmarker', + #category : 'BlocBenchs-FPS-Benchmarkers', + #package : 'BlocBenchs-FPS', + #tag : 'Benchmarkers' } -{ #category : #accessing } +{ #category : 'accessing' } PCBlocAlexandrieBenchmarker >> host [ ^ BlOSWindowSDL2Host new ] -{ #category : #accessing } +{ #category : 'accessing' } PCBlocAlexandrieBenchmarker >> label [ ^ 'Bloc Alexandrie' diff --git a/src/BlocBenchs-FPS/PCBlocBenchmarker.class.st b/src/BlocBenchs-FPS/PCBlocBenchmarker.class.st index d53c7d7..887ac33 100644 --- a/src/BlocBenchs-FPS/PCBlocBenchmarker.class.st +++ b/src/BlocBenchs-FPS/PCBlocBenchmarker.class.st @@ -3,48 +3,50 @@ I'm a benchmarker for Bloc renderers, always in a Morphic Window host. " Class { - #name : #PCBlocBenchmarker, - #superclass : #PCBenchmarker, + #name : 'PCBlocBenchmarker', + #superclass : 'PCBenchmarker', #instVars : [ 'space', 'firstMS', 'lastMS', 'framesDeltaMS' ], - #category : #'BlocBenchs-FPS-Benchmarkers' + #category : 'BlocBenchs-FPS-Benchmarkers', + #package : 'BlocBenchs-FPS', + #tag : 'Benchmarkers' } -{ #category : #hook } +{ #category : 'hook' } PCBlocBenchmarker >> closeWindow [ space close ] -{ #category : #hook } +{ #category : 'hook' } PCBlocBenchmarker >> elapsedTimeSinceFirstDraw [ ^ (Time millisecondClockValue - firstMS) milliSeconds ] -{ #category : #hook } +{ #category : 'hook' } PCBlocBenchmarker >> frameCount [ ^ framesDeltaMS size ] -{ #category : #hook } +{ #category : 'hook' } PCBlocBenchmarker >> framesDeltaMS [ ^ framesDeltaMS ] -{ #category : #hook } +{ #category : 'hook' } PCBlocBenchmarker >> host [ ^ self subclassResponsibility ] -{ #category : #hook } +{ #category : 'hook' } PCBlocBenchmarker >> openWindow [ space := BlSpace new diff --git a/src/BlocBenchs-FPS/PCBoxWindmillBenchCase.class.st b/src/BlocBenchs-FPS/PCBoxWindmillBenchCase.class.st index 97dee44..b031d00 100644 --- a/src/BlocBenchs-FPS/PCBoxWindmillBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCBoxWindmillBenchCase.class.st @@ -4,49 +4,51 @@ Inspired on RSAnimationExamples>>#example01BoxWindmill " Class { - #name : #PCBoxWindmillBenchCase, - #superclass : #PCBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCBoxWindmillBenchCase', + #superclass : 'PCBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #hook } +{ #category : 'hook' } PCBoxWindmillBenchCase >> backgroundColor [ ^ Color black ] -{ #category : #hook } +{ #category : 'hook' } PCBoxWindmillBenchCase >> boxBorderColor [ ^ Color blue muchDarker alpha: 0.5 ] -{ #category : #hook } +{ #category : 'hook' } PCBoxWindmillBenchCase >> boxBorderWidth [ ^ 10 ] -{ #category : #hook } +{ #category : 'hook' } PCBoxWindmillBenchCase >> boxColor [ ^ Color white ] -{ #category : #hook } +{ #category : 'hook' } PCBoxWindmillBenchCase >> boxExtent [ ^ 140 @ 40 ] -{ #category : #hook } +{ #category : 'hook' } PCBoxWindmillBenchCase >> boxPositions [ "Answer the logical positions for the boxes" ^ self boxPositions: 1@1 ] -{ #category : #hook } +{ #category : 'hook' } PCBoxWindmillBenchCase >> boxPositions: aDeviceScale [ "Answer the positions for the boxes in the pixel space" @@ -55,19 +57,19 @@ PCBoxWindmillBenchCase >> boxPositions: aDeviceScale [ (x @ y) - (self boxExtent * aDeviceScale / 2) ] ] ] -{ #category : #hook } +{ #category : 'hook' } PCBoxWindmillBenchCase >> boxRotationInDegreesWithPosition: position elapsedMS: elapsedMS [ ^ ((position x + position y + (elapsedMS/50.0) ) degreesToRadians * 1.95) radiansToDegrees ] -{ #category : #accessing } +{ #category : 'accessing' } PCBoxWindmillBenchCase >> logicalExtent [ ^ 800 asPoint ] -{ #category : #hook } +{ #category : 'hook' } PCBoxWindmillBenchCase >> newElement [ "Answer the Bloc element to be added to the root of the space to setup the benchmark scenario." @@ -107,7 +109,7 @@ PCBoxWindmillBenchCase >> newElement [ ^ aContainerElement ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCBoxWindmillBenchCase >> newRawSDLCairoWindow [ ^ PCBoxWindmillCompositingWindow newWith: self diff --git a/src/BlocBenchs-FPS/PCBoxWindmillCompositingWindow.class.st b/src/BlocBenchs-FPS/PCBoxWindmillCompositingWindow.class.st index fc92cba..68295c2 100644 --- a/src/BlocBenchs-FPS/PCBoxWindmillCompositingWindow.class.st +++ b/src/BlocBenchs-FPS/PCBoxWindmillCompositingWindow.class.st @@ -1,6 +1,6 @@ Class { - #name : #PCBoxWindmillCompositingWindow, - #superclass : #PCBoxWindmillWindow, + #name : 'PCBoxWindmillCompositingWindow', + #superclass : 'PCBoxWindmillWindow', #instVars : [ 'sdlRects', 'pixelBoxExtent', @@ -8,15 +8,17 @@ Class { 'boxPositions', 'boxTextureStrategy' ], - #category : #'BlocBenchs-FPS-Raw' + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCBoxWindmillCompositingWindow >> drawOnCairoSurface [ "Completely done via composition of SDL textures" ] -{ #category : #drawing } +{ #category : 'drawing' } PCBoxWindmillCompositingWindow >> presentOnWindow [ "Background" @@ -42,7 +44,7 @@ PCBoxWindmillCompositingWindow >> presentOnWindow [ sdlRenderer present ] -{ #category : #drawing } +{ #category : 'drawing' } PCBoxWindmillCompositingWindow >> resetAnimation [ super resetAnimation. @@ -72,7 +74,7 @@ PCBoxWindmillCompositingWindow >> resetAnimation [ ] -{ #category : #accessing } +{ #category : 'accessing' } PCBoxWindmillCompositingWindow >> resetMainTexture [ mainTextureStrategy := PCUpdateStaticTextureStrategy diff --git a/src/BlocBenchs-FPS/PCBoxWindmillWindow.class.st b/src/BlocBenchs-FPS/PCBoxWindmillWindow.class.st index 51d2238..3b8b1e4 100644 --- a/src/BlocBenchs-FPS/PCBoxWindmillWindow.class.st +++ b/src/BlocBenchs-FPS/PCBoxWindmillWindow.class.st @@ -2,17 +2,19 @@ See RSAnimationExamples>>#example01BoxWindmill " Class { - #name : #PCBoxWindmillWindow, - #superclass : #PCCleanCanvasWindow, + #name : 'PCBoxWindmillWindow', + #superclass : 'PCCleanCanvasWindow', #instVars : [ 'figurePositions', 'figureColors', 'backgroundColorGenerator' ], - #category : #'BlocBenchs-FPS-Raw' + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCBoxWindmillWindow >> drawBoxOn: aeCairoContext [ "set path (outskirts = center)" diff --git a/src/BlocBenchs-FPS/PCCirclesBenchCase.class.st b/src/BlocBenchs-FPS/PCCirclesBenchCase.class.st index a8021d0..c456d09 100644 --- a/src/BlocBenchs-FPS/PCCirclesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCCirclesBenchCase.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCCirclesBenchCase, - #superclass : #PCTranslatingFiguresBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCCirclesBenchCase', + #superclass : 'PCTranslatingFiguresBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #hook } +{ #category : 'hook' } PCCirclesBenchCase >> newFigureWith: random [ ^ BlElement new @@ -15,25 +17,25 @@ PCCirclesBenchCase >> newFigureWith: random [ ] -{ #category : #accessing } +{ #category : 'accessing' } PCCirclesBenchCase >> numberOfFigures [ ^ 100 ] -{ #category : #accessing } +{ #category : 'accessing' } PCCirclesBenchCase >> offsetBetweenFigures [ ^ 6 @ 0 ] -{ #category : #hook } +{ #category : 'hook' } PCCirclesBenchCase >> prepare: anElement with: random [ ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } PCCirclesBenchCase >> radius [ ^ 50.0 asPoint diff --git a/src/BlocBenchs-FPS/PCCirclesWindow.class.st b/src/BlocBenchs-FPS/PCCirclesWindow.class.st index 87873c3..627b376 100644 --- a/src/BlocBenchs-FPS/PCCirclesWindow.class.st +++ b/src/BlocBenchs-FPS/PCCirclesWindow.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCCirclesWindow, - #superclass : #PCTranslatingPathsWindow, - #category : #'BlocBenchs-FPS-Raw' + #name : 'PCCirclesWindow', + #superclass : 'PCTranslatingPathsWindow', + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCCirclesWindow >> setPathFor: index deltaY: deltaY [ | center | diff --git a/src/BlocBenchs-FPS/PCCleanCanvasWindow.class.st b/src/BlocBenchs-FPS/PCCleanCanvasWindow.class.st index 28fbeec..1e9e217 100644 --- a/src/BlocBenchs-FPS/PCCleanCanvasWindow.class.st +++ b/src/BlocBenchs-FPS/PCCleanCanvasWindow.class.st @@ -1,13 +1,15 @@ Class { - #name : #PCCleanCanvasWindow, - #superclass : #PCBenchCaseRawSDLCairoWindow, + #name : 'PCCleanCanvasWindow', + #superclass : 'PCBenchCaseRawSDLCairoWindow', #instVars : [ 'canvasClearColor' ], - #category : #'BlocBenchs-FPS-Raw' + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCCleanCanvasWindow >> clearCairoSurface [ "Clear background (https://www.cairographics.org/FAQ/#clear_a_surface)" @@ -17,13 +19,13 @@ PCCleanCanvasWindow >> clearCairoSurface [ ] -{ #category : #drawing } +{ #category : 'drawing' } PCCleanCanvasWindow >> drawOnCairoSurface [ self clearCairoSurface ] -{ #category : #drawing } +{ #category : 'drawing' } PCCleanCanvasWindow >> resetAnimation [ super resetAnimation. diff --git a/src/BlocBenchs-FPS/PCClippedImagesBenchCase.class.st b/src/BlocBenchs-FPS/PCClippedImagesBenchCase.class.st index a249c65..3c436b1 100644 --- a/src/BlocBenchs-FPS/PCClippedImagesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCClippedImagesBenchCase.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCClippedImagesBenchCase, - #superclass : #PCImagesBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCClippedImagesBenchCase', + #superclass : 'PCImagesBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCClippedImagesBenchCase >> newImageElementWith: random [ | randomIcon | diff --git a/src/BlocBenchs-FPS/PCCompositionBenchCase.class.st b/src/BlocBenchs-FPS/PCCompositionBenchCase.class.st index a5fae86..f7d8c72 100644 --- a/src/BlocBenchs-FPS/PCCompositionBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCCompositionBenchCase.class.st @@ -1,28 +1,30 @@ Class { - #name : #PCCompositionBenchCase, - #superclass : #PCBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCCompositionBenchCase', + #superclass : 'PCBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #accessing } +{ #category : 'accessing' } PCCompositionBenchCase >> figureExtent [ ^ 25 asPoint ] -{ #category : #accessing } +{ #category : 'accessing' } PCCompositionBenchCase >> layerExtent [ ^ self logicalExtent / 1.5 ] -{ #category : #accessing } +{ #category : 'accessing' } PCCompositionBenchCase >> logicalExtent [ ^ 700 @ 700 ] -{ #category : #hook } +{ #category : 'hook' } PCCompositionBenchCase >> newElement [ | random backgroundColorGenerator container staticComplexElement | @@ -50,7 +52,7 @@ PCCompositionBenchCase >> newElement [ ^ container ] -{ #category : #hook } +{ #category : 'hook' } PCCompositionBenchCase >> newFigure: random [ ^ BlElement new @@ -60,20 +62,20 @@ PCCompositionBenchCase >> newFigure: random [ yourself ] -{ #category : #hook } +{ #category : 'hook' } PCCompositionBenchCase >> nextLocation: random [ ^ (random nextInteger: self layerExtent x - self figureExtent x) @ (random nextInteger: self layerExtent y - self figureExtent y) ] -{ #category : #accessing } +{ #category : 'accessing' } PCCompositionBenchCase >> numberOfFigures [ ^ 5000 ] -{ #category : #hook } +{ #category : 'hook' } PCCompositionBenchCase >> prepareAsStatic: anElement [ self subclassResponsibility diff --git a/src/BlocBenchs-FPS/PCCompositionDisabledBenchCase.class.st b/src/BlocBenchs-FPS/PCCompositionDisabledBenchCase.class.st index 88f8a9e..4707cf3 100644 --- a/src/BlocBenchs-FPS/PCCompositionDisabledBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCCompositionDisabledBenchCase.class.st @@ -1,16 +1,18 @@ Class { - #name : #PCCompositionDisabledBenchCase, - #superclass : #PCCompositionBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCCompositionDisabledBenchCase', + #superclass : 'PCCompositionBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCCompositionDisabledBenchCase >> newRawSDLCairoWindow [ ^ PCCompositionDisabledWindow newWith: self ] -{ #category : #hook } +{ #category : 'hook' } PCCompositionDisabledBenchCase >> prepareAsStatic: anElement [ ] diff --git a/src/BlocBenchs-FPS/PCCompositionDisabledWindow.class.st b/src/BlocBenchs-FPS/PCCompositionDisabledWindow.class.st index dea8b25..06a2c78 100644 --- a/src/BlocBenchs-FPS/PCCompositionDisabledWindow.class.st +++ b/src/BlocBenchs-FPS/PCCompositionDisabledWindow.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCCompositionDisabledWindow, - #superclass : #PCCompositionWindow, - #category : #'BlocBenchs-FPS-Raw' + #name : 'PCCompositionDisabledWindow', + #superclass : 'PCCompositionWindow', + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCCompositionDisabledWindow >> drawOnCairoSurface [ super drawOnCairoSurface. diff --git a/src/BlocBenchs-FPS/PCCompositionEnabledBenchCase.class.st b/src/BlocBenchs-FPS/PCCompositionEnabledBenchCase.class.st index c64a131..6fb02d6 100644 --- a/src/BlocBenchs-FPS/PCCompositionEnabledBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCCompositionEnabledBenchCase.class.st @@ -1,16 +1,18 @@ Class { - #name : #PCCompositionEnabledBenchCase, - #superclass : #PCCompositionBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCCompositionEnabledBenchCase', + #superclass : 'PCCompositionBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCCompositionEnabledBenchCase >> newRawSDLCairoWindow [ ^ PCCompositionEnabledViaSDLWindow newWith: self ] -{ #category : #hook } +{ #category : 'hook' } PCCompositionEnabledBenchCase >> prepareAsStatic: anElement [ anElement beInSingleCompositionLayer diff --git a/src/BlocBenchs-FPS/PCCompositionEnabledViaCairoWindow.class.st b/src/BlocBenchs-FPS/PCCompositionEnabledViaCairoWindow.class.st index 2b81feb..1457c04 100644 --- a/src/BlocBenchs-FPS/PCCompositionEnabledViaCairoWindow.class.st +++ b/src/BlocBenchs-FPS/PCCompositionEnabledViaCairoWindow.class.st @@ -1,13 +1,15 @@ Class { - #name : #PCCompositionEnabledViaCairoWindow, - #superclass : #PCCompositionWindow, + #name : 'PCCompositionEnabledViaCairoWindow', + #superclass : 'PCCompositionWindow', #instVars : [ 'layerCairoSurfacePattern' ], - #category : #'BlocBenchs-FPS-Raw' + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCCompositionEnabledViaCairoWindow >> drawOnCairoSurface [ super drawOnCairoSurface. @@ -19,7 +21,7 @@ PCCompositionEnabledViaCairoWindow >> drawOnCairoSurface [ ] -{ #category : #drawing } +{ #category : 'drawing' } PCCompositionEnabledViaCairoWindow >> resetAnimation [ super resetAnimation. diff --git a/src/BlocBenchs-FPS/PCCompositionEnabledViaSDLWindow.class.st b/src/BlocBenchs-FPS/PCCompositionEnabledViaSDLWindow.class.st index cf5a5e2..79ea83c 100644 --- a/src/BlocBenchs-FPS/PCCompositionEnabledViaSDLWindow.class.st +++ b/src/BlocBenchs-FPS/PCCompositionEnabledViaSDLWindow.class.st @@ -1,14 +1,16 @@ Class { - #name : #PCCompositionEnabledViaSDLWindow, - #superclass : #PCCompositionWindow, + #name : 'PCCompositionEnabledViaSDLWindow', + #superclass : 'PCCompositionWindow', #instVars : [ 'bottomLayerTexture', 'topLayerTextureStrategy' ], - #category : #'BlocBenchs-FPS-Raw' + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCCompositionEnabledViaSDLWindow >> resetAnimation [ super resetAnimation. @@ -18,7 +20,7 @@ PCCompositionEnabledViaSDLWindow >> resetAnimation [ ] -{ #category : #drawing } +{ #category : 'drawing' } PCCompositionEnabledViaSDLWindow >> resetBottomLayer [ bottomLayerTexture := PCDirectDrawToStreamingTextureStrategy @@ -28,7 +30,7 @@ PCCompositionEnabledViaSDLWindow >> resetBottomLayer [ ] -{ #category : #drawing } +{ #category : 'drawing' } PCCompositionEnabledViaSDLWindow >> resetTopLayer [ topLayerTextureStrategy := PCUpdateStaticTextureStrategy @@ -42,7 +44,7 @@ PCCompositionEnabledViaSDLWindow >> resetTopLayer [ ] -{ #category : #hook } +{ #category : 'hook' } PCCompositionEnabledViaSDLWindow >> step [ self stepAnimation. diff --git a/src/BlocBenchs-FPS/PCCompositionWindow.class.st b/src/BlocBenchs-FPS/PCCompositionWindow.class.st index b01c2ec..b1af180 100644 --- a/src/BlocBenchs-FPS/PCCompositionWindow.class.st +++ b/src/BlocBenchs-FPS/PCCompositionWindow.class.st @@ -1,15 +1,17 @@ Class { - #name : #PCCompositionWindow, - #superclass : #PCCleanCanvasWindow, + #name : 'PCCompositionWindow', + #superclass : 'PCCleanCanvasWindow', #instVars : [ 'figurePositions', 'figureColors', 'backgroundColorGenerator' ], - #category : #'BlocBenchs-FPS-Raw' + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCCompositionWindow >> drawFiguresOn: aeCairoContext [ 1 to: case numberOfFigures do: [ :index | @@ -30,14 +32,14 @@ PCCompositionWindow >> drawFiguresOn: aeCairoContext [ ] -{ #category : #drawing } +{ #category : 'drawing' } PCCompositionWindow >> drawOnCairoSurface [ canvasClearColor := backgroundColorGenerator next. super drawOnCairoSurface ] -{ #category : #drawing } +{ #category : 'drawing' } PCCompositionWindow >> resetAnimation [ super resetAnimation. diff --git a/src/BlocBenchs-FPS/PCDashedBorderCirclesBenchCase.class.st b/src/BlocBenchs-FPS/PCDashedBorderCirclesBenchCase.class.st index 53d82f3..1201013 100644 --- a/src/BlocBenchs-FPS/PCDashedBorderCirclesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCDashedBorderCirclesBenchCase.class.st @@ -1,16 +1,18 @@ Class { - #name : #PCDashedBorderCirclesBenchCase, - #superclass : #PCCirclesBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCDashedBorderCirclesBenchCase', + #superclass : 'PCCirclesBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #accessing } +{ #category : 'accessing' } PCDashedBorderCirclesBenchCase >> borderWidth [ ^ 10 ] -{ #category : #hook } +{ #category : 'hook' } PCDashedBorderCirclesBenchCase >> prepare: anElement with: random [ anElement border: diff --git a/src/BlocBenchs-FPS/PCDirectDrawToStreamingTextureStrategy.class.st b/src/BlocBenchs-FPS/PCDirectDrawToStreamingTextureStrategy.class.st index cc3458e..1eb5614 100644 --- a/src/BlocBenchs-FPS/PCDirectDrawToStreamingTextureStrategy.class.st +++ b/src/BlocBenchs-FPS/PCDirectDrawToStreamingTextureStrategy.class.st @@ -1,21 +1,23 @@ Class { - #name : #PCDirectDrawToStreamingTextureStrategy, - #superclass : #PCSDLTextureStrategy, + #name : 'PCDirectDrawToStreamingTextureStrategy', + #superclass : 'PCSDLTextureStrategy', #instVars : [ 'pitchAddress', 'pixelsAddress' ], - #category : #'BlocBenchs-FPS-Raw' + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCDirectDrawToStreamingTextureStrategy >> drawDone [ sdlTexture unlock. cairoContext := nil. ] -{ #category : #drawing } +{ #category : 'drawing' } PCDirectDrawToStreamingTextureStrategy >> drawPrepare [ | aCairoSurface | @@ -40,7 +42,7 @@ PCDirectDrawToStreamingTextureStrategy >> drawPrepare [ setupBlock value: cairoContext ] -{ #category : #drawing } +{ #category : 'drawing' } PCDirectDrawToStreamingTextureStrategy >> initialize [ super initialize. @@ -50,7 +52,7 @@ PCDirectDrawToStreamingTextureStrategy >> initialize [ ] -{ #category : #drawing } +{ #category : 'drawing' } PCDirectDrawToStreamingTextureStrategy >> sdlTextureAccess [ ^ SDL_TEXTUREACCESS_STREAMING diff --git a/src/BlocBenchs-FPS/PCFloatColor.class.st b/src/BlocBenchs-FPS/PCFloatColor.class.st index f47fa83..aa86c64 100644 --- a/src/BlocBenchs-FPS/PCFloatColor.class.st +++ b/src/BlocBenchs-FPS/PCFloatColor.class.st @@ -6,18 +6,20 @@ While the traditional Color requires a conversion each time a RBGA values is que " Class { - #name : #PCFloatColor, - #superclass : #Object, + #name : 'PCFloatColor', + #superclass : 'Object', #instVars : [ 'red', 'blue', 'green', 'alpha' ], - #category : #'BlocBenchs-FPS-Raw' + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCFloatColor class >> newFrom: aColor [ ^ self basicNew @@ -28,19 +30,19 @@ PCFloatColor class >> newFrom: aColor [ yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCFloatColor class >> newRandom: aRandom [ ^ self newFrom: (Color random: aRandom) ] -{ #category : #accessing } +{ #category : 'accessing' } PCFloatColor >> alpha [ ^ alpha ] -{ #category : #converting } +{ #category : 'converting' } PCFloatColor >> asColor [ ^ Color @@ -50,19 +52,19 @@ PCFloatColor >> asColor [ alpha: alpha ] -{ #category : #accessing } +{ #category : 'accessing' } PCFloatColor >> blue [ ^ blue ] -{ #category : #accessing } +{ #category : 'accessing' } PCFloatColor >> green [ ^ green ] -{ #category : #initialization } +{ #category : 'initialization' } PCFloatColor >> initializeR: redValue g: greenValue b: blueValue a: alphaValue [ self initialize. @@ -73,13 +75,13 @@ PCFloatColor >> initializeR: redValue g: greenValue b: blueValue a: alphaValue [ alpha := alphaValue ] -{ #category : #testing } +{ #category : 'testing' } PCFloatColor >> isTranslucent [ ^ alpha < 1.0 ] -{ #category : #printing } +{ #category : 'printing' } PCFloatColor >> printOn: aStream [ | places | @@ -98,7 +100,7 @@ PCFloatColor >> printOn: aStream [ nextPutAll: ')' ] -{ #category : #accessing } +{ #category : 'accessing' } PCFloatColor >> red [ ^ red diff --git a/src/BlocBenchs-FPS/PCGradientCirclesBenchCase.class.st b/src/BlocBenchs-FPS/PCGradientCirclesBenchCase.class.st index bc55e50..58e5787 100644 --- a/src/BlocBenchs-FPS/PCGradientCirclesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCGradientCirclesBenchCase.class.st @@ -4,15 +4,17 @@ I'm a bench case for gradient fills. My main parameters is ""numberOfStops"". " Class { - #name : #PCGradientCirclesBenchCase, - #superclass : #PCCirclesBenchCase, + #name : 'PCGradientCirclesBenchCase', + #superclass : 'PCCirclesBenchCase', #instVars : [ 'numberOfStops' ], - #category : #'BlocBenchs-FPS-Cases' + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #hook } +{ #category : 'hook' } PCGradientCirclesBenchCase >> initialize [ super initialize. @@ -20,7 +22,7 @@ PCGradientCirclesBenchCase >> initialize [ numberOfStops := 3. ] -{ #category : #accessing } +{ #category : 'accessing' } PCGradientCirclesBenchCase >> label [ ^ '{1} w/ {2} stops' format: { @@ -28,13 +30,13 @@ PCGradientCirclesBenchCase >> label [ numberOfStops } ] -{ #category : #hook } +{ #category : 'hook' } PCGradientCirclesBenchCase >> newGradient: random [ ^ self subclassResponsibility ] -{ #category : #hook } +{ #category : 'hook' } PCGradientCirclesBenchCase >> newStops: random [ ^ (0.0 to: 1.0 by: (1/(numberOfStops-1))) @@ -42,20 +44,20 @@ PCGradientCirclesBenchCase >> newStops: random [ ] -{ #category : #accessing } +{ #category : 'accessing' } PCGradientCirclesBenchCase >> numberOfStops [ ^ numberOfStops ] -{ #category : #accessing } +{ #category : 'accessing' } PCGradientCirclesBenchCase >> numberOfStops: aCollection [ "Establish the gradient stops, in the form: { 0.0 -> Color black. 1.0 -> Color white }" numberOfStops := aCollection ] -{ #category : #hook } +{ #category : 'hook' } PCGradientCirclesBenchCase >> prepare: anElement with: random [ anElement background: (self newGradient: random) diff --git a/src/BlocBenchs-FPS/PCGuassianShadowedCirclesBenchCase.class.st b/src/BlocBenchs-FPS/PCGuassianShadowedCirclesBenchCase.class.st index 936ce31..0d6bcac 100644 --- a/src/BlocBenchs-FPS/PCGuassianShadowedCirclesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCGuassianShadowedCirclesBenchCase.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCGuassianShadowedCirclesBenchCase, - #superclass : #PCShadowedCirclesBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCGuassianShadowedCirclesBenchCase', + #superclass : 'PCShadowedCirclesBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #hook } +{ #category : 'hook' } PCGuassianShadowedCirclesBenchCase >> newShadowColor: shadowColor offset: shadowOffset [ ^ BlGaussianShadowEffect @@ -13,7 +15,7 @@ PCGuassianShadowedCirclesBenchCase >> newShadowColor: shadowColor offset: shadow offset: shadowOffset ] -{ #category : #hook } +{ #category : 'hook' } PCGuassianShadowedCirclesBenchCase >> numberOfFigures [ ^ 100 diff --git a/src/BlocBenchs-FPS/PCHeadlessBenchmarker.class.st b/src/BlocBenchs-FPS/PCHeadlessBenchmarker.class.st index 1e2ddf0..21a15d9 100644 --- a/src/BlocBenchs-FPS/PCHeadlessBenchmarker.class.st +++ b/src/BlocBenchs-FPS/PCHeadlessBenchmarker.class.st @@ -1,13 +1,15 @@ Class { - #name : #PCHeadlessBenchmarker, - #superclass : #PCBlocBenchmarker, + #name : 'PCHeadlessBenchmarker', + #superclass : 'PCBlocBenchmarker', #instVars : [ 'pulseLoop' ], - #category : #'BlocBenchs-FPS-Benchmarkers' + #category : 'BlocBenchs-FPS-Benchmarkers', + #package : 'BlocBenchs-FPS', + #tag : 'Benchmarkers' } -{ #category : #hook } +{ #category : 'hook' } PCHeadlessBenchmarker >> closeWindow [ super closeWindow. @@ -19,19 +21,19 @@ PCHeadlessBenchmarker >> closeWindow [ space universe pulse. "close was deferred and needs to be processed" ] -{ #category : #accessing } +{ #category : 'accessing' } PCHeadlessBenchmarker >> host [ ^ PCHeadlessHost new ] -{ #category : #accessing } +{ #category : 'accessing' } PCHeadlessBenchmarker >> label [ ^ 'Bloc Alexandrie Headless' ] -{ #category : #hook } +{ #category : 'hook' } PCHeadlessBenchmarker >> openWindow [ super openWindow. diff --git a/src/BlocBenchs-FPS/PCHeadlessHost.class.st b/src/BlocBenchs-FPS/PCHeadlessHost.class.st index a411f2b..81ae325 100644 --- a/src/BlocBenchs-FPS/PCHeadlessHost.class.st +++ b/src/BlocBenchs-FPS/PCHeadlessHost.class.st @@ -13,21 +13,23 @@ Differences with `BlHeadlessHost`: - I don't use a Sparta canvas (but could, it's polymorphic but not implemented yet) " Class { - #name : #PCHeadlessHost, - #superclass : #Object, + #name : 'PCHeadlessHost', + #superclass : 'Object', #classInstVars : [ 'scaleFactor' ], - #category : #'BlocBenchs-FPS-Host-Headless' + #category : 'BlocBenchs-FPS-Host-Headless', + #package : 'BlocBenchs-FPS', + #tag : 'Host-Headless' } -{ #category : #accessing } +{ #category : 'accessing' } PCHeadlessHost class >> scaleFactor [ ^ scaleFactor ifNil: [ 1.0 ] ] -{ #category : #accessing } +{ #category : 'accessing' } PCHeadlessHost class >> scaleFactor: aFloat [ " For typical HiDPI: @@ -38,19 +40,19 @@ PCHeadlessHost class >> scaleFactor: aFloat [ scaleFactor := aFloat ] -{ #category : #accessing } +{ #category : 'accessing' } PCHeadlessHost class >> stop [ ] -{ #category : #enumerating } +{ #category : 'enumerating' } PCHeadlessHost class >> uiProcessDo: aFullBlockClosure [ ^ aFullBlockClosure value: Processor activeProcess ] -{ #category : #'host - api' } +{ #category : 'host - api' } PCHeadlessHost >> createHostSpaceFor: aBlSpace [ | scaleFactor aHostSpace aCanvas aeCairoSurface | @@ -70,19 +72,19 @@ PCHeadlessHost >> createHostSpaceFor: aBlSpace [ ] -{ #category : #'host - api' } +{ #category : 'host - api' } PCHeadlessHost >> destroyHostSpaceFor: aBlSpace [ aBlSpace detachHostSpace ] -{ #category : #testing } +{ #category : 'testing' } PCHeadlessHost >> isRunning [ ^ true ] -{ #category : #testing } +{ #category : 'testing' } PCHeadlessHost >> isStillAvailable [ ^ true diff --git a/src/BlocBenchs-FPS/PCHeadlessHostSpace.class.st b/src/BlocBenchs-FPS/PCHeadlessHostSpace.class.st index a2bd138..5b08de0 100644 --- a/src/BlocBenchs-FPS/PCHeadlessHostSpace.class.st +++ b/src/BlocBenchs-FPS/PCHeadlessHostSpace.class.st @@ -1,82 +1,84 @@ Class { - #name : #PCHeadlessHostSpace, - #superclass : #Object, + #name : 'PCHeadlessHostSpace', + #superclass : 'Object', #instVars : [ 'canvas', 'windowExtent', 'space' ], - #category : #'BlocBenchs-FPS-Host-Headless' + #category : 'BlocBenchs-FPS-Host-Headless', + #package : 'BlocBenchs-FPS', + #tag : 'Host-Headless' } -{ #category : #converting } +{ #category : 'converting' } PCHeadlessHostSpace >> asForm [ "Useful for debugging" ^ canvas asForm ] -{ #category : #accessing } +{ #category : 'accessing' } PCHeadlessHostSpace >> canvas: aCanvas [ canvas := aCanvas ] -{ #category : #enumerating } +{ #category : 'enumerating' } PCHeadlessHostSpace >> fetchedEventsDo: aFullBlockClosure [ ] -{ #category : #'host space - events' } +{ #category : 'host space - events' } PCHeadlessHostSpace >> generateEvents [ ] -{ #category : #testing } +{ #category : 'testing' } PCHeadlessHostSpace >> hasResized [ ^ false ] -{ #category : #'host space - geometry' } +{ #category : 'host space - geometry' } PCHeadlessHostSpace >> logicalSize [ ^ canvas extent asLogicalSize ] -{ #category : #testing } +{ #category : 'testing' } PCHeadlessHostSpace >> needsRebuild [ ^ false ] -{ #category : #rendering } +{ #category : 'rendering' } PCHeadlessHostSpace >> render: aBlSpace [ canvas fullDraw: aBlSpace root. ] -{ #category : #'host space - rendering' } +{ #category : 'host space - rendering' } PCHeadlessHostSpace >> requestRedraw [ ] -{ #category : #'host space - displaying' } +{ #category : 'host space - displaying' } PCHeadlessHostSpace >> show [ ] -{ #category : #accessing } +{ #category : 'accessing' } PCHeadlessHostSpace >> space: aBlSpace [ space := aBlSpace ] -{ #category : #'host space - geometry' } +{ #category : 'host space - geometry' } PCHeadlessHostSpace >> windowExtent: aPoint [ ] diff --git a/src/BlocBenchs-FPS/PCHexagonBenchCase.class.st b/src/BlocBenchs-FPS/PCHexagonBenchCase.class.st index e1e42f0..80abd75 100644 --- a/src/BlocBenchs-FPS/PCHexagonBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCHexagonBenchCase.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCHexagonBenchCase, - #superclass : #PCPolylineBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCHexagonBenchCase', + #superclass : 'PCPolylineBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #hook } +{ #category : 'hook' } PCHexagonBenchCase >> vertices [ ^ { diff --git a/src/BlocBenchs-FPS/PCImagesBenchCase.class.st b/src/BlocBenchs-FPS/PCImagesBenchCase.class.st index 7a96fdd..1115f5b 100644 --- a/src/BlocBenchs-FPS/PCImagesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCImagesBenchCase.class.st @@ -1,16 +1,18 @@ Class { - #name : #PCImagesBenchCase, - #superclass : #PCTranslatingFiguresBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCImagesBenchCase', + #superclass : 'PCTranslatingFiguresBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #accessing } +{ #category : 'accessing' } PCImagesBenchCase >> logicalExtent [ ^ 700 @ 700 ] -{ #category : #hook } +{ #category : 'hook' } PCImagesBenchCase >> newFigureWith: random [ | container | @@ -26,37 +28,37 @@ PCImagesBenchCase >> newFigureWith: random [ ^ container ] -{ #category : #hook } +{ #category : 'hook' } PCImagesBenchCase >> newFormWith: random [ ^ Smalltalk ui icons icons atRandom: random ] -{ #category : #hook } +{ #category : 'hook' } PCImagesBenchCase >> newImageElementWith: random [ ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } PCImagesBenchCase >> numberOfColumns [ ^ 30 ] -{ #category : #accessing } +{ #category : 'accessing' } PCImagesBenchCase >> numberOfFigures [ ^ self numberOfColumns ] -{ #category : #accessing } +{ #category : 'accessing' } PCImagesBenchCase >> numberOfRows [ ^ 20 ] -{ #category : #hook } +{ #category : 'hook' } PCImagesBenchCase >> offsetBetweenFigures [ ^ 20 @ 20 diff --git a/src/BlocBenchs-FPS/PCLinearGradientCirclesBenchCase.class.st b/src/BlocBenchs-FPS/PCLinearGradientCirclesBenchCase.class.st index dc22756..6692048 100644 --- a/src/BlocBenchs-FPS/PCLinearGradientCirclesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCLinearGradientCirclesBenchCase.class.st @@ -4,12 +4,14 @@ I'm a bench case for linear gradients. See my superclass comment. " Class { - #name : #PCLinearGradientCirclesBenchCase, - #superclass : #PCGradientCirclesBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCLinearGradientCirclesBenchCase', + #superclass : 'PCGradientCirclesBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #hook } +{ #category : 'hook' } PCLinearGradientCirclesBenchCase >> newGradient: random [ ^ BlLinearGradientPaint new diff --git a/src/BlocBenchs-FPS/PCMemCopyToStreamingTextureStrategy.class.st b/src/BlocBenchs-FPS/PCMemCopyToStreamingTextureStrategy.class.st index f8d36ef..bf7d0c7 100644 --- a/src/BlocBenchs-FPS/PCMemCopyToStreamingTextureStrategy.class.st +++ b/src/BlocBenchs-FPS/PCMemCopyToStreamingTextureStrategy.class.st @@ -1,14 +1,16 @@ Class { - #name : #PCMemCopyToStreamingTextureStrategy, - #superclass : #PCSDLTextureStrategy, + #name : 'PCMemCopyToStreamingTextureStrategy', + #superclass : 'PCSDLTextureStrategy', #instVars : [ 'pitchAddress', 'pixelsAddress' ], - #category : #'BlocBenchs-FPS-Raw' + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCMemCopyToStreamingTextureStrategy >> drawDone [ "Copy the updated pixels to texture, and unlock." @@ -21,7 +23,7 @@ PCMemCopyToStreamingTextureStrategy >> drawDone [ ] -{ #category : #drawing } +{ #category : 'drawing' } PCMemCopyToStreamingTextureStrategy >> drawPrepare [ "Lock texture to get an address and pitch where new pixels will be written" @@ -29,7 +31,7 @@ PCMemCopyToStreamingTextureStrategy >> drawPrepare [ ] -{ #category : #drawing } +{ #category : 'drawing' } PCMemCopyToStreamingTextureStrategy >> initialize [ | aCairoSurface | @@ -48,7 +50,7 @@ PCMemCopyToStreamingTextureStrategy >> initialize [ ] -{ #category : #drawing } +{ #category : 'drawing' } PCMemCopyToStreamingTextureStrategy >> sdlTextureAccess [ ^ SDL_TEXTUREACCESS_STREAMING diff --git a/src/BlocBenchs-FPS/PCMorph.class.st b/src/BlocBenchs-FPS/PCMorph.class.st index d206b4e..49499fe 100644 --- a/src/BlocBenchs-FPS/PCMorph.class.st +++ b/src/BlocBenchs-FPS/PCMorph.class.st @@ -4,8 +4,8 @@ I'm a Morph that draws an Athens Canvas every time the World steps. This is useful for benchmarking FPS. " Class { - #name : #PCMorph, - #superclass : #Morph, + #name : 'PCMorph', + #superclass : 'Morph', #instVars : [ 'case', 'cairoContext', @@ -20,16 +20,18 @@ Class { 'surfaceData', 'framesDeltaMS' ], - #category : #'BlocBenchs-FPS-RawMorph-Old' + #category : 'BlocBenchs-FPS-RawMorph-Old', + #package : 'BlocBenchs-FPS', + #tag : 'RawMorph-Old' } -{ #category : #accessing } +{ #category : 'accessing' } PCMorph >> case [ ^ case ] -{ #category : #accessing } +{ #category : 'accessing' } PCMorph >> case: aPCBenchCase [ case := aPCBenchCase. @@ -38,7 +40,7 @@ PCMorph >> case: aPCBenchCase [ ] -{ #category : #drawing } +{ #category : 'drawing' } PCMorph >> drawOn: aFormCanvas [ | currentMS | @@ -64,20 +66,20 @@ PCMorph >> drawOn: aFormCanvas [ self updateFromCairoSurfaceToFormCanvas: aFormCanvas. ] -{ #category : #drawing } +{ #category : 'drawing' } PCMorph >> drawOnCairoSurface [ "Draw on cairoCanvas. Assume #ensureReadyToDrawOnCairoCanvas was executed just before." self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } PCMorph >> elapsedTimeSinceFirstDraw [ ^ (lastMS - startMS) milliSeconds ] -{ #category : #initialization } +{ #category : 'initialization' } PCMorph >> ensureReadyToDrawOnCairoCanvas [ session == Smalltalk session ifTrue: [ ^ self ]. @@ -89,19 +91,19 @@ PCMorph >> ensureReadyToDrawOnCairoCanvas [ ] -{ #category : #accessing } +{ #category : 'accessing' } PCMorph >> frameCount [ ^ framesDeltaMS size ] -{ #category : #accessing } +{ #category : 'accessing' } PCMorph >> framesDeltaMS [ ^ framesDeltaMS ] -{ #category : #initialization } +{ #category : 'initialization' } PCMorph >> initializeSurface [ cairoSurface := AeCairoImageSurface extent: surfaceExtent. @@ -115,54 +117,54 @@ PCMorph >> initializeSurface [ ] -{ #category : #accessing } +{ #category : 'accessing' } PCMorph >> logicalExtent [ ^ surfaceExtent ] -{ #category : #accessing } +{ #category : 'accessing' } PCMorph >> random [ ^ random ] -{ #category : #accessing } +{ #category : 'accessing' } PCMorph >> random: aRandom [ random := aRandom ] -{ #category : #drawing } +{ #category : 'drawing' } PCMorph >> resetAnimation [ ] -{ #category : #stepping } +{ #category : 'stepping' } PCMorph >> step [ self changed ] -{ #category : #stepping } +{ #category : 'stepping' } PCMorph >> stepTime [ ^ 0 ] -{ #category : #accessing } +{ #category : 'accessing' } PCMorph >> surface [ ^ cairoSurface ] -{ #category : #accessing } +{ #category : 'accessing' } PCMorph >> surfaceExtent: aPoint [ surfaceExtent := aPoint ] -{ #category : #drawing } +{ #category : 'drawing' } PCMorph >> updateFromCairoSurfaceToFormCanvas: aFormCanvas [ "Based on displayOnMorphicCanvas:at: and AeCairoImageSurface>>asForm." diff --git a/src/BlocBenchs-FPS/PCNestedTransformationsBenchCase.class.st b/src/BlocBenchs-FPS/PCNestedTransformationsBenchCase.class.st index 28b3882..09c1cd3 100644 --- a/src/BlocBenchs-FPS/PCNestedTransformationsBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCNestedTransformationsBenchCase.class.st @@ -1,28 +1,30 @@ Class { - #name : #PCNestedTransformationsBenchCase, - #superclass : #PCBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCNestedTransformationsBenchCase', + #superclass : 'PCBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #accessing } +{ #category : 'accessing' } PCNestedTransformationsBenchCase >> figureExtent [ ^ 600.0 asPoint ] -{ #category : #hook } +{ #category : 'hook' } PCNestedTransformationsBenchCase >> figureOffset [ ^ 50.0 asPoint ] -{ #category : #accessing } +{ #category : 'accessing' } PCNestedTransformationsBenchCase >> logicalExtent [ ^ 750 @ 750 ] -{ #category : #hook } +{ #category : 'hook' } PCNestedTransformationsBenchCase >> newElement [ | elements random anAnimation | @@ -69,25 +71,25 @@ PCNestedTransformationsBenchCase >> newElement [ yourself ] -{ #category : #hook } +{ #category : 'hook' } PCNestedTransformationsBenchCase >> newRawSDLCairoWindow [ ^ PCNestedTransformationsWindow newWith: self ] -{ #category : #accessing } +{ #category : 'accessing' } PCNestedTransformationsBenchCase >> numberOfFigures [ ^ 50 ] -{ #category : #accessing } +{ #category : 'accessing' } PCNestedTransformationsBenchCase >> targetRelativeRotation [ ^ 5.0 ] -{ #category : #accessing } +{ #category : 'accessing' } PCNestedTransformationsBenchCase >> targetRelativeScale [ ^ 0.9 diff --git a/src/BlocBenchs-FPS/PCNestedTransformationsWindow.class.st b/src/BlocBenchs-FPS/PCNestedTransformationsWindow.class.st index d785b31..feed7a4 100644 --- a/src/BlocBenchs-FPS/PCNestedTransformationsWindow.class.st +++ b/src/BlocBenchs-FPS/PCNestedTransformationsWindow.class.st @@ -1,6 +1,6 @@ Class { - #name : #PCNestedTransformationsWindow, - #superclass : #PCBenchCaseRawSDLCairoWindow, + #name : 'PCNestedTransformationsWindow', + #superclass : 'PCBenchCaseRawSDLCairoWindow', #instVars : [ 'backgroundColors', 'figureMatrices', @@ -10,10 +10,12 @@ Class { 'rotationCenterNegated', 'windowColor' ], - #category : #'BlocBenchs-FPS-Raw' + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCNestedTransformationsWindow >> drawOnCairoCanvasFigureAt: index [ cairoContext setIdentityMatrix. @@ -39,7 +41,7 @@ PCNestedTransformationsWindow >> drawOnCairoCanvasFigureAt: index [ ] -{ #category : #stepping } +{ #category : 'stepping' } PCNestedTransformationsWindow >> drawOnCairoSurface [ "Prepare on first draw" diff --git a/src/BlocBenchs-FPS/PCOutskirtsBenchCase.class.st b/src/BlocBenchs-FPS/PCOutskirtsBenchCase.class.st index 8f84a7c..7810344 100644 --- a/src/BlocBenchs-FPS/PCOutskirtsBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCOutskirtsBenchCase.class.st @@ -1,73 +1,75 @@ Class { - #name : #PCOutskirtsBenchCase, - #superclass : #PCTranslatingFiguresBenchCase, + #name : 'PCOutskirtsBenchCase', + #superclass : 'PCTranslatingFiguresBenchCase', #instVars : [ 'backgroundColor', 'outskirts', 'mustClipChildren', 'backgroundLabel' ], - #category : #'BlocBenchs-FPS-Cases' + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #hook } +{ #category : 'hook' } PCOutskirtsBenchCase >> backgroundColor [ ^ backgroundColor ] -{ #category : #hook } +{ #category : 'hook' } PCOutskirtsBenchCase >> backgroundColor: aColor [ backgroundColor := aColor ] -{ #category : #hook } +{ #category : 'hook' } PCOutskirtsBenchCase >> beNoBackgroundColor [ backgroundColor := Color transparent. backgroundLabel := 'No' ] -{ #category : #hook } +{ #category : 'hook' } PCOutskirtsBenchCase >> beOpaqueBackgroundColor [ backgroundColor := Color orange. backgroundLabel := 'Opaque' ] -{ #category : #hook } +{ #category : 'hook' } PCOutskirtsBenchCase >> beTranslucentBackgroundColor [ backgroundColor := Color green alpha: 0.1. backgroundLabel := 'Translucent' ] -{ #category : #hook } +{ #category : 'hook' } PCOutskirtsBenchCase >> borderColorWith: random [ ^ (Color random: random) alpha: 0.3 ] -{ #category : #hook } +{ #category : 'hook' } PCOutskirtsBenchCase >> borderWidth [ ^ 12 ] -{ #category : #accessing } +{ #category : 'accessing' } PCOutskirtsBenchCase >> figureExtent [ ^ 100 asPoint ] -{ #category : #hook } +{ #category : 'hook' } PCOutskirtsBenchCase >> figureGeometry [ ^ BlRoundedRectangleGeometry cornerRadius: 25 ] -{ #category : #initialization } +{ #category : 'initialization' } PCOutskirtsBenchCase >> initialize [ super initialize. @@ -78,7 +80,7 @@ PCOutskirtsBenchCase >> initialize [ beTranslucentBackgroundColor. ] -{ #category : #accessing } +{ #category : 'accessing' } PCOutskirtsBenchCase >> label [ ^ '{1} border & clipping={3} & {2} background' format: { @@ -87,19 +89,19 @@ PCOutskirtsBenchCase >> label [ mustClipChildren } ] -{ #category : #accessing } +{ #category : 'accessing' } PCOutskirtsBenchCase >> mustClipChildren [ ^ mustClipChildren ] -{ #category : #accessing } +{ #category : 'accessing' } PCOutskirtsBenchCase >> mustClipChildren: aBoolean [ mustClipChildren := aBoolean ] -{ #category : #hook } +{ #category : 'hook' } PCOutskirtsBenchCase >> newChildWith: random [ ^ BlElement new @@ -110,7 +112,7 @@ PCOutskirtsBenchCase >> newChildWith: random [ yourself ] -{ #category : #hook } +{ #category : 'hook' } PCOutskirtsBenchCase >> newFigureWith: random [ ^ BlElement new @@ -124,13 +126,13 @@ PCOutskirtsBenchCase >> newFigureWith: random [ yourself ] -{ #category : #hook } +{ #category : 'hook' } PCOutskirtsBenchCase >> outskirts [ ^ outskirts ] -{ #category : #hook } +{ #category : 'hook' } PCOutskirtsBenchCase >> outskirts: aBlOutskirts [ outskirts := aBlOutskirts diff --git a/src/BlocBenchs-FPS/PCPolylineBenchCase.class.st b/src/BlocBenchs-FPS/PCPolylineBenchCase.class.st index 9139ff9..971d093 100644 --- a/src/BlocBenchs-FPS/PCPolylineBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCPolylineBenchCase.class.st @@ -1,16 +1,18 @@ Class { - #name : #PCPolylineBenchCase, - #superclass : #PCTranslatingFiguresBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCPolylineBenchCase', + #superclass : 'PCTranslatingFiguresBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #hook } +{ #category : 'hook' } PCPolylineBenchCase >> borderWidth [ ^ 1 ] -{ #category : #hook } +{ #category : 'hook' } PCPolylineBenchCase >> newFigureWith: random [ ^ BlElement new @@ -21,13 +23,13 @@ PCPolylineBenchCase >> newFigureWith: random [ yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCPolylineBenchCase >> newRawSDLCairoWindow [ ^ PCPolylinesCachingWindow newWith: self ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCPolylineBenchCase >> newRoassalWrapperMorph [ ^ PCRoassalPolylineMorph new @@ -35,7 +37,7 @@ PCPolylineBenchCase >> newRoassalWrapperMorph [ yourself ] -{ #category : #hook } +{ #category : 'hook' } PCPolylineBenchCase >> vertices [ self subclassResponsibility diff --git a/src/BlocBenchs-FPS/PCPolylinesCachingWindow.class.st b/src/BlocBenchs-FPS/PCPolylinesCachingWindow.class.st index 6c5ac80..cf590e1 100644 --- a/src/BlocBenchs-FPS/PCPolylinesCachingWindow.class.st +++ b/src/BlocBenchs-FPS/PCPolylinesCachingWindow.class.st @@ -1,13 +1,15 @@ Class { - #name : #PCPolylinesCachingWindow, - #superclass : #PCTranslatingPathsWindow, + #name : 'PCPolylinesCachingWindow', + #superclass : 'PCTranslatingPathsWindow', #instVars : [ 'path' ], - #category : #'BlocBenchs-FPS-Raw' + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCPolylinesCachingWindow >> drawOnCairoSurface [ | deltaY | @@ -31,13 +33,13 @@ PCPolylinesCachingWindow >> drawOnCairoSurface [ ] -{ #category : #drawing } +{ #category : 'drawing' } PCPolylinesCachingWindow >> drawPath [ cairoContext stroke ] -{ #category : #drawing } +{ #category : 'drawing' } PCPolylinesCachingWindow >> resetAnimation [ super resetAnimation. @@ -57,7 +59,7 @@ PCPolylinesCachingWindow >> resetAnimation [ ] -{ #category : #initialization } +{ #category : 'initialization' } PCPolylinesCachingWindow >> setPathFor: index [ cairoContext diff --git a/src/BlocBenchs-FPS/PCPolylinesWindow.class.st b/src/BlocBenchs-FPS/PCPolylinesWindow.class.st index 5cf7ac1..b21b540 100644 --- a/src/BlocBenchs-FPS/PCPolylinesWindow.class.st +++ b/src/BlocBenchs-FPS/PCPolylinesWindow.class.st @@ -1,16 +1,18 @@ Class { - #name : #PCPolylinesWindow, - #superclass : #PCTranslatingPathsWindow, - #category : #'BlocBenchs-FPS-Raw' + #name : 'PCPolylinesWindow', + #superclass : 'PCTranslatingPathsWindow', + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCPolylinesWindow >> drawPath [ cairoContext stroke ] -{ #category : #drawing } +{ #category : 'drawing' } PCPolylinesWindow >> resetAnimation [ super resetAnimation. @@ -19,7 +21,7 @@ PCPolylinesWindow >> resetAnimation [ ] -{ #category : #drawing } +{ #category : 'drawing' } PCPolylinesWindow >> setPathFor: index deltaY: deltaY [ | offset | diff --git a/src/BlocBenchs-FPS/PCRadialGradientCirclesBenchCase.class.st b/src/BlocBenchs-FPS/PCRadialGradientCirclesBenchCase.class.st index 615ff99..949867b 100644 --- a/src/BlocBenchs-FPS/PCRadialGradientCirclesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCRadialGradientCirclesBenchCase.class.st @@ -4,12 +4,14 @@ I'm a bench case for radial gradients. See my superclass comment. " Class { - #name : #PCRadialGradientCirclesBenchCase, - #superclass : #PCGradientCirclesBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCRadialGradientCirclesBenchCase', + #superclass : 'PCGradientCirclesBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCRadialGradientCirclesBenchCase >> newGradient: random [ ^ BlRadialGradientPaint new diff --git a/src/BlocBenchs-FPS/PCRawBenchmarker.class.st b/src/BlocBenchs-FPS/PCRawBenchmarker.class.st index c2d47ae..7c0a6dd 100644 --- a/src/BlocBenchs-FPS/PCRawBenchmarker.class.st +++ b/src/BlocBenchs-FPS/PCRawBenchmarker.class.st @@ -2,15 +2,17 @@ I'm a benchmarker for raw Morphic window rendering using Cairo. " Class { - #name : #PCRawBenchmarker, - #superclass : #PCBenchmarker, + #name : 'PCRawBenchmarker', + #superclass : 'PCBenchmarker', #instVars : [ 'rawWindow' ], - #category : #'BlocBenchs-FPS-Benchmarkers' + #category : 'BlocBenchs-FPS-Benchmarkers', + #package : 'BlocBenchs-FPS', + #tag : 'Benchmarkers' } -{ #category : #hook } +{ #category : 'hook' } PCRawBenchmarker >> closeWindow [ rawWindow stopLoop. @@ -18,31 +20,31 @@ PCRawBenchmarker >> closeWindow [ ] -{ #category : #hook } +{ #category : 'hook' } PCRawBenchmarker >> elapsedTimeSinceFirstDraw [ ^ rawWindow elapsedTimeSinceFirstDraw ] -{ #category : #hook } +{ #category : 'hook' } PCRawBenchmarker >> frameCount [ ^ rawWindow frameCount ] -{ #category : #hook } +{ #category : 'hook' } PCRawBenchmarker >> framesDeltaMS [ ^ rawWindow framesDeltaMS ] -{ #category : #printing } +{ #category : 'printing' } PCRawBenchmarker >> label [ ^ 'Raw SDL2+Cairo' ] -{ #category : #hook } +{ #category : 'hook' } PCRawBenchmarker >> openWindow [ rawWindow := case newRawSDLCairoWindow. diff --git a/src/BlocBenchs-FPS/PCRawSDLCairoWindow.class.st b/src/BlocBenchs-FPS/PCRawSDLCairoWindow.class.st index 4c2a363..ba571b0 100644 --- a/src/BlocBenchs-FPS/PCRawSDLCairoWindow.class.st +++ b/src/BlocBenchs-FPS/PCRawSDLCairoWindow.class.st @@ -1,6 +1,6 @@ Class { - #name : #PCRawSDLCairoWindow, - #superclass : #Object, + #name : 'PCRawSDLCairoWindow', + #superclass : 'Object', #instVars : [ 'session', 'cairoContext', @@ -17,35 +17,37 @@ Class { #pools : [ 'SDL2Constants' ], - #category : #'BlocBenchs-FPS-Raw' + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } PCRawSDLCairoWindow class >> initialize [ self useUpdateStaticTextureStrategy ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } PCRawSDLCairoWindow class >> useDirectDrawToStreamingTextureStrategy [ MainTextureStrategyClass := PCDirectDrawToStreamingTextureStrategy ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } PCRawSDLCairoWindow class >> useMemCopyToStreamingTextureStrategy [ MainTextureStrategyClass := PCMemCopyToStreamingTextureStrategy ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } PCRawSDLCairoWindow class >> useUpdateStaticTextureStrategy [ MainTextureStrategyClass := PCUpdateStaticTextureStrategy ] -{ #category : #'opening and closing' } +{ #category : 'opening and closing' } PCRawSDLCairoWindow >> close [ sdlRenderer ifNil: [ ^ self ]. @@ -57,25 +59,25 @@ PCRawSDLCairoWindow >> close [ ] -{ #category : #stepping } +{ #category : 'stepping' } PCRawSDLCairoWindow >> drawDone [ mainTextureStrategy drawDone ] -{ #category : #stepping } +{ #category : 'stepping' } PCRawSDLCairoWindow >> drawOnCairoSurface [ "Hook: subclasses can use cairoContext to draw." ] -{ #category : #stepping } +{ #category : 'stepping' } PCRawSDLCairoWindow >> drawPrepare [ mainTextureStrategy drawPrepare. cairoContext := mainTextureStrategy cairoContext. ] -{ #category : #'opening and closing' } +{ #category : 'opening and closing' } PCRawSDLCairoWindow >> openWithTitle: title position: position extent: extent [ sdlWindow := SDL2 @@ -95,7 +97,7 @@ PCRawSDLCairoWindow >> openWithTitle: title position: position extent: extent [ ] -{ #category : #'opening and closing' } +{ #category : 'opening and closing' } PCRawSDLCairoWindow >> openWithTitle: title position: position extent: extent shape: shapeSurface [ | aMode | @@ -129,7 +131,7 @@ PCRawSDLCairoWindow >> openWithTitle: title position: position extent: extent sh ] -{ #category : #'opening and closing' } +{ #category : 'opening and closing' } PCRawSDLCairoWindow >> openWithTitleOriginal: title position: position extent: extent [ sdlWindow := SDL2 @@ -149,7 +151,7 @@ PCRawSDLCairoWindow >> openWithTitleOriginal: title position: position extent: e ] -{ #category : #stepping } +{ #category : 'stepping' } PCRawSDLCairoWindow >> presentOnWindow [ sdlRenderer @@ -157,7 +159,7 @@ PCRawSDLCairoWindow >> presentOnWindow [ present ] -{ #category : #'opening and closing' } +{ #category : 'opening and closing' } PCRawSDLCairoWindow >> resetMainTexture [ mainTextureStrategy := MainTextureStrategyClass @@ -167,7 +169,7 @@ PCRawSDLCairoWindow >> resetMainTexture [ ] -{ #category : #stepping } +{ #category : 'stepping' } PCRawSDLCairoWindow >> startLoop [ [ @@ -186,7 +188,7 @@ PCRawSDLCairoWindow >> startLoop [ ] -{ #category : #stepping } +{ #category : 'stepping' } PCRawSDLCairoWindow >> step [ self drawPrepare. @@ -197,14 +199,14 @@ PCRawSDLCairoWindow >> step [ ] -{ #category : #stepping } +{ #category : 'stepping' } PCRawSDLCairoWindow >> stepWait [ self flag: #todo. 1 milliSecond wait ] -{ #category : #stepping } +{ #category : 'stepping' } PCRawSDLCairoWindow >> stopLoop [ steppingProcess ifNil: [ ^self ]. @@ -212,7 +214,7 @@ PCRawSDLCairoWindow >> stopLoop [ steppingProcess := nil. ] -{ #category : #'opening and closing' } +{ #category : 'opening and closing' } PCRawSDLCairoWindow >> textureStrategySetupBlock [ ^ [ :aCairoContext | diff --git a/src/BlocBenchs-FPS/PCRoassal3Benchmarker.class.st b/src/BlocBenchs-FPS/PCRoassal3Benchmarker.class.st index 354dd2b..b4e2721 100644 --- a/src/BlocBenchs-FPS/PCRoassal3Benchmarker.class.st +++ b/src/BlocBenchs-FPS/PCRoassal3Benchmarker.class.st @@ -2,47 +2,49 @@ I'm a benchmarker for Roassal3. " Class { - #name : #PCRoassal3Benchmarker, - #superclass : #PCBenchmarker, + #name : 'PCRoassal3Benchmarker', + #superclass : 'PCBenchmarker', #instVars : [ 'wrapper', 'roassalCanvas', 'window' ], - #category : #'BlocBenchs-FPS-Benchmarkers' + #category : 'BlocBenchs-FPS-Benchmarkers', + #package : 'BlocBenchs-FPS', + #tag : 'Benchmarkers' } -{ #category : #hook } +{ #category : 'hook' } PCRoassal3Benchmarker >> closeWindow [ window delete ] -{ #category : #hook } +{ #category : 'hook' } PCRoassal3Benchmarker >> elapsedTimeSinceFirstDraw [ ^ wrapper elapsedTimeSinceFirstDraw ] -{ #category : #hook } +{ #category : 'hook' } PCRoassal3Benchmarker >> frameCount [ ^ wrapper frameCount ] -{ #category : #hook } +{ #category : 'hook' } PCRoassal3Benchmarker >> framesDeltaMS [ ^ wrapper framesDeltaMS ] -{ #category : #printing } +{ #category : 'printing' } PCRoassal3Benchmarker >> label [ ^ 'Roassal3' ] -{ #category : #hook } +{ #category : 'hook' } PCRoassal3Benchmarker >> openWindow [ wrapper := case newRoassalWrapperMorph. diff --git a/src/BlocBenchs-FPS/PCRoassalCirclesMorph.class.st b/src/BlocBenchs-FPS/PCRoassalCirclesMorph.class.st index e531fbc..51abba6 100644 --- a/src/BlocBenchs-FPS/PCRoassalCirclesMorph.class.st +++ b/src/BlocBenchs-FPS/PCRoassalCirclesMorph.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCRoassalCirclesMorph, - #superclass : #PCRoassalTranslatingFiguresMorph, - #category : #'BlocBenchs-FPS-RawMorph-Old' + #name : 'PCRoassalCirclesMorph', + #superclass : 'PCRoassalTranslatingFiguresMorph', + #category : 'BlocBenchs-FPS-RawMorph-Old', + #package : 'BlocBenchs-FPS', + #tag : 'RawMorph-Old' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCRoassalCirclesMorph >> newShape: index [ ^ RSCircle new @@ -15,7 +17,7 @@ PCRoassalCirclesMorph >> newShape: index [ ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCRoassalCirclesMorph >> prepareCircle: aCircleShape [ self subclassResponsibility diff --git a/src/BlocBenchs-FPS/PCRoassalMorph.class.st b/src/BlocBenchs-FPS/PCRoassalMorph.class.st index af7f7a0..5193962 100644 --- a/src/BlocBenchs-FPS/PCRoassalMorph.class.st +++ b/src/BlocBenchs-FPS/PCRoassalMorph.class.st @@ -1,13 +1,15 @@ Class { - #name : #PCRoassalMorph, - #superclass : #PCMorph, + #name : 'PCRoassalMorph', + #superclass : 'PCMorph', #instVars : [ 'roassalAthensMorph' ], - #category : #'BlocBenchs-FPS-RawMorph-Old' + #category : 'BlocBenchs-FPS-RawMorph-Old', + #package : 'BlocBenchs-FPS', + #tag : 'RawMorph-Old' } -{ #category : #drawing } +{ #category : 'drawing' } PCRoassalMorph >> drawOnCairoSurface [ cairoSurface drawDuring: [ :aCairoCanvas | @@ -16,7 +18,7 @@ PCRoassalMorph >> drawOnCairoSurface [ drawOnAthensCanvas: aCairoCanvas ]. ] -{ #category : #drawing } +{ #category : 'drawing' } PCRoassalMorph >> initializeSurface [ cairoSurface := AthensCairoSurface extent: surfaceExtent. diff --git a/src/BlocBenchs-FPS/PCRoassalPolylineMorph.class.st b/src/BlocBenchs-FPS/PCRoassalPolylineMorph.class.st index 6708138..fa84162 100644 --- a/src/BlocBenchs-FPS/PCRoassalPolylineMorph.class.st +++ b/src/BlocBenchs-FPS/PCRoassalPolylineMorph.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCRoassalPolylineMorph, - #superclass : #PCRoassalTranslatingFiguresMorph, - #category : #'BlocBenchs-FPS-RawMorph-Old' + #name : 'PCRoassalPolylineMorph', + #superclass : 'PCRoassalTranslatingFiguresMorph', + #category : 'BlocBenchs-FPS-RawMorph-Old', + #package : 'BlocBenchs-FPS', + #tag : 'RawMorph-Old' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCRoassalPolylineMorph >> newShape: index [ | offset translatedPoints | diff --git a/src/BlocBenchs-FPS/PCRoassalSolidBorderCirclesMorph.class.st b/src/BlocBenchs-FPS/PCRoassalSolidBorderCirclesMorph.class.st index f3732f7..6861747 100644 --- a/src/BlocBenchs-FPS/PCRoassalSolidBorderCirclesMorph.class.st +++ b/src/BlocBenchs-FPS/PCRoassalSolidBorderCirclesMorph.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCRoassalSolidBorderCirclesMorph, - #superclass : #PCRoassalCirclesMorph, - #category : #'BlocBenchs-FPS-RawMorph-Old' + #name : 'PCRoassalSolidBorderCirclesMorph', + #superclass : 'PCRoassalCirclesMorph', + #category : 'BlocBenchs-FPS-RawMorph-Old', + #package : 'BlocBenchs-FPS', + #tag : 'RawMorph-Old' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCRoassalSolidBorderCirclesMorph >> prepareCircle: aCircleShape [ aCircleShape diff --git a/src/BlocBenchs-FPS/PCRoassalSolidCirclesMorph.class.st b/src/BlocBenchs-FPS/PCRoassalSolidCirclesMorph.class.st index 8626a37..2299b31 100644 --- a/src/BlocBenchs-FPS/PCRoassalSolidCirclesMorph.class.st +++ b/src/BlocBenchs-FPS/PCRoassalSolidCirclesMorph.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCRoassalSolidCirclesMorph, - #superclass : #PCRoassalCirclesMorph, - #category : #'BlocBenchs-FPS-RawMorph-Old' + #name : 'PCRoassalSolidCirclesMorph', + #superclass : 'PCRoassalCirclesMorph', + #category : 'BlocBenchs-FPS-RawMorph-Old', + #package : 'BlocBenchs-FPS', + #tag : 'RawMorph-Old' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCRoassalSolidCirclesMorph >> prepareCircle: aCircleShape [ aCircleShape color: (Color random: random) diff --git a/src/BlocBenchs-FPS/PCRoassalTranslatingFiguresMorph.class.st b/src/BlocBenchs-FPS/PCRoassalTranslatingFiguresMorph.class.st index dccaf52..4bcbd7c 100644 --- a/src/BlocBenchs-FPS/PCRoassalTranslatingFiguresMorph.class.st +++ b/src/BlocBenchs-FPS/PCRoassalTranslatingFiguresMorph.class.st @@ -1,16 +1,18 @@ Class { - #name : #PCRoassalTranslatingFiguresMorph, - #superclass : #PCRoassalMorph, - #category : #'BlocBenchs-FPS-RawMorph-Old' + #name : 'PCRoassalTranslatingFiguresMorph', + #superclass : 'PCRoassalMorph', + #category : 'BlocBenchs-FPS-RawMorph-Old', + #package : 'BlocBenchs-FPS', + #tag : 'RawMorph-Old' } -{ #category : #accessing } +{ #category : 'accessing' } PCRoassalTranslatingFiguresMorph >> newShape: index [ ^ self subclassResponsibility ] -{ #category : #drawing } +{ #category : 'drawing' } PCRoassalTranslatingFiguresMorph >> resetAnimation [ | canvas aContainer offset | diff --git a/src/BlocBenchs-FPS/PCRotatedImagesBenchCase.class.st b/src/BlocBenchs-FPS/PCRotatedImagesBenchCase.class.st index 7321998..0ca7f8d 100644 --- a/src/BlocBenchs-FPS/PCRotatedImagesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCRotatedImagesBenchCase.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCRotatedImagesBenchCase, - #superclass : #PCImagesBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCRotatedImagesBenchCase', + #superclass : 'PCImagesBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCRotatedImagesBenchCase >> newImageElementWith: random [ | randomIcon | diff --git a/src/BlocBenchs-FPS/PCRotatedRectanglesBenchCase.class.st b/src/BlocBenchs-FPS/PCRotatedRectanglesBenchCase.class.st index 2f8b6a1..16509de 100644 --- a/src/BlocBenchs-FPS/PCRotatedRectanglesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCRotatedRectanglesBenchCase.class.st @@ -1,16 +1,18 @@ Class { - #name : #PCRotatedRectanglesBenchCase, - #superclass : #PCTranslatingFiguresBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCRotatedRectanglesBenchCase', + #superclass : 'PCTranslatingFiguresBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #accessing } +{ #category : 'accessing' } PCRotatedRectanglesBenchCase >> figureExtent [ ^ 100.0 asPoint ] -{ #category : #hook } +{ #category : 'hook' } PCRotatedRectanglesBenchCase >> newFigureWith: random [ ^ BlElement new diff --git a/src/BlocBenchs-FPS/PCRotatedTextBenchCase.class.st b/src/BlocBenchs-FPS/PCRotatedTextBenchCase.class.st index 08af3d8..84962d0 100644 --- a/src/BlocBenchs-FPS/PCRotatedTextBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCRotatedTextBenchCase.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCRotatedTextBenchCase, - #superclass : #PCTranslatingFiguresBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCRotatedTextBenchCase', + #superclass : 'PCTranslatingFiguresBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #hook } +{ #category : 'hook' } PCRotatedTextBenchCase >> blTextFor: random [ ^ (BlRopedText string: (String loremIpsum: 90)) @@ -14,13 +16,13 @@ PCRotatedTextBenchCase >> blTextFor: random [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } PCRotatedTextBenchCase >> logicalExtent [ ^ 900 @ 500 ] -{ #category : #hook } +{ #category : 'hook' } PCRotatedTextBenchCase >> newFigureWith: random [ ^ BlTextElement new @@ -31,13 +33,13 @@ PCRotatedTextBenchCase >> newFigureWith: random [ ] -{ #category : #accessing } +{ #category : 'accessing' } PCRotatedTextBenchCase >> numberOfFigures [ ^ 100 ] -{ #category : #hook } +{ #category : 'hook' } PCRotatedTextBenchCase >> offsetBetweenFigures [ ^ 7 @ 0 diff --git a/src/BlocBenchs-FPS/PCRoundedRectanglesBenchCase.class.st b/src/BlocBenchs-FPS/PCRoundedRectanglesBenchCase.class.st index f33b0fa..7c778f1 100644 --- a/src/BlocBenchs-FPS/PCRoundedRectanglesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCRoundedRectanglesBenchCase.class.st @@ -1,16 +1,18 @@ Class { - #name : #PCRoundedRectanglesBenchCase, - #superclass : #PCTranslatingFiguresBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCRoundedRectanglesBenchCase', + #superclass : 'PCTranslatingFiguresBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #accessing } +{ #category : 'accessing' } PCRoundedRectanglesBenchCase >> figureExtent [ ^ 80.0 asPoint ] -{ #category : #hook } +{ #category : 'hook' } PCRoundedRectanglesBenchCase >> newFigureWith: random [ ^ BlElement new diff --git a/src/BlocBenchs-FPS/PCSDLTextureStrategy.class.st b/src/BlocBenchs-FPS/PCSDLTextureStrategy.class.st index 860b184..8240d56 100644 --- a/src/BlocBenchs-FPS/PCSDLTextureStrategy.class.st +++ b/src/BlocBenchs-FPS/PCSDLTextureStrategy.class.st @@ -1,6 +1,6 @@ Class { - #name : #PCSDLTextureStrategy, - #superclass : #Object, + #name : 'PCSDLTextureStrategy', + #superclass : 'Object', #instVars : [ 'sdlRenderer', 'sdlTexture', @@ -13,10 +13,12 @@ Class { #pools : [ 'SDL2Constants' ], - #category : #'BlocBenchs-FPS-Raw' + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCSDLTextureStrategy class >> newExtent: aPoint renderer: aSdlRenderer setupBlock: aUnaryBlock [ ^ self basicNew @@ -24,13 +26,13 @@ PCSDLTextureStrategy class >> newExtent: aPoint renderer: aSdlRenderer setupBloc yourself ] -{ #category : #accessing } +{ #category : 'accessing' } PCSDLTextureStrategy >> cairoContext [ ^ cairoContext ] -{ #category : #accessing } +{ #category : 'accessing' } PCSDLTextureStrategy >> cairoContextDo: aBlockClosure [ self drawPrepare. @@ -39,21 +41,21 @@ PCSDLTextureStrategy >> cairoContextDo: aBlockClosure [ ] -{ #category : #drawing } +{ #category : 'drawing' } PCSDLTextureStrategy >> drawDone [ "Send after using the cairo context" self subclassResponsibility ] -{ #category : #drawing } +{ #category : 'drawing' } PCSDLTextureStrategy >> drawPrepare [ "Send before using the cairo context" self subclassResponsibility ] -{ #category : #drawing } +{ #category : 'drawing' } PCSDLTextureStrategy >> initializeExtent: aPoint renderer: aSdlRenderer setupBlock: aUnaryBlock [ pixelExtent := aPoint. @@ -82,37 +84,37 @@ PCSDLTextureStrategy >> initializeExtent: aPoint renderer: aSdlRenderer setupBlo ] -{ #category : #drawing } +{ #category : 'drawing' } PCSDLTextureStrategy >> sdlPixelFormat [ ^ SDL_PIXELFORMAT_ARGB8888 ] -{ #category : #accessing } +{ #category : 'accessing' } PCSDLTextureStrategy >> sdlRect [ ^ sdlRect ] -{ #category : #accessing } +{ #category : 'accessing' } PCSDLTextureStrategy >> sdlTexture [ ^ sdlTexture ] -{ #category : #drawing } +{ #category : 'drawing' } PCSDLTextureStrategy >> sdlTextureAccess [ ^ self subclassResponsibility ] -{ #category : #drawing } +{ #category : 'drawing' } PCSDLTextureStrategy >> setBlendEnabled [ sdlTexture blendMode: SDL_BLENDMODE_BLEND ] -{ #category : #drawing } +{ #category : 'drawing' } PCSDLTextureStrategy >> setBlendNone [ "Prepare to copy another textures on me without blending." diff --git a/src/BlocBenchs-FPS/PCScaledRectanglesBenchCase.class.st b/src/BlocBenchs-FPS/PCScaledRectanglesBenchCase.class.st index 4227f31..f9e9765 100644 --- a/src/BlocBenchs-FPS/PCScaledRectanglesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCScaledRectanglesBenchCase.class.st @@ -1,16 +1,18 @@ Class { - #name : #PCScaledRectanglesBenchCase, - #superclass : #PCTranslatingFiguresBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCScaledRectanglesBenchCase', + #superclass : 'PCTranslatingFiguresBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #accessing } +{ #category : 'accessing' } PCScaledRectanglesBenchCase >> figureExtent [ ^ 100.0 asPoint ] -{ #category : #hook } +{ #category : 'hook' } PCScaledRectanglesBenchCase >> newFigureWith: random [ ^ BlElement new @@ -21,7 +23,7 @@ PCScaledRectanglesBenchCase >> newFigureWith: random [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } PCScaledRectanglesBenchCase >> scale [ ^ 0.75 @ 1.5 diff --git a/src/BlocBenchs-FPS/PCShadowedCirclesBenchCase.class.st b/src/BlocBenchs-FPS/PCShadowedCirclesBenchCase.class.st index aa92a1f..82d2e94 100644 --- a/src/BlocBenchs-FPS/PCShadowedCirclesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCShadowedCirclesBenchCase.class.st @@ -1,14 +1,16 @@ Class { - #name : #PCShadowedCirclesBenchCase, - #superclass : #PCCirclesBenchCase, + #name : 'PCShadowedCirclesBenchCase', + #superclass : 'PCCirclesBenchCase', #instVars : [ 'isTranslucent', 'maximumOffset' ], - #category : #'BlocBenchs-FPS-Cases' + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #initialization } +{ #category : 'initialization' } PCShadowedCirclesBenchCase >> initialize [ super initialize. @@ -17,37 +19,37 @@ PCShadowedCirclesBenchCase >> initialize [ maximumOffset := 20 @ 20. ] -{ #category : #accessing } +{ #category : 'accessing' } PCShadowedCirclesBenchCase >> isTranslucent [ ^ isTranslucent ] -{ #category : #accessing } +{ #category : 'accessing' } PCShadowedCirclesBenchCase >> isTranslucent: aBoolean [ isTranslucent := aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } PCShadowedCirclesBenchCase >> maximumOffset [ ^ maximumOffset ] -{ #category : #accessing } +{ #category : 'accessing' } PCShadowedCirclesBenchCase >> maximumOffset: anObject [ maximumOffset := anObject ] -{ #category : #hook } +{ #category : 'hook' } PCShadowedCirclesBenchCase >> newShadowColor: shadowColor offset: shadowOffset [ ^ self subclassResponsibility ] -{ #category : #hook } +{ #category : 'hook' } PCShadowedCirclesBenchCase >> prepare: anElement with: random [ | shadowColor shadowOffset | diff --git a/src/BlocBenchs-FPS/PCSimpleShadowedCirclesBenchCase.class.st b/src/BlocBenchs-FPS/PCSimpleShadowedCirclesBenchCase.class.st index d0ad0cf..8faf7ec 100644 --- a/src/BlocBenchs-FPS/PCSimpleShadowedCirclesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCSimpleShadowedCirclesBenchCase.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCSimpleShadowedCirclesBenchCase, - #superclass : #PCShadowedCirclesBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCSimpleShadowedCirclesBenchCase', + #superclass : 'PCShadowedCirclesBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #hook } +{ #category : 'hook' } PCSimpleShadowedCirclesBenchCase >> newShadowColor: shadowColor offset: shadowOffset [ ^ BlSimpleShadowEffect @@ -12,7 +14,7 @@ PCSimpleShadowedCirclesBenchCase >> newShadowColor: shadowColor offset: shadowOf offset: shadowOffset ] -{ #category : #hook } +{ #category : 'hook' } PCSimpleShadowedCirclesBenchCase >> numberOfFigures [ ^ 100 diff --git a/src/BlocBenchs-FPS/PCSolidBorderCirclesBenchCase.class.st b/src/BlocBenchs-FPS/PCSolidBorderCirclesBenchCase.class.st index 5bdb309..f3bb778 100644 --- a/src/BlocBenchs-FPS/PCSolidBorderCirclesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCSolidBorderCirclesBenchCase.class.st @@ -1,22 +1,24 @@ Class { - #name : #PCSolidBorderCirclesBenchCase, - #superclass : #PCCirclesBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCSolidBorderCirclesBenchCase', + #superclass : 'PCCirclesBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #accessing } +{ #category : 'accessing' } PCSolidBorderCirclesBenchCase >> borderWidth [ ^ 5 ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCSolidBorderCirclesBenchCase >> newRawSDLCairoWindow [ ^ PCSolidBorderCirclesWindow newWith: self ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCSolidBorderCirclesBenchCase >> newRoassalWrapperMorph [ ^ PCRoassalSolidBorderCirclesMorph new @@ -24,7 +26,7 @@ PCSolidBorderCirclesBenchCase >> newRoassalWrapperMorph [ yourself ] -{ #category : #hook } +{ #category : 'hook' } PCSolidBorderCirclesBenchCase >> prepare: anElement with: random [ anElement border: diff --git a/src/BlocBenchs-FPS/PCSolidBorderCirclesWindow.class.st b/src/BlocBenchs-FPS/PCSolidBorderCirclesWindow.class.st index 37399a2..e50672f 100644 --- a/src/BlocBenchs-FPS/PCSolidBorderCirclesWindow.class.st +++ b/src/BlocBenchs-FPS/PCSolidBorderCirclesWindow.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCSolidBorderCirclesWindow, - #superclass : #PCCirclesWindow, - #category : #'BlocBenchs-FPS-Raw' + #name : 'PCSolidBorderCirclesWindow', + #superclass : 'PCCirclesWindow', + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCSolidBorderCirclesWindow >> drawPath [ cairoContext diff --git a/src/BlocBenchs-FPS/PCSolidCirclesBenchCase.class.st b/src/BlocBenchs-FPS/PCSolidCirclesBenchCase.class.st index e08093c..6c5e16f 100644 --- a/src/BlocBenchs-FPS/PCSolidCirclesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCSolidCirclesBenchCase.class.st @@ -1,16 +1,18 @@ Class { - #name : #PCSolidCirclesBenchCase, - #superclass : #PCCirclesBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCSolidCirclesBenchCase', + #superclass : 'PCCirclesBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #hook } +{ #category : 'hook' } PCSolidCirclesBenchCase >> newRawSDLCairoWindow [ ^ PCSolidCirclesWindow newWith: self ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCSolidCirclesBenchCase >> newRoassalWrapperMorph [ ^ PCRoassalSolidCirclesMorph new @@ -18,7 +20,7 @@ PCSolidCirclesBenchCase >> newRoassalWrapperMorph [ yourself ] -{ #category : #hook } +{ #category : 'hook' } PCSolidCirclesBenchCase >> prepare: anElement with: random [ anElement background: (Color random: random) diff --git a/src/BlocBenchs-FPS/PCSolidCirclesWindow.class.st b/src/BlocBenchs-FPS/PCSolidCirclesWindow.class.st index c165eef..fd93650 100644 --- a/src/BlocBenchs-FPS/PCSolidCirclesWindow.class.st +++ b/src/BlocBenchs-FPS/PCSolidCirclesWindow.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCSolidCirclesWindow, - #superclass : #PCCirclesWindow, - #category : #'BlocBenchs-FPS-Raw' + #name : 'PCSolidCirclesWindow', + #superclass : 'PCCirclesWindow', + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCSolidCirclesWindow >> drawPath [ cairoContext fill diff --git a/src/BlocBenchs-FPS/PCSolidImagesBenchCase.class.st b/src/BlocBenchs-FPS/PCSolidImagesBenchCase.class.st index 0e3b991..5d61eef 100644 --- a/src/BlocBenchs-FPS/PCSolidImagesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCSolidImagesBenchCase.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCSolidImagesBenchCase, - #superclass : #PCImagesBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCSolidImagesBenchCase', + #superclass : 'PCImagesBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #hook } +{ #category : 'hook' } PCSolidImagesBenchCase >> newImageElementWith: random [ | randomIcon | @@ -16,7 +18,7 @@ PCSolidImagesBenchCase >> newImageElementWith: random [ yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCSolidImagesBenchCase >> newRawSDLCairoWindow [ ^ PCSolidImagesWindow newWith: self diff --git a/src/BlocBenchs-FPS/PCSolidImagesWindow.class.st b/src/BlocBenchs-FPS/PCSolidImagesWindow.class.st index 682228e..5ec1c37 100644 --- a/src/BlocBenchs-FPS/PCSolidImagesWindow.class.st +++ b/src/BlocBenchs-FPS/PCSolidImagesWindow.class.st @@ -1,13 +1,15 @@ Class { - #name : #PCSolidImagesWindow, - #superclass : #PCTranslatingFiguresWindow, + #name : 'PCSolidImagesWindow', + #superclass : 'PCTranslatingFiguresWindow', #instVars : [ 'patterns' ], - #category : #'BlocBenchs-FPS-Raw' + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCSolidImagesWindow >> drawOnCairoSurface [ | deltaY tmpMatrix patternStream | @@ -39,7 +41,7 @@ PCSolidImagesWindow >> drawOnCairoSurface [ ] -{ #category : #drawing } +{ #category : 'drawing' } PCSolidImagesWindow >> resetAnimation [ super resetAnimation. diff --git a/src/BlocBenchs-FPS/PCTextBenchCase.class.st b/src/BlocBenchs-FPS/PCTextBenchCase.class.st index 90b43f2..7651971 100644 --- a/src/BlocBenchs-FPS/PCTextBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCTextBenchCase.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCTextBenchCase, - #superclass : #PCTranslatingFiguresBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCTextBenchCase', + #superclass : 'PCTranslatingFiguresBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #hook } +{ #category : 'hook' } PCTextBenchCase >> blTextFor: random [ ^ (BlRopedText string: (String loremIpsum: 170)) @@ -14,13 +16,13 @@ PCTextBenchCase >> blTextFor: random [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } PCTextBenchCase >> logicalExtent [ ^ 900 @ 900 ] -{ #category : #hook } +{ #category : 'hook' } PCTextBenchCase >> newFigureWith: random [ ^ BlTextElement new @@ -29,19 +31,19 @@ PCTextBenchCase >> newFigureWith: random [ ] -{ #category : #accessing } +{ #category : 'accessing' } PCTextBenchCase >> numberOfFigures [ ^ 100 ] -{ #category : #hook } +{ #category : 'hook' } PCTextBenchCase >> offsetBetweenFigures [ ^ 0 @ 9 ] -{ #category : #accessing } +{ #category : 'accessing' } PCTextBenchCase >> targetTranslation [ ^ 0 @ 100 diff --git a/src/BlocBenchs-FPS/PCThunderBenchCase.class.st b/src/BlocBenchs-FPS/PCThunderBenchCase.class.st index 87dca90..bd42cca 100644 --- a/src/BlocBenchs-FPS/PCThunderBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCThunderBenchCase.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCThunderBenchCase, - #superclass : #PCPolylineBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCThunderBenchCase', + #superclass : 'PCPolylineBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #hook } +{ #category : 'hook' } PCThunderBenchCase >> vertices [ ^ (Array streamContents: [:stream | diff --git a/src/BlocBenchs-FPS/PCTranslatingFiguresBenchCase.class.st b/src/BlocBenchs-FPS/PCTranslatingFiguresBenchCase.class.st index f486fc6..49cb6c2 100644 --- a/src/BlocBenchs-FPS/PCTranslatingFiguresBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCTranslatingFiguresBenchCase.class.st @@ -1,13 +1,15 @@ Class { - #name : #PCTranslatingFiguresBenchCase, - #superclass : #PCBenchCase, + #name : 'PCTranslatingFiguresBenchCase', + #superclass : 'PCBenchCase', #instVars : [ 'useSingleAnimation' ], - #category : #'BlocBenchs-FPS-Cases' + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #examples } +{ #category : 'examples' } PCTranslatingFiguresBenchCase class >> exampleOpenFigureSamples [ self allBenchCases do: [ :each | @@ -24,13 +26,13 @@ PCTranslatingFiguresBenchCase class >> exampleOpenFigureSamples [ ] -{ #category : #accessing } +{ #category : 'accessing' } PCTranslatingFiguresBenchCase >> figureOffset [ ^ 20 @ 20 ] -{ #category : #initialization } +{ #category : 'initialization' } PCTranslatingFiguresBenchCase >> initialize [ super initialize. @@ -38,13 +40,13 @@ PCTranslatingFiguresBenchCase >> initialize [ useSingleAnimation := true ] -{ #category : #accessing } +{ #category : 'accessing' } PCTranslatingFiguresBenchCase >> logicalExtent [ ^ 750 @ 350 ] -{ #category : #hook } +{ #category : 'hook' } PCTranslatingFiguresBenchCase >> newElement [ ^ useSingleAnimation @@ -52,7 +54,7 @@ PCTranslatingFiguresBenchCase >> newElement [ ifFalse: [ self newElementWithIndependentAnimations ] ] -{ #category : #hook } +{ #category : 'hook' } PCTranslatingFiguresBenchCase >> newElementWithIndependentAnimations [ | random container | @@ -74,7 +76,7 @@ PCTranslatingFiguresBenchCase >> newElementWithIndependentAnimations [ ^ container ] -{ #category : #hook } +{ #category : 'hook' } PCTranslatingFiguresBenchCase >> newElementWithSingleAnimation [ | random container | @@ -95,43 +97,43 @@ PCTranslatingFiguresBenchCase >> newElementWithSingleAnimation [ ^ container ] -{ #category : #hook } +{ #category : 'hook' } PCTranslatingFiguresBenchCase >> newFigureWith: random [ ^ self subclassResponsibility ] -{ #category : #examples } +{ #category : 'examples' } PCTranslatingFiguresBenchCase >> newSampleFigure [ ^ self newFigureWith: self newRandom ] -{ #category : #accessing } +{ #category : 'accessing' } PCTranslatingFiguresBenchCase >> numberOfFigures [ ^ 300 ] -{ #category : #hook } +{ #category : 'hook' } PCTranslatingFiguresBenchCase >> offsetBetweenFigures [ ^ 2 @ 0 ] -{ #category : #accessing } +{ #category : 'accessing' } PCTranslatingFiguresBenchCase >> targetTranslation [ ^ 0 @ 200 ] -{ #category : #accessing } +{ #category : 'accessing' } PCTranslatingFiguresBenchCase >> useSingleAnimation [ ^ useSingleAnimation ] -{ #category : #accessing } +{ #category : 'accessing' } PCTranslatingFiguresBenchCase >> useSingleAnimation: aBoolean [ useSingleAnimation := aBoolean diff --git a/src/BlocBenchs-FPS/PCTranslatingFiguresWindow.class.st b/src/BlocBenchs-FPS/PCTranslatingFiguresWindow.class.st index 0bd43b1..b6be4d7 100644 --- a/src/BlocBenchs-FPS/PCTranslatingFiguresWindow.class.st +++ b/src/BlocBenchs-FPS/PCTranslatingFiguresWindow.class.st @@ -1,13 +1,15 @@ Class { - #name : #PCTranslatingFiguresWindow, - #superclass : #PCCleanCanvasWindow, + #name : 'PCTranslatingFiguresWindow', + #superclass : 'PCCleanCanvasWindow', #instVars : [ 'deltaYPerMS' ], - #category : #'BlocBenchs-FPS-Raw' + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCTranslatingFiguresWindow >> resetAnimation [ super resetAnimation. diff --git a/src/BlocBenchs-FPS/PCTranslatingPathsWindow.class.st b/src/BlocBenchs-FPS/PCTranslatingPathsWindow.class.st index 0186d31..cd0d640 100644 --- a/src/BlocBenchs-FPS/PCTranslatingPathsWindow.class.st +++ b/src/BlocBenchs-FPS/PCTranslatingPathsWindow.class.st @@ -1,13 +1,15 @@ Class { - #name : #PCTranslatingPathsWindow, - #superclass : #PCTranslatingFiguresWindow, + #name : 'PCTranslatingPathsWindow', + #superclass : 'PCTranslatingFiguresWindow', #instVars : [ 'colors' ], - #category : #'BlocBenchs-FPS-Raw' + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCTranslatingPathsWindow >> drawOnCairoSurface [ | deltaY | @@ -21,13 +23,13 @@ PCTranslatingPathsWindow >> drawOnCairoSurface [ ] -{ #category : #drawing } +{ #category : 'drawing' } PCTranslatingPathsWindow >> drawPath [ self subclassResponsibility ] -{ #category : #drawing } +{ #category : 'drawing' } PCTranslatingPathsWindow >> resetAnimation [ super resetAnimation. @@ -36,13 +38,13 @@ PCTranslatingPathsWindow >> resetAnimation [ ] -{ #category : #drawing } +{ #category : 'drawing' } PCTranslatingPathsWindow >> setPathFor: index deltaY: deltaY [ self subclassResponsibility ] -{ #category : #drawing } +{ #category : 'drawing' } PCTranslatingPathsWindow >> setSourceFor: index [ cairoContext sourceColor: (colors at: index) diff --git a/src/BlocBenchs-FPS/PCTranslucentCirclesBenchCase.class.st b/src/BlocBenchs-FPS/PCTranslucentCirclesBenchCase.class.st index 24d9bc8..0e13de0 100644 --- a/src/BlocBenchs-FPS/PCTranslucentCirclesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCTranslucentCirclesBenchCase.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCTranslucentCirclesBenchCase, - #superclass : #PCCirclesBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCTranslucentCirclesBenchCase', + #superclass : 'PCCirclesBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #hook } +{ #category : 'hook' } PCTranslucentCirclesBenchCase >> prepare: anElement with: random [ anElement background: ((Color random: random) alpha: 0.1) diff --git a/src/BlocBenchs-FPS/PCTranslucentEllipsesBenchCase.class.st b/src/BlocBenchs-FPS/PCTranslucentEllipsesBenchCase.class.st index 1f24715..afe5642 100644 --- a/src/BlocBenchs-FPS/PCTranslucentEllipsesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCTranslucentEllipsesBenchCase.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCTranslucentEllipsesBenchCase, - #superclass : #PCTranslatingFiguresBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCTranslucentEllipsesBenchCase', + #superclass : 'PCTranslatingFiguresBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #accessing } +{ #category : 'accessing' } PCTranslucentEllipsesBenchCase >> figureExtent: aRandom [ ^ Point @@ -12,7 +14,7 @@ PCTranslucentEllipsesBenchCase >> figureExtent: aRandom [ y: (aRandom nextBetween: 20 and: 80) ] -{ #category : #hook } +{ #category : 'hook' } PCTranslucentEllipsesBenchCase >> newFigureWith: random [ ^ BlElement new diff --git a/src/BlocBenchs-FPS/PCTranslucentImagesBenchCase.class.st b/src/BlocBenchs-FPS/PCTranslucentImagesBenchCase.class.st index 13a368b..9e49af7 100644 --- a/src/BlocBenchs-FPS/PCTranslucentImagesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCTranslucentImagesBenchCase.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCTranslucentImagesBenchCase, - #superclass : #PCImagesBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCTranslucentImagesBenchCase', + #superclass : 'PCImagesBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } PCTranslucentImagesBenchCase >> newImageElementWith: random [ | randomIcon | diff --git a/src/BlocBenchs-FPS/PCTranslucentOpacityCirclesBenchCase.class.st b/src/BlocBenchs-FPS/PCTranslucentOpacityCirclesBenchCase.class.st index 0ac7493..45f6078 100644 --- a/src/BlocBenchs-FPS/PCTranslucentOpacityCirclesBenchCase.class.st +++ b/src/BlocBenchs-FPS/PCTranslucentOpacityCirclesBenchCase.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCTranslucentOpacityCirclesBenchCase, - #superclass : #PCCirclesBenchCase, - #category : #'BlocBenchs-FPS-Cases' + #name : 'PCTranslucentOpacityCirclesBenchCase', + #superclass : 'PCCirclesBenchCase', + #category : 'BlocBenchs-FPS-Cases', + #package : 'BlocBenchs-FPS', + #tag : 'Cases' } -{ #category : #hook } +{ #category : 'hook' } PCTranslucentOpacityCirclesBenchCase >> prepare: anElement with: random [ anElement diff --git a/src/BlocBenchs-FPS/PCUpdateStaticTextureStrategy.class.st b/src/BlocBenchs-FPS/PCUpdateStaticTextureStrategy.class.st index c8bde7d..6da329e 100644 --- a/src/BlocBenchs-FPS/PCUpdateStaticTextureStrategy.class.st +++ b/src/BlocBenchs-FPS/PCUpdateStaticTextureStrategy.class.st @@ -1,10 +1,12 @@ Class { - #name : #PCUpdateStaticTextureStrategy, - #superclass : #PCSDLTextureStrategy, - #category : #'BlocBenchs-FPS-Raw' + #name : 'PCUpdateStaticTextureStrategy', + #superclass : 'PCSDLTextureStrategy', + #category : 'BlocBenchs-FPS-Raw', + #package : 'BlocBenchs-FPS', + #tag : 'Raw' } -{ #category : #drawing } +{ #category : 'drawing' } PCUpdateStaticTextureStrategy >> drawDone [ sdlTexture @@ -14,13 +16,13 @@ PCUpdateStaticTextureStrategy >> drawDone [ ] -{ #category : #drawing } +{ #category : 'drawing' } PCUpdateStaticTextureStrategy >> drawPrepare [ "The cairo context was prepared in initialize." ] -{ #category : #drawing } +{ #category : 'drawing' } PCUpdateStaticTextureStrategy >> initialize [ | aCairoSurface | @@ -37,7 +39,7 @@ PCUpdateStaticTextureStrategy >> initialize [ setupBlock value: cairoContext ] -{ #category : #drawing } +{ #category : 'drawing' } PCUpdateStaticTextureStrategy >> sdlTextureAccess [ ^ SDL_TEXTUREACCESS_STATIC diff --git a/src/BlocBenchs-FPS/package.st b/src/BlocBenchs-FPS/package.st index 22043f4..52c16ec 100644 --- a/src/BlocBenchs-FPS/package.st +++ b/src/BlocBenchs-FPS/package.st @@ -1 +1 @@ -Package { #name : #'BlocBenchs-FPS' } +Package { #name : 'BlocBenchs-FPS' }