Minor MINOS2 fixes (6be09154) · Commits · Bernd Paysan / gforth

minos2/gl-helper.fs

+2 −3

Original line number	Diff line number	Diff line
		@@ -108,8 +108,7 @@ Variable configs
		Variable numconfigs
		Variable eglformat

		: ??gl ... ." gl: " glGetError . ." o: " o hex.
		fdepth IF cr ." F:" f.s THEN ; ' ??gl is printdebugdata
		: ??gl ... ." gl: " glGetError . ." o: " o hex. ; ' ??gl is printdebugdata

		[IFDEF] android
		: win app window @ ;
		@@ -760,7 +759,7 @@ require soil-texture.fs
		ext-tex: media-tex
		[THEN]

		1 sfloats buffer: color%
		1 sfloats buffer: color% 0.5e color% sf!
		1 sfloats buffer: gain% 1.0e gain% sf!
		1 sfloats buffer: ambient% 1.0e ambient% sf!
		1 sfloats buffer: saturate% 1.0e saturate% sf!

+1 −1

Original line number	Diff line number	Diff line
		@@ -1108,7 +1108,7 @@ glue2 >o 1glue f2 hglue-c glue! 0glue f2* dglue-c glue! 1glue f2* vglue-c glue
		hbox new { newbox }
		act ?dup-IF .clone newbox .!act THEN
		childs# start floor f>s U+DO
		firstflag newbox .childs[] $[]# 0= or
		firstflag newbox .childs[] $[]# 0<> or
		startx rw I childs[] $[] @ .split to startx
		0e { f: ow }
		?dup-IF