mirror of
https://github.com/lxsang/Diya-API.git
synced 2024-12-28 12:28:21 +01:00
165 lines
4.2 KiB
Smalltalk
165 lines
4.2 KiB
Smalltalk
Class {
|
|
#name : #TotoShader,
|
|
#superclass : #OpenGLSL,
|
|
#category : #'Diya-Shaders'
|
|
}
|
|
|
|
{ #category : #'as yet unclassified' }
|
|
TotoShader class >> fragmentShader [
|
|
^'
|
|
#ifdef GL_ES
|
|
precision highp float;
|
|
#endif
|
|
|
|
varying vec2 texcoord;
|
|
uniform sampler2D u_texture;
|
|
uniform vec2 u_resolution;
|
|
uniform vec2 u_mouse;
|
|
uniform float u_time;
|
|
void main(void) {
|
|
gl_FragColor = texture2D(u_texture, texcoord); //vec4(1, 1, 1, texture2D(u_texture, texcoord).r) * vec4(1,1,1,1);
|
|
}'!
|
|
|
|
|pkgn dest pkg fileReference fileName writer core hePackage ignoresClasses|
|
|
FFIMethodRegistry resetAll.
|
|
dest := Smalltalk arguments first.
|
|
pkgn := Smalltalk arguments at:2.
|
|
|
|
core := HEPackage new.
|
|
core classes: OrderedCollection new.
|
|
core traits: OrderedCollection new.
|
|
core extensionMethods: OrderedCollection new.
|
|
core packageName: pkgn.
|
|
|
|
packages := #(
|
|
'Kernel-Chronology-Extras'
|
|
'Jobs'
|
|
'Collections-Arithmetic'
|
|
'Ring-Deprecated-Core-Kernel'
|
|
'Math-Operations-Extensions'
|
|
'Collections-Atomic'
|
|
'Collections-DoubleLinkedList'
|
|
'DeprecatedFileStream'
|
|
'Zinc-Resource-Meta-Core'
|
|
'Zinc-Character-Encoding-Core'
|
|
'FileSystem-Core'
|
|
'FileSystem-Disk'
|
|
'FileSystem-Memory'
|
|
'Compression'
|
|
'FileSystem-Zip'
|
|
'Multilingual-Encodings'
|
|
'Multilingual-Languages'
|
|
'Multilingual-TextConversion'
|
|
'Text-Core'
|
|
'AST-Core'
|
|
'Debugging-Core'
|
|
'OpalCompiler-Core'
|
|
'Kernel-Traits'
|
|
'AST-Core-Traits'
|
|
'Collections-Abstract-Traits'
|
|
'Transcript-Core-Traits'
|
|
'TraitsV2-Compatibility'
|
|
'Alien-Core'
|
|
'System-Model'
|
|
'PragmaCollector'
|
|
'UnifiedFFI'
|
|
'UnifiedFFI-Legacy'
|
|
'Slot-Core'
|
|
'System-Localization'
|
|
'STON-Core'
|
|
'Diya'
|
|
"
|
|
'Graphics-Primitives'
|
|
'Graphics-Transformations'
|
|
'Graphics-Canvas'
|
|
'FreeType'
|
|
'Graphics-Display Objects'
|
|
'EmbeddedFreeType'
|
|
'Text-Scanning'
|
|
'Multilingual-OtherLanguages'
|
|
'Multilingual-TextConverterOtherLanguages'
|
|
'Graphics-Fonts'
|
|
'System-FileRegistry'
|
|
'Graphics-Files'
|
|
'Graphics-Shapes'"
|
|
).
|
|
|
|
ignoresClasses := {
|
|
RGCommentDefinition.
|
|
RGMethodDefinition.
|
|
ChangeRecord.
|
|
PluggableListMorph.
|
|
TextLine.
|
|
TransformMorph.
|
|
StringMorph.
|
|
AthensCairoSDLSurface.
|
|
SourceFileArray.
|
|
GlyphForm
|
|
}.
|
|
|
|
packages do:[:name | |pkg trait classes extensionMethods|
|
|
Transcript show: 'Processing package ',name;cr.
|
|
FFIMethodRegistry resetAll.
|
|
pkg := RPackageOrganizer default packageNamed: name asSymbol.
|
|
traits := (pkg definedClasses select: #isTrait) do: [ :e | core traits add:(HETrait for: e) ].
|
|
(pkg definedClasses reject: #isTrait) do: [ :e |
|
|
(ignoresClasses includes:e superclass) ifFalse:[
|
|
core addClass: (HEClass for: e) ].
|
|
].
|
|
pkg extensionMethods do: [ :e |
|
|
(ignoresClasses includes:e classBinding value) ifFalse:[
|
|
core extensionMethods add:(HEMethod for: e)
|
|
]
|
|
].
|
|
].
|
|
|
|
"SDL binding class"
|
|
pkg := RPackageOrganizer default packageNamed: 'OSWindow-SDL2' asSymbol.
|
|
(pkg classNamesForClassTag: 'Bindings') do:[:e|
|
|
(ignoresClasses includes:e asClass) ifFalse:[
|
|
core addClass:(HEClass for:e asClass) ]].
|
|
|
|
"FreeType binding class"
|
|
|
|
pkg := RPackageOrganizer default packageNamed: 'FreeType' asSymbol.
|
|
(pkg classNamesForClassTag: 'Base') do:[:e|
|
|
(ignoresClasses includes:e asClass) ifFalse:[
|
|
core addClass:(HEClass for:e asClass) ]].
|
|
(pkg classNamesForClassTag: 'Bindings') do:[:e|
|
|
(ignoresClasses includes:e asClass) ifFalse:[
|
|
core addClass:(HEClass for:e asClass) ]].
|
|
"fixing some missing classes"
|
|
core addClass: (HEClass for:OSWindowPlatformSpecificHandle);
|
|
addClass: (HEClass for:ChunkWriteStream);
|
|
addClass: (HEClass for:ChunkReadStream);
|
|
addClass: (HEClass for:STCommandLineHandler);
|
|
addClass: (HEClass for:FreeTypeFace)
|
|
.
|
|
|
|
fileReference := (dest,'/',(pkgn replaceAll: Character space with: $-),'.hermes') asFileReference.
|
|
fileName := fileReference fullName.
|
|
writer := HEBinaryReaderWriter new
|
|
stream: (File openForWriteFileNamed:fileName);
|
|
yourself.
|
|
core writeInto: writer.
|
|
|
|
writer stream flush.
|
|
Transcript show: 'File exported to ', dest, '/', pkgn, '.hermes'; cr.
|
|
]
|
|
|
|
{ #category : #'as yet unclassified' }
|
|
TotoShader class >> vertexShader [
|
|
^'
|
|
varying vec2 texcoord;
|
|
uniform mat4 u_projection;
|
|
void main(void) {
|
|
gl_Position = u_projection * vec4(gl_Vertex.xy, 0, 1);
|
|
texcoord = gl_Vertex.zw;
|
|
}'
|
|
]
|
|
|
|
{ #category : #initialization }
|
|
TotoShader >> setUpUniforms [
|
|
self addUniform: #u_texture of: Uniform1i.
|
|
]
|