Grimrock

Posted: **Fri May 13, 2016 5:16 pm**

Thx for comment.
Now I working on debuging and try to solve problems with "modulative" type of material for Daedra texts.
I have some problems with bad vizualization of transparent background.

Posted: **Sat May 14, 2016 7:57 am**

AdrTru wrote:Thx for comment.
Now I working on debuging and try to solve problems with "modulative" type of material for Daedra texts.
I have some problems with bad vizualization of transparent background.

Bro I have no idea what you are saying here - but sure u know what your doing and all goes well

I thinks if the player clicks on the text something should happen eg: some visual fx like blood drips down the wall where the text is when the player clicks on it and maybe some horror sound

Posted: **Sat May 14, 2016 11:20 pm**

I describe you this actual problem:
There is daedra text with seting material to "Modulative"

SpoilerShow

This picture have to have white pixels in alpha transparent area ( and in mpmaps too).
I try to find algorithm for making this white pixels correctly.

About your aclaim is possible to make clickable component with size like text, itis possible to make connector for playing sound etc. ( I start thinking about it )
I think that intrgate system for particles is too hard and too complex.

Posted: **Tue May 17, 2016 8:59 pm**

On Nexus is uploaded new version with some new posibilities.

1/ Is possible to change parameters for writing one text object with different settings.
2/ there is created button component with size of text for connecting
read -> ReadMe

BTW: test dung is lagged becouse in dung is very much texts in small place. ( its not target of this mod

)

Posted: **Wed May 25, 2016 10:16 pm**

A lot of days I worked on easy system for preparing fonts.
I made script for Gimp. This script create picture with chars writed in 75x75 grid like iconatlas. ( this is basic format for my texts )
Is possible to change scale of pictures by multiplicator - for making effects and shrinking after it.
This script is my first in this lanuage,then I dont known many of possibilities and technicts.

Instalation:
make text file with this script "script_fu_font_matrix.scm" (or load here https://ulozto.cz/x7R3uS9F/script-fu-font-matrix-scm) and put it to (user)\.gimp-2.8\scripts
after new start Gimp wil be script in menu/Filters/Text/Font matrix

Code: Select all


  (define (max-font-width font font-size text maxwidth)
    (let* (
	       (nof-chars (string-length text))
           (cur-pos    0)
           (cur-letter (substring text cur-pos (+ cur-pos 1)))

           (width    0)
		   (next TRUE)
           (maxfont font-size)
			
			(charMW 0)
			(charM )
			(charDev 1)
			
           (extents  '()))
		
; find char with max width from text
	(set! cur-pos 0)
	(while (< cur-pos nof-chars)
		(set! cur-letter (substring text cur-pos (+ cur-pos 1)))
		(if (not (string=? cur-letter " ") )
			(begin
				(set! extents (gimp-text-get-extents-fontname cur-letter maxfont PIXELS font))
				(set! width (car extents))
				(if (> width charMW)
					(begin
						(set! charMW width)
						(set! charM cur-letter)
					)
				)
			)
		)
		(set! cur-pos (+ cur-pos 1))
	)
	
	(while (> charMW maxwidth)
		(set! extents (gimp-text-get-extents-fontname charM maxfont PIXELS font))
		(set! charMW (car extents))
		(if (> charMW maxwidth)
			(set! maxfont (- maxfont 1))
		)
	)
	(while (< charMW maxwidth)
		(set! maxfont (+ maxfont 1))
		(set! extents (gimp-text-get-extents-fontname charM maxfont PIXELS font))
		(set! charMW (car extents))
		(if (> charMW maxwidth)
			(set! maxfont (- maxfont 1))
		)
	)
		maxfont
    )
  )
  
  
	(define (get-char-width font size char)
	  (let*
	  (
		(extents  '() )
		(width    0 )
	  )
		(set! extents (gimp-text-get-extents-fontname char size PIXELS font))
		(set! width (car extents))
	width
	) )
	
	
	(define (get-char-height font size char)
	  (let*
	  (
		(extents  '() )
		(height    0 )
	  )
		(set! extents (gimp-text-get-extents-fontname char size PIXELS font))
		(set! height (cadr extents))
	height
	) )

(define (draw-grid image layer rows multi border size font-name)
	(let*
	  (
		(cells    13 )
		(row      rows)
		(width  (* 75 cells multi) )
		(height (* 75 rows multi) )
		(fontsize (floor (/ size multi)))
		(orig-color (car (gimp-context-get-foreground)))
	  )
	(gimp-context-set-foreground '(100 255 100 ) )
	(gimp-selection-none image)
	(gimp-rect-select image 0 0 border height  CHANNEL-OP-ADD FALSE 0)
	(gimp-rect-select image 0 0 width border  CHANNEL-OP-ADD FALSE 0)
	(while (> cells 0)
		(gimp-rect-select image (- (* cells 75 multi) border) 0 (* border 2) height  CHANNEL-OP-ADD FALSE 0)
		(set! cells (- cells 1) )
	)
	(while (> row 0)
		(gimp-rect-select image 0 (- (* row 75 multi) border ) width (* border 2)  CHANNEL-OP-ADD FALSE 0)
		(set! row (- row 1) )
	)
    (gimp-edit-fill layer FOREGROUND-FILL)
	(gimp-displays-flush)
	
	(gimp-context-set-foreground '(0 0 0 ) )
	(set! cells 13)
	(gimp-selection-none image)
	(while (> cells 0)
		(gimp-rect-select image (* cells 75 multi) 0 multi height  CHANNEL-OP-ADD FALSE 0)
		(set! cells (- cells 1) )
	)
	(set! row rows)
	(while (> row 0)
		(gimp-rect-select image 0 (* row 75 multi) width multi  CHANNEL-OP-ADD FALSE 0)
		(set! row (- row 1) )
	)
    (gimp-edit-fill layer FOREGROUND-FILL)
	(gimp-displays-flush)
	
	(set! layer (car (gimp-text-fontname image layer (+ width 10 ) 100 (number->string fontsize) 0 TRUE (* 20 multi) PIXELS font-name ) ) )
	
	
	(gimp-context-set-foreground orig-color )
) )

		
(define (script-fu-font-matrix text inFont inFontSize inAutoWidth inColor inBorder inMulti inXof inYof)

  (let* (
           (nof-chars (string-length text))
           (cur-pos    0)
           (cur-letter)

           (width (* 1024 inMulti ) )
           (cell (* 75 inMulti ) )
		   (modulu (floor (/ nof-chars 13 ) ) )
		   (height (* (+ (ceiling (/ (* modulu 75 ) 64 ) ) 1 ) 64 inMulti ) ) 
	

           (my-image (car (gimp-image-new width height RGB ) ) )
           (my-layer (car (gimp-layer-new my-image width height RGB "my layer" 100 NORMAL ) ) )
			(drawable   (car (gimp-layer-new my-image width height RGB-IMAGE "Background" 100 NORMAL-MODE ) ) )

           (font-name inFont )
           (font-size (* inFontSize inMulti ) )
		   (border-size (* inBorder inMulti ) )

			(theCharWidth 0 )
			(theCharHeight 0 )
			
			(char-layer )
			(theOffx  0 )
			(theOffy  0 )
			
			(Xof (* inXof inMulti) )
			(Yof (* inYof inMulti) )
      )
		
		(gimp-layer-add-alpha my-layer )
        (gimp-image-add-layer my-image my-layer 0 )
        (gimp-context-set-background '(255 255 255 ) )
        (gimp-context-set-foreground inColor )
        (gimp-drawable-fill my-layer TRANSPARENT-FILL )

	; find font-size suitible for width ( height isnt possible to checking for me )
	(if (= TRUE inAutoWidth)
		(set! font-size (max-font-width font-name font-size text (- cell (* border-size 2))) )
	)
	
	
	; preparing and graw background layer with grid
    (gimp-image-add-layer my-image drawable 1)
    (gimp-edit-clear drawable)
	(draw-grid my-image drawable (+ modulu 1 ) inMulti border-size font-size font-name)
	
	; write chars to logical grid in transparent layer
        (while (< cur-pos nof-chars)
			(set! cur-letter (substring text cur-pos (+ cur-pos 1)))
			(if (not (string=? cur-letter " ") )
				(begin
					(set! theCharWidth (get-char-width font-name font-size cur-letter) )
					(set! theCharHeight (get-char-height font-name font-size cur-letter) )

					(set! theOffx  (+ (- (/ cell 2 ) (/ theCharWidth 2 ) ) Xof ) )
					(set! theOffy  (+ (- (/ cell 2 ) (/ theCharHeight 2 ) ) Yof ) )

					(set! char-layer (car (gimp-text-fontname my-image my-layer 
											(+ theOffx (* (remainder cur-pos 13 ) cell ) )
											(+ theOffy (* (floor (/ cur-pos 13 ) ) cell ) )
											cur-letter 0 TRUE font-size PIXELS font-name ) ) )

					(gimp-floating-sel-anchor char-layer )
				) )
           (set! cur-pos (+ cur-pos 1) )
        )
		

    (gimp-display-new my-image)
	
  )

)

 
          (script-fu-register
          "script-fu-font-matrix"                        ;func name
          "Font matrix"                                  ;menu label
          "Creates image 1024px with chars placed to matrix 75x75px ( multiplicated size for creating efect and shrink after it) "              ;description
          "Tomas Macek"                             ;author
          "cc0 or whatever"             ;copyright notice
          "May, 2016"                          ;date created
          ""                     ;image type that the script works on
          SF-STRING      "Text"         "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789";"   ;a string variable
          SF-FONT        "Font"         "Charter"    ;a font variable
          SF-ADJUSTMENT  "Font size"     '(50 1 1000 1 10 0 1) ;a spin-button
          SF-TOGGLE      "Automatic font width?"    TRUE
          SF-COLOR       "Font color"     '(0 0 0)
		  SF-VALUE		"Border"		"5"			; quite zone in cell
		  SF-VALUE		"Size multiplicator"		"4"			; size of picture x this value
		  SF-VALUE		"Offset-X"		"0"			; x ofset for fixing font to grid
		  SF-VALUE		"Offset-Y"		"-5"			; y ofset for fixing font to grid
        )
		

        (script-fu-menu-register "script-fu-font-matrix" "<Toolbox>/Filters/Text")

*Edit: "little" changes in script - bugfix for space character and some next changes

Posted: **Wed May 25, 2016 11:36 pm**

Really like your work so far !!!
Thanks for sharing it. I am using it (and your potuin liquids) in my dungeon and will give you credits

Posted: **Sun May 29, 2016 7:48 pm**

kelly1111 wrote:Really like your work so far !!!
Thanks for sharing it. I am using it (and your potuin liquids) in my dungeon and will give you credits

Thank you for feedback.

Posted: **Wed Jun 01, 2016 2:26 pm**

I remake Gimp script for better fitting chars to 75x75 cell.

SpoilerShow

Code: Select all

(define (script-fu-font-matrix text inFont inFontSize inAutoSize inColor inBorder inMulti)

(define (max-font-size img font-name font-size text maxsize)
    (let* (
	       (nof-chars (string-length text))
           (cur-pos    0)
           (cur-letter (substring text cur-pos (+ cur-pos 1)))
		   
		   (char-layer)

           (width    0)
           (max-width    0)
		   (max-width-char)
		   (height   0)
		   (max-height   0)
		   (max-height-char)
		   
           (max-font font-size)
		)
		
	; find chars with max size from text
	(set! cur-pos 0)
	(while (< cur-pos nof-chars)
		(set! cur-letter (substring text cur-pos (+ cur-pos 1)))
		(if (not (string=? cur-letter " ") )
			(begin
				(set! char-layer (get-char-bound img font-name font-size cur-letter))
				(set! width  (car (gimp-drawable-width  char-layer)))
				(set! height (car (gimp-drawable-height char-layer)))
				(if (> width max-width)
					(begin
						(set! max-width width)
						(set! max-width-char cur-letter)
					)
				)
				(if (> height max-height)
					(begin
						(set! max-height height)
						(set! max-height-char cur-letter)
					)
				)
				(gimp-image-remove-layer img char-layer)
			)
		)
		(set! cur-pos (+ cur-pos 1))
	)

	(set! cur-letter max-width-char)
	(if (> max-height max-width) (set! cur-letter max-height-char))
	
	(while (and (< width maxsize) (< height maxsize))
		(set! max-font (+ max-font 1))
		(set! char-layer (get-char-bound img font-name max-font cur-letter))
		(set! width  (car (gimp-drawable-width  char-layer)))
		(set! height (car (gimp-drawable-height char-layer)))
		(if (or (> width maxsize) (> height maxsize) )
			(set! max-font (- max-font 1))
		)
		(gimp-image-remove-layer img char-layer)
	)
	(while (or (> width maxsize) (> height maxsize) )
		(set! char-layer (get-char-bound img font-name max-font cur-letter))
		(set! width  (car (gimp-drawable-width  char-layer)))
		(set! height (car (gimp-drawable-height char-layer)))
		(if (or (> width maxsize) (> height maxsize) )
			(set! max-font (- max-font 1))
		)
		(gimp-image-remove-layer img char-layer)
	)
	max-font
))


(define (get-char-bound img font size char)
(let*
	(
		(char-layer (car (gimp-layer-new img 500 500 RGB "char layer" 100 NORMAL ) ) )
	)
	
	(gimp-layer-add-alpha char-layer )
	(gimp-image-add-layer img char-layer 0 )
	(gimp-drawable-fill char-layer TRANSPARENT-FILL )
	
	(gimp-floating-sel-anchor (car (gimp-text-fontname img char-layer 0 0 char 0 TRUE size PIXELS font)))
	(plug-in-autocrop-layer RUN-NONINTERACTIVE img char-layer )
		
	char-layer
) )


  
(define (get-char-width font size char)
  (let*
  (
	(extents  '() )
	(width    0 )
  )
	(set! extents (gimp-text-get-extents-fontname char size PIXELS font))
	(set! width (car extents))
width
) )
	
	
(define (get-char-height font size char)
  (let*
  (
	(extents  '() )
	(height    0 )
  )
	(set! extents (gimp-text-get-extents-fontname char size PIXELS font))
	(set! height (cadr extents))
height
) )

(define (draw-grid image layer rows multi border size font-name)
	(let*
	  (
		(cells    13 )
		(row      rows)
		(width  (* 75 cells multi) )
		(height (* 75 rows multi) )
		(fontsize (floor (/ size multi)))
		(orig-color (car (gimp-context-get-foreground)))
	  )
	(gimp-context-set-foreground '(100 255 100 ) )
	(gimp-selection-none image)
	(gimp-rect-select image 0 0 border height  CHANNEL-OP-ADD FALSE 0)
	(gimp-rect-select image 0 0 width border  CHANNEL-OP-ADD FALSE 0)
	(while (> cells 0)
		(gimp-rect-select image (- (* cells 75 multi) border) 0 (* border 2) height  CHANNEL-OP-ADD FALSE 0)
		(set! cells (- cells 1) )
	)
	(while (> row 0)
		(gimp-rect-select image 0 (- (* row 75 multi) border ) width (* border 2)  CHANNEL-OP-ADD FALSE 0)
		(set! row (- row 1) )
	)
    (gimp-edit-fill layer FOREGROUND-FILL)
	(gimp-displays-flush)
	
	(gimp-context-set-foreground '(0 0 0 ) )
	(set! cells 13)
	(gimp-selection-none image)
	(while (> cells 0)
		(gimp-rect-select image (* cells 75 multi) 0 multi height  CHANNEL-OP-ADD FALSE 0)
		(set! cells (- cells 1) )
	)
	(set! row rows)
	(while (> row 0)
		(gimp-rect-select image 0 (* row 75 multi) width multi  CHANNEL-OP-ADD FALSE 0)
		(set! row (- row 1) )
	)
    (gimp-edit-fill layer FOREGROUND-FILL)
	(gimp-displays-flush)
	
	(set! layer (car (gimp-text-fontname image layer (+ width 10 ) 100 (number->string fontsize) 0 TRUE (* 20 multi) PIXELS font-name ) ) )
	
	
	(gimp-context-set-foreground orig-color )
) )

		


(let* (
           (nof-chars (string-length text))
           (cur-pos    0)
           (cur-letter)

           (width (* 1024 inMulti ) )
           (cell (* 75 inMulti ) )
		   (modulu (ceiling (/ nof-chars 13 ) ) )
		   (height (* (ceiling (/ (* modulu 75 ) 64 ) ) 64 inMulti ) ) 
	

           (my-image (car (gimp-image-new width height RGB ) ) )
           (my-layer (car (gimp-layer-new my-image width height RGB "my layer" 100 NORMAL ) ) )
			(drawable   (car (gimp-layer-new my-image width height RGB-IMAGE "Background" 100 NORMAL-MODE ) ) )

           (font-name inFont )
           (font-size (* inFontSize inMulti ) )
		   (border-size (* inBorder inMulti ) )

			(theCharWidth 0 )
			(theCharHeight 0 )
			
			(char-layer )
			(theOffx  0 )
			(theOffy  0 )
			
			(Xof 0 )
			(Yof 0 )
			
			(char-layer)
			(char-width		0)
			(char-height	0)
			(char-X			0)
			(char-Y			0)
			
			(cell-space (- cell (* border-size 2)))
      )
		
		(gimp-layer-add-alpha my-layer )
        (gimp-image-add-layer my-image my-layer 0 )
        (gimp-context-set-background '(255 255 255 ) )
        (gimp-context-set-foreground inColor )
        (gimp-drawable-fill my-layer TRANSPARENT-FILL )

	; find font-size suitible for width ( height isnt possible to checking for me )
	(if (= TRUE inAutoSize)
		(set! font-size (max-font-size my-image font-name font-size text cell-space) )
	)
	
	; preparing and graw background layer with grid
    (gimp-image-add-layer my-image drawable 1)
    (gimp-edit-clear drawable)
	(draw-grid my-image drawable modulu inMulti border-size font-size font-name)

	; write chars to logical grid in transparent layer
        (while (< cur-pos nof-chars)
			(set! cur-letter (substring text cur-pos (+ cur-pos 1)))
			(if (not (string=? cur-letter " ") )
				(begin
					(set! char-layer (get-char-bound my-image font-name font-size cur-letter))
					(set! char-width  (car (gimp-drawable-width  char-layer)))
					(set! char-height (car (gimp-drawable-height char-layer)))
					(set! char-X (car  (gimp-drawable-offsets char-layer)))
					(set! char-Y (cadr (gimp-drawable-offsets char-layer)))
					(gimp-image-remove-layer my-image char-layer)
					
					(set! theCharWidth (get-char-width font-name font-size cur-letter) )
					(set! theCharHeight (get-char-height font-name font-size cur-letter) )

					(set! theOffx  (- (/ cell 2 ) (/ theCharWidth 2 ) ) )
					(set! theOffy  (- (/ cell 2 ) (/ theCharHeight 2 ) ) )
					
;					(gimp-context-set-foreground '(0 0 0 ) )
					(if (< (- cell border-size theOffy) (+ char-Y char-height ) )
					(begin
;						(gimp-context-set-foreground '(255 0 0 ) ) 
						(set! theOffy  (+ theOffy (- (- cell border-size theOffy) (+ char-Y char-height) )  ) )
					))
;					(gimp-context-set-foreground '(0 0 0 ) )
					(if (> (- border-size theOffy) char-Y )
					(begin
;						(gimp-context-set-foreground '(255 0 0 ) ) 
						(set! theOffy  (+ theOffy (- (- border-size theOffy) char-Y ) )  )
					))
					(set! char-layer (car (gimp-text-fontname my-image my-layer 
											(+ theOffx (* (remainder cur-pos 13 ) cell ) Xof )
											(+ theOffy (* (floor (/ cur-pos 13 ) ) cell ) Yof )
											cur-letter 0 TRUE font-size PIXELS font-name ) ) )

					(gimp-floating-sel-anchor char-layer )
				) )
           (set! cur-pos (+ cur-pos 1) )
        )
		
	
    (gimp-display-new my-image)
  )
)

 
          (script-fu-register
          "script-fu-font-matrix"                        ;func name
          "Font matrix"                                  ;menu label
          "Creates image 1024px with chars placed to matrix 75x75px ( multiplicated size for creating efect and shrink after it) "              ;description
          "Tomas Macek"                             ;author
          "cc0 or whatever"             ;copyright notice
          "May, 2016"                          ;date created
          ""                     ;image type that the script works on
          SF-STRING      "Text"         "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789/*-+()";"   ;a string variable
          SF-FONT        "Font"         "Narkisim"    ;a font variable
          SF-ADJUSTMENT  "Font size"     '(70 1 1000 1 10 0 1) ;a spin-button
          SF-TOGGLE      "Automatic font width?"    TRUE
          SF-COLOR       "Font color"     '(0 0 0)
		  SF-VALUE		"Border"		"5"			; quite zone in cell
		  SF-VALUE		"Size multiplicator"		"4"			; size of picture x this value
        )
		

        (script-fu-menu-register "script-fu-font-matrix" "<Toolbox>/Filters/Text")

I try to use shaders for writing texts.
Do you known setting of shaders in material definition?
Only shader=crystal I able to use on fonts ( I must change models for chars to box - changes isnt in published mod yet ) , this shader work only with rotation parameter and is glowing in dark.
Is possible to use another shader without glowing, with offset moving, etc. ?

EDit: changing script for bug with fixing over up position.

Posted: **Wed Jun 01, 2016 5:36 pm**

These are the ones that I know exist.

"wall_fire"
"ocean_water"
"water_underwater"
"sky"
"stars"
"portal"
"additive"
"edge_extrude"
"crystal"

But I've only ever used the water shaders, and 'crystal'.

Posted: **Wed Jun 01, 2016 8:41 pm**

Thank you for reply.
This shader names I fond in LOG2 asset and in my test win crystal ( only this one work on my object ).
Maybe "additive" or "edge_extrude" has chance for working, but I dont correctly use this.
Maybe some setParam for seting shaders will be usefull to known.
If somebody have some info pls post it.

there are summary of my knowledge (read form assets):

shader = "crystal",
shadeTex = "assets/textures/env/red_gem_shadetex.tga", -- some small image not use alpfa layer
shadeTexAngle = 0,
crystalIntensity = 3, --0-black, 1-dark, +++
onUpdate = function(self, time)
self:setParam("shadeTexAngle", time*0.2) -- only this one param work with crystal
end,

shader = "edge_extrude", -- maybe have some setting for working
shader = "additive", -- work, but only glowing in dark

shader = "wall_fire", -- change texture offset , but some setting is needed
onUpdate = function(self, time)
self:setParam("time", time)
end,

water,sky,stairs,portal is describet in viewtopic.php?f=22&t=13948

Usable setParam:
"shadeTexAngle" -- use in crystal for rotation texture
"time" -- use in wallFire and Portal
"texOffset" and "foamOffset" -- use in water .. ( not work in crystal )

Grimrock

Graphic text

Re: Graphic text

Re: Graphic text

Re: Graphic text

Re: Graphic text

Re: Graphic text

Re: Graphic text

Re: Graphic text

Re: Graphic text

Re: Graphic text

Re: Graphic text