Mid, Left & Right functions for Strings in Cerberus X

October 8, 2019October 8, 2019 Markus

It’s beginning to be late night, but I want share these with you.

Many of you probably remember Mid, Left and Right functions for strings in basic programming languages.

Mid returns from given position x amount of chars
Left returns from left x amount of chars
Right returns from right x amount of chars

These are easy to implement in Cerberus X, since it has nice string slicing methods.

Implementation for Mid:

    Method Mid:String(str:String, startPos:Int, howMany:Int)
        Return str[(startPos)..(startPos+howMany)] 
    End

Method Mid:String(str:String, startPos:Int, howMany:Int)

Return str[(startPos)..(startPos+howMany)]

End

Implementation for Left:

 Method Left:String(str:String, howMany:Int)
     Return str[0..howMany]
 End

Method Left:String(str:String, howMany:Int)

Return str[0..howMany]

End

Implementation for Right:

 Method Right:String(str:String, howMany:Int) 
     Return str[(str.Length()-howMany)..(str.Length())]
 End

Method Right:String(str:String, howMany:Int)

Return str[(str.Length()-howMany)..(str.Length())]

End

You can test these for example with print Mid(“This is String”,5,2).

That’s it for tonight..

Font Class for my Font 2 PNG’s fonts in Cerberus X

October 8, 2019October 8, 2019 Markus

My studies keep me really busy and tired… Still, I’m working on Cerberus X version of Easy Math Challenge, because there seems to be problem with sound in Monkey2 with 64-bit compilations for Android.

Anyway, here’s direct implementation (earlier I did this for Monkey X) of font class to use with fonts made in my Font 2 PNG for Cerberus X.

The source (the code is directly from my Cerberus X editor, but highlighting isn’t quite right):

Import mojo2
Import brl.databuffer

Class MyFont
	Field maxHeight:Int
	Field fontDat:DataBuffer
	Field gfxFont:Image
End

Class FontTest Extends App

	Field bg:Image
	Field font1:MyFont
	Field canvas:Canvas
	
	Method OnCreate:Int()

		bg = Image.Load("cerberus://data/bg.jpg",0,0)
		
		' -------
		' Font
		' -------
		font1 = New MyFont
		font1.gfxFont = Image.Load("font.png")
		font1.fontDat = New DataBuffer(95*4*2) ' 95 characters, for each character two 4 byte integers
		font1.maxHeight = 51
		font1.fontDat = DataBuffer.Load("cerberus://data/font.dat")		
		
		canvas = New Canvas()
		
		Return 0
	End

	Method OnRender:Int()
	
		canvas.DrawImage(bg,0,0)

		' drawString assumes, that we have a canvas called canvas
		drawString(font1,"Sample Text", (640 - (stringWidth(font1, "Sample Text"))) / 2, 60)		
		canvas.Flush()
		
		Return 0
	End
	
	Method drawString(font:MyFont, text:String, x:Float, y:Float)
		Local len = text.Length()
		
		Local chrs:Int[]
		chrs = text.ToChars()
		
		For Local i = 0 To len - 1
			'                          width of a character in font                                          pos. of character in font
			canvas.DrawRect(x, y, font.fontDat.PeekInt((chrs[i]-32)*4*2 + 4), font.maxHeight, font.gfxFont, font.fontDat.PeekInt((chrs[i]-32)*4*2), 0, font.fontDat.PeekInt((chrs[i]-32)*4*2 + 4), font.maxHeight)
			x = x + font.fontDat.PeekInt((chrs[i]-32)*4*2 + 4)
		Next
 
	End
	
	Method stringWidth:Int(font:MyFont,text:String)
		Local len:Int = text.Length()
		Local chrs:Int[]
		Local length:Int = 0
		
		chrs = text.ToChars()
		
		For Local i:Int = 0 To len - 1
			'                                width of character in font
			length = length + font.fontDat.PeekInt((chrs[i]-32)*4*2 + 4)
		Next
		
		Return length
	End
		
End

Function Main:Int()
	New FontTest()
	Return 0
End

Import mojo2

Import brl.databuffer

Class MyFont

Field maxHeight:Int

Field fontDat:DataBuffer

Field gfxFont:Image

End

Class FontTest Extends App

Field bg:Image

Field font1:MyFont

Field canvas:Canvas

Method OnCreate:Int()

bg = Image.Load("cerberus://data/bg.jpg",0,0)

' -------

' Font

' -------

font1 = New MyFont

font1.gfxFont = Image.Load("font.png")

font1.fontDat = New DataBuffer(95*4*2) ' 95 characters, for each character two 4 byte integers

font1.maxHeight = 51

font1.fontDat = DataBuffer.Load("cerberus://data/font.dat")

canvas = New Canvas()

Return 0

End

Method OnRender:Int()

canvas.DrawImage(bg,0,0)

' drawString assumes, that we have a canvas called canvas

drawString(font1,"Sample Text", (640 - (stringWidth(font1, "Sample Text"))) / 2, 60)

canvas.Flush()

Return 0

End

Method drawString(font:MyFont, text:String, x:Float, y:Float)

Local len = text.Length()

Local chrs:Int[]

chrs = text.ToChars()

For Local i = 0 To len - 1

' width of a character in font pos. of character in font

canvas.DrawRect(x, y, font.fontDat.PeekInt((chrs[i]-32)*4*2 + 4), font.maxHeight, font.gfxFont, font.fontDat.PeekInt((chrs[i]-32)*4*2), 0, font.fontDat.PeekInt((chrs[i]-32)*4*2 + 4), font.maxHeight)

x = x + font.fontDat.PeekInt((chrs[i]-32)*4*2 + 4)

End

Method stringWidth:Int(font:MyFont,text:String)

Local len:Int = text.Length()

Local chrs:Int[]

Local length:Int = 0

chrs = text.ToChars()

For Local i:Int = 0 To len - 1

' width of character in font

length = length + font.fontDat.PeekInt((chrs[i]-32)*4*2 + 4)

Return length

End

Function Main:Int()

New FontTest()

Return 0

End

I’m a bit lost for words, but if you find my “poor man’s Font 2 PNG” useful, feel free to use this code.

AmiKIT – Compiling a C program to Play a MED module

August 12, 2019August 12, 2019 Markus

I recently downloaded from the official AmiKIT site the free version of AmiKIT. It’s great! I love it! I love the Amiga!

While testing the AmiKIT in an environment, that reminds me of the environment I had with the good old Amiga 4000, I got a spark to learn Amiga things again.

It would be nice finish my old classic 2D Ultima style RPG game. But where to find the needed documentation?

Below is a little video of my AmiKIT early adventure:

In the video an old C program to play MED music modules is compiled and tested. The C compiler that is used is VBCC.

Below is that program in full:

/* This program loads a module, and plays it. Uses medplayer.library,
   octaplayer.library and octamixplayer.library, if required. Could be
   used as a small simple replacement of OctaMEDPlayer. */

#include <stdio.h>

#include <exec/types.h>
#include <libraries/dos.h>
#include <proto/exec.h>
#include <proto/dos.h>

/* These two must be included in this order. */

/* #include "proplayer.h" */
#include "proto/medplayer.h"
#include "proplayer.h"



int main(int argc,char *argv[])
{
    struct MMD0 *sng;

    struct Library *MEDPlayerBase = NULL;

    if(argc < 2) {
        printf("Usage: example2 <song>\n");
        return;
    }
    /* Assume 4-ch mode (medplayer.library)
       We use V7 to obtain RequiredPlayRoutine */
    MEDPlayerBase = OpenLibrary("medplayer.library",0);
    if(!MEDPlayerBase) {
        printf("Can't open medplayer.library!\n");
        return;
    }
    printf("Loading...\n");
    sng = LoadModule(argv[1]);
    if(!sng) {
        printf("Load error.");
        goto exit;
    }
   GetPlayer(0);
    PlayModule(sng);

    printf("Press Ctrl-C to quit.\n");
    Wait(SIGBREAKF_CTRL_C);

exit:
    FreePlayer();
    UnLoadModule(sng);
    CloseLibrary(MEDPlayerBase);
    return 0;
}

/* This program loads a module, and plays it. Uses medplayer.library,

octaplayer.library and octamixplayer.library, if required. Could be

used as a small simple replacement of OctaMEDPlayer. */

#include <stdio.h>

#include <exec/types.h>

#include <libraries/dos.h>

#include <proto/exec.h>

#include <proto/dos.h>

/* These two must be included in this order. */

/* #include "proplayer.h" */

#include "proto/medplayer.h"

#include "proplayer.h"

int main(int argc,char *argv[])

{

struct MMD0 *sng;

struct Library *MEDPlayerBase = NULL;

if(argc < 2) {

printf("Usage: example2 <song>\n");

return;

}

/* Assume 4-ch mode (medplayer.library)

We use V7 to obtain RequiredPlayRoutine */

MEDPlayerBase = OpenLibrary("medplayer.library",0);

if(!MEDPlayerBase) {

printf("Can't open medplayer.library!\n");

return;

}

printf("Loading...\n");

sng = LoadModule(argv[1]);

if(!sng) {

printf("Load error.");

goto exit;

}

GetPlayer(0);

PlayModule(sng);

printf("Press Ctrl-C to quit.\n");

Wait(SIGBREAKF_CTRL_C);

exit:

FreePlayer();

UnLoadModule(sng);

CloseLibrary(MEDPlayerBase);

return 0;

}

Time will tell if my RPG made on Amiga will be ever finished…

How to get timestamp in Monkey 2 with libc and in C

October 26, 2018 Markus

This morning I got implemented a little code, that can be used to get timestamp based on ANSI C code using Monkey 2 programming language’s libc.

Let’s take first look at the Monkey 2 code:

Namespace myapp

#Import "<std>"
#Import "<libc>"

Using std..
Using libc..

Function Main()

		Local seconds:time_t
		Local p:tm_t Ptr
		Local date:String
		
		libc.time(Varptr seconds)
	
		p = localtime(Varptr seconds)
		
		date = String(p->tm_sec) + "-" + String(p->tm_min) + "-" + String(p->tm_hour) + "-" + String(p->tm_mday) + "-" + String((p->tm_mon)+1) + "-" + String(1900 + p->tm_year)
		
		Print date
	
End

Namespace myapp

#Import "<std>"

#Import "<libc>"

Using std..

Using libc..

Function Main()

Local seconds:time_t

Local p:tm_t Ptr

Local date:String

libc.time(Varptr seconds)

p = localtime(Varptr seconds)

date = String(p->tm_sec) + "-" + String(p->tm_min) + "-" + String(p->tm_hour) + "-" + String(p->tm_mday) + "-" + String((p->tm_mon)+1) + "-" + String(1900 + p->tm_year)

Print date

End

At the moment the output of the program is as follows: 40-31-8-26-10-2018

Year 2018, month 10, day 26, hour 8, min 31, sec 40.

Reversed order might be more useful in practice…

Let’s take a look at the C version:

#include <stdio.h>
#include <time.h>

void Date (char date[10+1]);

void main (void) {

	char datum[10+1];
	
	Date(datum);
	printf("%s",datum);

}


void Date (char date[10+1]) {
	time_t seconds;
	struct tm *p;
	
	time (&seconds);
	p = localtime(&seconds);
	
	sprintf(date, "%02i.%02i.%02i",
		p->tm_mday,
		p->tm_mon + 1,
		p->tm_year+1900);
}

#include <stdio.h>

#include <time.h>

void Date (char date[10+1]);

void main (void) {

char datum[10+1];

Date(datum);

printf("%s",datum);

}

void Date (char date[10+1]) {

time_t seconds;

struct tm *p;

time (&seconds);

p = localtime(&seconds);

sprintf(date, "%02i.%02i.%02i",

p->tm_mday,

p->tm_mon + 1,

p->tm_year+1900);

}

To the year is again added 1900. This gives following output: 26.10.2018

The tm_mon is between 0..11, tm_year between 1900 + 0..n.

That’s it for now, lots of things to do…

On Signing a Windows App

October 7, 2018 Markus

First I would like to tell you, that I have purchased an OV code signing certificate for one year. I found out from a blog, that K Software has at the moment the cheapest OV code signing certificate, $84 for one year.

As MicroSoft says in their documents, you must have a certificate, if you want to distribute or sell Windows apps.

There are three main categories of certificates on Windows platform: Open Source code signing, OV code signing and EV code signing.

The first is the cheapest — in the best case free — the last is the most expensive.

Open source code signing suits you if you do open source projects. You can check the definition of open source development here.

In the other cases the other two mentioned certificates are for you.

The OV certificate doesn’t prevent at first the smart screen to appear. In time, when you get enough downloads the smart screen won’t appear anymore. The EV certificate that is the most expensive, gives you immediate trust and no more smart screen to your apps.

The main benefit of OV certificate is, that none of the AV software programs considers your precious application a harmful file.

Once you have the certificate, signing the exe is as easy as follows:

signtool sign /a /f yourCertificate.pfx /p yourPassword yourApp.exe

1	signtool sign /a /f yourCertificate.pfx /p yourPassword yourApp.exe

The signtool.exe can be found at c:\program files (x86)\Windows Kits\… The appropriate path should be added to your system’s %path% environment variable. If you don’t have …\Windows Kits\ search the internet for Windows SDK version 8.1 or 10.

I have today signed most of my Windows apps. Smart screen will at first still warn you, but the file is no more considered a harmful file.

Unlimited Objects Source Code

September 26, 2018 Markus

In my old blog post I gave some idea how to implement “unlimited objects” program. In the original video I used 16 canvases with 16 images + the actual visible canvas. Two canvases only is sufficient.

In the source (Cerberus X) below, no external graphics files are needed:

Import mojo2

Function Main()
	New MyApp
End

Class MyApp Extends App
	
	Field gfxCopy:Image[16]
	Field ccanvas:Canvas
	Field counter:Int
	Field angle:Float	
	Field canvas:Canvas
	
	Field scaleX:Float, scaleY:Float
		
	Field x:Float, y:Float
	Field r:Float
	
	Method OnCreate()
			
		canvas = New Canvas()
		counter = 0
		
		For Local i:Int = 0 To 15
			gfxCopy[i] = New Image(640,480,.0,.0)
		Next
		
		ccanvas = New Canvas(gfxCopy[0])
		
		scaleX = DeviceWidth / 640
		scaleY = DeviceHeight / 480
		
		r = 100
		SetUpdateRate(60)
	End
	
	Method OnUpdate()

	End
	
	Method OnRender()
		
		angle = angle + 2

		x = Cos(angle) * r + 640 / 2
		y = Sin(angle) * r + 480 / 2
		
		r = r + 0.1

		counter = counter + 1
		If counter = 16 Then counter = 0
				
		ccanvas.SetRenderTarget(gfxCopy[counter])
		ccanvas.SetColor(1,1,0)
		ccanvas.DrawCircle(x,y,32)
		ccanvas.SetColor(1,0,1)
		ccanvas.DrawCircle(x,y,30)
		
		ccanvas.Flush()
		
		canvas.PushMatrix()
		canvas.Scale(scaleX,scaleY)
		
		canvas.Clear	

		canvas.DrawImage(gfxCopy[counter],0,0)

		canvas.Flush()
		canvas.PopMatrix()
						
	End
	
End Class

Import mojo2

Function Main()

New MyApp

End

Class MyApp Extends App

Field gfxCopy:Image[16]

Field ccanvas:Canvas

Field counter:Int

Field angle:Float

Field canvas:Canvas

Field scaleX:Float, scaleY:Float

Field x:Float, y:Float

Field r:Float

Method OnCreate()

canvas = New Canvas()

counter = 0

For Local i:Int = 0 To 15

gfxCopy[i] = New Image(640,480,.0,.0)

ccanvas = New Canvas(gfxCopy[0])

scaleX = DeviceWidth / 640

scaleY = DeviceHeight / 480

r = 100

SetUpdateRate(60)

End

Method OnUpdate()

End

Method OnRender()

angle = angle + 2

x = Cos(angle) * r + 640 / 2

y = Sin(angle) * r + 480 / 2

r = r + 0.1

counter = counter + 1

If counter = 16 Then counter = 0

ccanvas.SetRenderTarget(gfxCopy[counter])

ccanvas.SetColor(1,1,0)

ccanvas.DrawCircle(x,y,32)

ccanvas.SetColor(1,0,1)

ccanvas.DrawCircle(x,y,30)

ccanvas.Flush()

canvas.PushMatrix()

canvas.Scale(scaleX,scaleY)

canvas.Clear

canvas.DrawImage(gfxCopy[counter],0,0)

canvas.Flush()

canvas.PopMatrix()

End

End Class

The program gives different output, if the calculations are in OnUpdate() on HTML5 target.

Below is the old video I’ve made previously:

Source code license: MIT.

3D Stars As Lines

August 27, 2018August 28, 2018 Markus

I must have been really tired when I coded & posted the old 3D stars codes… Anyway, here’s code for 3D stars as lines.

Below the video:

To get the stars drawn as lines is really simple. In the 2D world to draw a line we need x1, y1, x2 and y2. In the projection from 3D space, we simple add for example 4 to the z-coordinate of a point so that, the other point is further away and we get two points to the 2D world.

Below is the main part of the Monkey X source code:

		' Projection from 3D space to 2D screen
		For Local i:Int = 0 To STARS - 1
			Local x1,x2,y1,y2:Float
			
			z[i] = z[i] - 1
			If z[i] < 10 Then z[i] = Rnd(50,200)
						
			sx = x[i] / z[i] * 200 + 320
			sy = y[i] / z[i] * 200 + 240
			
			shade = 1 - z[i] / 200
			canvas.SetColor shade,shade,shade
			
			x1 = x[i] / z[i] * 200 + 320
			x2 = x[i] / (z[i] + 4) * 200 + 320
			y1 = y[i] / z[i] * 200 + 240
			y2 = y[i] / (z[i] + 4) * 200 + 240
			
			canvas.DrawLine(x1,y1,x2,y2)
			
		Next

' Projection from 3D space to 2D screen

For Local i:Int = 0 To STARS - 1

Local x1,x2,y1,y2:Float

z[i] = z[i] - 1

If z[i] < 10 Then z[i] = Rnd(50,200)

sx = x[i] / z[i] * 200 + 320

sy = y[i] / z[i] * 200 + 240

shade = 1 - z[i] / 200

canvas.SetColor shade,shade,shade

x1 = x[i] / z[i] * 200 + 320

x2 = x[i] / (z[i] + 4) * 200 + 320

y1 = y[i] / z[i] * 200 + 240

y2 = y[i] / (z[i] + 4) * 200 + 240

canvas.DrawLine(x1,y1,x2,y2)

For the end the source code in full:

Import mojo2

Function Main:Int()
	New MyApp
	Return 0
End

Class MyApp Extends App

	Const STARS:Int = 280
		
	Field x:Float[STARS],y:Float[STARS],z:Float[STARS]
	
	Field canvas:Canvas
	Field sx:Float, sy:Float
	
	Method OnCreate()

		For Local i:Int = 0 To STARS - 1
			x[i] = Rnd(-50,50)
			y[i] = Rnd(-50,50)
			z[i] = Rnd(50,200)
		Next
		
		canvas = New Canvas()
		
		SetUpdateRate(60)
	End

	Method OnUpdate()
						
	End
	

	Method OnRender()
		
		Local shade:Float
		
		canvas.PushMatrix()

		canvas.Clear()

		' Projection from 3D space to 2D screen
		For Local i:Int = 0 To STARS - 1
			Local x1,x2,y1,y2:Float
			
			z[i] = z[i] - 1
			If z[i] < 10 Then z[i] = Rnd(50,200)
						
			sx = x[i] / z[i] * 200 + 320
			sy = y[i] / z[i] * 200 + 240
			
			shade = 1 - z[i] / 200
			canvas.SetColor shade,shade,shade
			
			x1 = x[i] / z[i] * 200 + 320
			x2 = x[i] / (z[i] + 4) * 200 + 320
			y1 = y[i] / z[i] * 200 + 240
			y2 = y[i] / (z[i] + 4) * 200 + 240
			
			canvas.DrawLine(x1,y1,x2,y2)
			
		Next
	
		canvas.Flush()
		
		canvas.PopMatrix()
		
	End

End Class

Import mojo2

Function Main:Int()

New MyApp

Return 0

End

Class MyApp Extends App

Const STARS:Int = 280

Field x:Float[STARS],y:Float[STARS],z:Float[STARS]

Field canvas:Canvas

Field sx:Float, sy:Float

Method OnCreate()

For Local i:Int = 0 To STARS - 1

x[i] = Rnd(-50,50)

y[i] = Rnd(-50,50)

z[i] = Rnd(50,200)

canvas = New Canvas()

SetUpdateRate(60)

End

Method OnUpdate()

End

Method OnRender()

Local shade:Float

canvas.PushMatrix()

canvas.Clear()

' Projection from 3D space to 2D screen

For Local i:Int = 0 To STARS - 1

Local x1,x2,y1,y2:Float

z[i] = z[i] - 1

If z[i] < 10 Then z[i] = Rnd(50,200)

sx = x[i] / z[i] * 200 + 320

sy = y[i] / z[i] * 200 + 240

shade = 1 - z[i] / 200

canvas.SetColor shade,shade,shade

x1 = x[i] / z[i] * 200 + 320

x2 = x[i] / (z[i] + 4) * 200 + 320

y1 = y[i] / z[i] * 200 + 240

y2 = y[i] / (z[i] + 4) * 200 + 240

canvas.DrawLine(x1,y1,x2,y2)

canvas.Flush()

canvas.PopMatrix()

End

End Class

Feel free to use this code.

Sine Wave Scroller in Monkey2

August 14, 2018September 23, 2018 Markus

Today’s little code, sine scroller in Monkey2. In the previous post you can download the code and data files for plain scroller. In this project same data files are used. Let’s take a look at the video:

The scrolling isn’t very smooth in the video, but try the code:

Namespace myapp

#Import "<std>"
#Import "<mojo>"


#Import "gfx/bg.jpg"
#Import "fonts/DoctorJekyllNF.ttf"

Using std..
Using mojo..


Class MyWindow Extends Window

Const SCROLLTEXT:String = "                              Sine scroller programmed in Monkey2 programming language...  One of the traditional sine scrollers seen in Amiga demos...                   "

Field bg:Image
Field scrollString:String
Field scrollX:Int
Field scrollY:Int
Field chrStartOffset:Int
Field firstChrWidth:Int
Field chrEndOffset:Int
Field font:Font

Field angl:Float

	Method New( title:String="Simple sine scroller",width:Int=640,height:Int=480,flags:WindowFlags=Null )

		Super.New( title,width,height,flags )

		bg = Image.Load("asset::bg.jpg")
		font = Font.Load("asset::DoctorJekyllNF.ttf",80)
		
		
		chrStartOffset = 0
		firstChrWidth = font.TextWidth(SCROLLTEXT.Mid(0,1))
		scrollX = 0
		
	End

	Method OnRender( canvas:Canvas ) Override
	
		App.RequestRender()

		canvas.DrawImage(bg,0,0)
		canvas.Font = font
		canvas.Color = Color.Orange
		
					
		If scrollX < -firstChrWidth Then
			
			chrStartOffset = chrStartOffset + 1

			If chrStartOffset > SCROLLTEXT.Length - 1 Then chrStartOffset = 0
			
			firstChrWidth = font.TextWidth(SCROLLTEXT.Mid(chrStartOffset,1))
			chrEndOffset = getTextEndOffset()
			
			If chrEndOffset > SCROLLTEXT.Length - 1 Then chrEndOffset = 0
			
			scrollX = 0
		Endif
				
		
		
				
		Local s:String
		Local position:Int = 0

		For Local c:Int = 0 To scrollString.Length - 1
			s = scrollString.Mid(c,1)
		
			Local angle:Float = ((640.0 / scrollString.Length) / 360.0 * 2) * (Pi / 180) + 8 * (chrStartOffset + c) * (Pi / 180) + angl
			
			scrollY = 200 + Sin(angle) * 80
			canvas.DrawText(s,scrollX+position,scrollY)
			
			position = position + font.TextWidth(scrollString.Mid(c,1))
		Next
		
		scrollX = scrollX - 2
		angl = angl - (Pi / 180) * 4
	End

	
	Method getTextEndOffset:Int()
		Local c:Int = chrStartOffset
		Local textWidth:Int = 0
		
		scrollString = ""
		
		' Find the end offset for a character to build a string
		' that's width in pixels is at least 640 + first character's width
		While textWidth < 640 + firstChrWidth
			
			scrollString = scrollString + SCROLLTEXT.Mid(c,1)
			c = c + 1
						
			If c > SCROLLTEXT.Length - 1 Then c = 0
			
			textWidth = font.TextWidth(scrollString)
		Wend
		
		Return c
		
	End	
		
End

Function Main()

	New AppInstance
	
	New MyWindow
	
	App.Run()
End

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

Namespace myapp

#Import "<std>"

#Import "<mojo>"

#Import "gfx/bg.jpg"

#Import "fonts/DoctorJekyllNF.ttf"

Using std..

Using mojo..

Class MyWindow Extends Window

Const SCROLLTEXT:String = " Sine scroller programmed in Monkey2 programming language... One of the traditional sine scrollers seen in Amiga demos... "

Field bg:Image

Field scrollString:String

Field scrollX:Int

Field scrollY:Int

Field chrStartOffset:Int

Field firstChrWidth:Int

Field chrEndOffset:Int

Field font:Font

Field angl:Float

Method New( title:String="Simple sine scroller",width:Int=640,height:Int=480,flags:WindowFlags=Null )

Super.New( title,width,height,flags )

bg = Image.Load("asset::bg.jpg")

font = Font.Load("asset::DoctorJekyllNF.ttf",80)

chrStartOffset = 0

firstChrWidth = font.TextWidth(SCROLLTEXT.Mid(0,1))

scrollX = 0

End

Method OnRender( canvas:Canvas ) Override

App.RequestRender()

canvas.DrawImage(bg,0,0)

canvas.Font = font

canvas.Color = Color.Orange

If scrollX < -firstChrWidth Then

chrStartOffset = chrStartOffset + 1

If chrStartOffset > SCROLLTEXT.Length - 1 Then chrStartOffset = 0

firstChrWidth = font.TextWidth(SCROLLTEXT.Mid(chrStartOffset,1))

chrEndOffset = getTextEndOffset()

If chrEndOffset > SCROLLTEXT.Length - 1 Then chrEndOffset = 0

scrollX = 0

Endif

Local s:String

Local position:Int = 0

For Local c:Int = 0 To scrollString.Length - 1

s = scrollString.Mid(c,1)

Local angle:Float = ((640.0 / scrollString.Length) / 360.0 * 2) * (Pi / 180) + 8 * (chrStartOffset + c) * (Pi / 180) + angl

scrollY = 200 + Sin(angle) * 80

canvas.DrawText(s,scrollX+position,scrollY)

position = position + font.TextWidth(scrollString.Mid(c,1))

scrollX = scrollX - 2

angl = angl - (Pi / 180) * 4

End

Method getTextEndOffset:Int()

Local c:Int = chrStartOffset

Local textWidth:Int = 0

scrollString = ""

' Find the end offset for a character to build a string

' that's width in pixels is at least 640 + first character's width

While textWidth < 640 + firstChrWidth

scrollString = scrollString + SCROLLTEXT.Mid(c,1)

c = c + 1

If c > SCROLLTEXT.Length - 1 Then c = 0

textWidth = font.TextWidth(scrollString)

Wend

Return c

End

Function Main()

New AppInstance

New MyWindow

App.Run()

End

The idea is to build a string (“scrollString”) which characters are drawn one by one to the screen in order to achieve the sine wave effect.

Feel free to use this code.

Simple text scrollers in Monkey X and Monkey2

August 13, 2018August 13, 2018 Markus

I coded today simple text scrollers in Monkey X and Monkey2. When the old school bug had bitten me I coded among other things the following:

This night it’s time to just simple text scrollers code.

Let’s take a look at the result of the Monkey X code:

The source code:

Import mojo2
Import brl.databuffer
Import mojo.audio

Function Main()
	New MyApp
End
 
Class MyApp Extends App
	
	Const FONT_HEIGHT:Int = 153
	Const SCROLLTEXT:String = "                      Testing plain text scrolling code... Coded in good old Monkey X Pro...  The picture is from my home, when I was living in Turku, Finland...                       "
 
	field canvas:Canvas
	field fontDat:DataBuffer
	field gfxFont:Image
	field gfxBG:Image
	field chrStartOffset:Int
	field firstChrWidth:Int
	field chrEndOffset:Int
	field x:Float

	
	Method OnCreate()
				
		canvas = New Canvas
		
		gfxBG = Image.Load("bg.jpg",.0,.0)
		gfxFont = Image.Load("font.png")
		fontDat = New DataBuffer(95*4*2) ' 95 characters, for each character two 4 byte integers
		fontDat = DataBuffer.Load("monkey://data/font.dat")
 				
		x = 0
		chrStartOffset = 0
		firstChrWidth = charWidth(0)
		
		SetUpdateRate(15)
	End
	
	Method OnUpdate()
 
		' Scroll the amount of width of the character in the font
		If x < -firstChrWidth Then
			chrStartOffset = chrStartOffset + 1
			
			If chrStartOffset > SCROLLTEXT.Length - 1 Then chrStartOffset = 0
			
			firstChrWidth = charWidth(chrStartOffset)
			chrEndOffset = getTextEndOffset()
			
			If chrEndOffset > SCROLLTEXT.Length - 1 Then chrEndOffset = 0
			
			x = 0
		Endif
 
		x = x - 2	' scrolling speed
			
	End
	
	Method OnRender()
		canvas.PushMatrix()
'		canvas.Scale(DeviceWidth()/640.0,DeviceHeight()/480.0)
 
 		canvas.SetBlendMode(BlendMode.Alpha)
		canvas.DrawImage(gfxBG,0,0)
 
		canvas.SetBlendMode(BlendMode.Additive)
		
		' draw string to position x
		drawString(x)
		
		canvas.Flush()
		canvas.PopMatrix()	
 
	End
	
	' This function draws text from indexes
	' chrStartOffset to chrEndOffset of the scrolltext string
	Method drawString(x:Int)
		Local xx:float
		Local angle:Int
		Local index:Int
		Local len = SCROLLTEXT.Length()
		Local chrs:Int[]
		chrs = SCROLLTEXT.ToChars()
		Local prevChrWidth:Int
		
		For Local i:Int = chrStartOffset To chrEndOffset
			canvas.DrawRect(x+prevChrWidth, (480 - FONT_HEIGHT) / 2, fontDat.PeekInt((chrs[i]-32)*4*2 + 4), FONT_HEIGHT, gfxFont, fontDat.PeekInt((chrs[i]-32)*4*2), 0, fontDat.PeekInt((chrs[i]-32)*4*2 + 4), FONT_HEIGHT)
			prevChrWidth = prevChrWidth + fontDat.PeekInt((chrs[i]-32)*4*2 + 4)
		Next		

	End
 
	' get character's width in pixels
	Method charWidth:Int(offset:Int)
		Local chrs:Int[]
		chrs = SCROLLTEXT.ToChars()
		Return fontDat.PeekInt((chrs[offset]-32)*4*2 + 4)
	End
	
	Method getTextEndOffset:Int()
		Local chrs:Int[]
		Local c:Int = chrStartOffset
		Local textWidth:Int = 0
		
		chrs = SCROLLTEXT.ToChars()
		
		' Find the endoffset for a character to build a string
		' that's width in pixels is at least 640 + first character's width
		While textWidth < 640 + firstChrWidth
			textWidth = textWidth + charWidth(c)
			c = c + 1

			If c > SCROLLTEXT.Length - 1 Then c = 0
			
		Wend
		
		Return c
		
	End	
End Class

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

Import mojo2

Import brl.databuffer

Import mojo.audio

Function Main()

New MyApp

End

Class MyApp Extends App

Const FONT_HEIGHT:Int = 153

Const SCROLLTEXT:String = " Testing plain text scrolling code... Coded in good old Monkey X Pro... The picture is from my home, when I was living in Turku, Finland... "

field canvas:Canvas

field fontDat:DataBuffer

field gfxFont:Image

field gfxBG:Image

field chrStartOffset:Int

field firstChrWidth:Int

field chrEndOffset:Int

field x:Float

Method OnCreate()

canvas = New Canvas

gfxBG = Image.Load("bg.jpg",.0,.0)

gfxFont = Image.Load("font.png")

fontDat = New DataBuffer(95*4*2) ' 95 characters, for each character two 4 byte integers

fontDat = DataBuffer.Load("monkey://data/font.dat")

x = 0

chrStartOffset = 0

firstChrWidth = charWidth(0)

SetUpdateRate(15)

End

Method OnUpdate()

' Scroll the amount of width of the character in the font

If x < -firstChrWidth Then

chrStartOffset = chrStartOffset + 1

If chrStartOffset > SCROLLTEXT.Length - 1 Then chrStartOffset = 0

firstChrWidth = charWidth(chrStartOffset)

chrEndOffset = getTextEndOffset()

If chrEndOffset > SCROLLTEXT.Length - 1 Then chrEndOffset = 0

x = 0

Endif

x = x - 2 ' scrolling speed

End

Method OnRender()

canvas.PushMatrix()

' canvas.Scale(DeviceWidth()/640.0,DeviceHeight()/480.0)

canvas.SetBlendMode(BlendMode.Alpha)

canvas.DrawImage(gfxBG,0,0)

canvas.SetBlendMode(BlendMode.Additive)

' draw string to position x

drawString(x)

canvas.Flush()

canvas.PopMatrix()

End

' This function draws text from indexes

' chrStartOffset to chrEndOffset of the scrolltext string

Method drawString(x:Int)

Local xx:float

Local angle:Int

Local index:Int

Local len = SCROLLTEXT.Length()

Local chrs:Int[]

chrs = SCROLLTEXT.ToChars()

Local prevChrWidth:Int

For Local i:Int = chrStartOffset To chrEndOffset

canvas.DrawRect(x+prevChrWidth, (480 - FONT_HEIGHT) / 2, fontDat.PeekInt((chrs[i]-32)*4*2 + 4), FONT_HEIGHT, gfxFont, fontDat.PeekInt((chrs[i]-32)*4*2), 0, fontDat.PeekInt((chrs[i]-32)*4*2 + 4), FONT_HEIGHT)

prevChrWidth = prevChrWidth + fontDat.PeekInt((chrs[i]-32)*4*2 + 4)

End

' get character's width in pixels

Method charWidth:Int(offset:Int)

Local chrs:Int[]

chrs = SCROLLTEXT.ToChars()

Return fontDat.PeekInt((chrs[offset]-32)*4*2 + 4)

End

Method getTextEndOffset:Int()

Local chrs:Int[]

Local c:Int = chrStartOffset

Local textWidth:Int = 0

chrs = SCROLLTEXT.ToChars()

' Find the endoffset for a character to build a string

' that's width in pixels is at least 640 + first character's width

While textWidth < 640 + firstChrWidth

textWidth = textWidth + charWidth(c)

c = c + 1

If c > SCROLLTEXT.Length - 1 Then c = 0

Wend

Return c

End

End Class

For the font I’ve used my Font 2 PNG and its data file. Notice, that the update rate is only 15, change that to 60.

For the first time I made a text scroller in Monkey2 too. The result is in video below:

As you can see, the code is a little different:

Namespace myapp

#Import "<std>"
#Import "<mojo>"

#Import "gfx/bg.jpg"
#Import "fonts/DoctorJekyllNF.ttf"

Using std..
Using mojo..

Class MyWindow Extends Window

Const SCROLLTEXT:String = "                              Testing simple text scrolling code written in Monkey2...  Later it's time again for old school sine scrollers...                     "

Field bg:Image
Field scrollString:String
Field scrollX:Int
Field chrStartOffset:Int
Field firstChrWidth:Int
Field chrEndOffset:Int
Field font:Font
	
	Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )

		Super.New( title,width,height,flags )

		bg = Image.Load("asset::bg.jpg")
		font = Font.Load("asset::DoctorJekyllNF.ttf",80)
		
		scrollX = 0
		chrStartOffset = 0
		firstChrWidth = font.TextWidth(SCROLLTEXT.Mid(0,1))

	End

	Method OnRender( canvas:Canvas ) Override
	
		App.RequestRender()

		canvas.DrawImage(bg,0,0)
		canvas.Font = font
		canvas.Color = Color.Orange
				
		If scrollX < -firstChrWidth Then
			chrStartOffset = chrStartOffset + 1
			
			If chrStartOffset > SCROLLTEXT.Length - 1 Then chrStartOffset = 0
			
			firstChrWidth = font.TextWidth(SCROLLTEXT.Mid(chrStartOffset,1))
			chrEndOffset = getTextEndOffset()
			
			If chrEndOffset > SCROLLTEXT.Length - 1 Then chrEndOffset = 0
			
			scrollX = 0
		Endif
				
		canvas.DrawText(scrollString,scrollX,200)

		scrollX = scrollX - 2
		
	End

	
	Method getTextEndOffset:Int()
		Local c:Int = chrStartOffset
		Local textWidth:Int = 0
		
		scrollString = ""
		
		' Find the end offset for a character to build a string
		' that's width in pixels is at least 640 + first character's width
		While textWidth < 640 + firstChrWidth
			
			scrollString = scrollString + SCROLLTEXT.Mid(c,1)
			textWidth = textWidth + font.TextWidth(SCROLLTEXT.Mid(c,1))
			c = c + 1
						
			If c > SCROLLTEXT.Length - 1 Then c = 0
			
		Wend
		
		Return c
		
	End	
		
End

Function Main()

	New AppInstance
	
	New MyWindow
	
	App.Run()
End

Namespace myapp

#Import "<std>"

#Import "<mojo>"

#Import "gfx/bg.jpg"

#Import "fonts/DoctorJekyllNF.ttf"

Using std..

Using mojo..

Class MyWindow Extends Window

Const SCROLLTEXT:String = " Testing simple text scrolling code written in Monkey2... Later it's time again for old school sine scrollers... "

Field bg:Image

Field scrollString:String

Field scrollX:Int

Field chrStartOffset:Int

Field firstChrWidth:Int

Field chrEndOffset:Int

Field font:Font

Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )

Super.New( title,width,height,flags )

bg = Image.Load("asset::bg.jpg")

font = Font.Load("asset::DoctorJekyllNF.ttf",80)

scrollX = 0

chrStartOffset = 0

firstChrWidth = font.TextWidth(SCROLLTEXT.Mid(0,1))

End

Method OnRender( canvas:Canvas ) Override

App.RequestRender()

canvas.DrawImage(bg,0,0)

canvas.Font = font

canvas.Color = Color.Orange

If scrollX < -firstChrWidth Then

chrStartOffset = chrStartOffset + 1

If chrStartOffset > SCROLLTEXT.Length - 1 Then chrStartOffset = 0

firstChrWidth = font.TextWidth(SCROLLTEXT.Mid(chrStartOffset,1))

chrEndOffset = getTextEndOffset()

If chrEndOffset > SCROLLTEXT.Length - 1 Then chrEndOffset = 0

scrollX = 0

Endif

canvas.DrawText(scrollString,scrollX,200)

scrollX = scrollX - 2

End

Method getTextEndOffset:Int()

Local c:Int = chrStartOffset

Local textWidth:Int = 0

scrollString = ""

' Find the end offset for a character to build a string

' that's width in pixels is at least 640 + first character's width

While textWidth < 640 + firstChrWidth

scrollString = scrollString + SCROLLTEXT.Mid(c,1)

textWidth = textWidth + font.TextWidth(SCROLLTEXT.Mid(c,1))

c = c + 1

If c > SCROLLTEXT.Length - 1 Then c = 0

Wend

Return c

End

Function Main()

New AppInstance

New MyWindow

App.Run()

End

In order the get coding going, you may download both the projects with all the data files. Password to download: scroller

Monkey programming language scrolling source codes

1 file(s) 243.78 KB

Download

Later it’s time to again for sine wave scrollers… 🙂

Have fun!

Tile Scrolling with Maps Made with my Map Editor

May 8, 2018 Markus

Little tutorial on scrolling a map/world made with my Map Editor.

First, the source code in full:

Import mojo2
Import brl

Function Main()
	New MyApp
End

Class MyApp Extends App

	Field canvas:Canvas
	Field gfxShapes:Image
	Field touchX,touchY:Float
	Field prevTX,prevTY:Float
	Field scaleX,scaleY:Float
	Field scrollX,scrollY:Float
	Field touchXD,touchYD:Float
	Field scroll:Bool
	Field map:Int[]
	Field worldHeight:Int, worldWidth:Int	
	
	Field mapX:Int
	Field mapY:Int
	
	Method OnCreate()
		canvas = New Canvas()
		

		gfxShapes = Image.Load("shapes.png")

		SetDeviceWindow(640,480,0)
		scaleX = DeviceWidth() / 640.0
		scaleY = DeviceHeight() / 480.0
		
		Local mapFile:=FileStream.Open("cerberus://data/map.dat","r")

		worldWidth = mapFile.ReadInt()
		worldHeight = mapFile.ReadInt()
		
		map = map.Resize(worldWidth * worldHeight)
		
		For Local i:Int = 0 To worldWidth * worldHeight - 1
			map[i] = mapFile.ReadInt()
		Next
			
		mapFile.Close()
		
		mapX = 0
		mapY = 0
		
	End
	
	Method OnUpdate()

		touchX = TouchX()
		touchY = TouchY()
										
		If TouchDown(0) > 0 Then
			
			scrollX = (touchX - prevTX)
			scrollY = (touchY - prevTY)
 			
			If Abs(scrollX) > Abs(scrollY) Then
				If scrollX < 0 Then mapX = mapX - 1 Else mapX = mapX + 1
			Else
				If scrollY < 0 Then mapY = mapY - 1 Else mapY = mapY + 1
			Endif
			
			If mapX < 0 Then mapX = 0
			If mapX > worldWidth - 40 - 1 Then mapX = worldWidth - 40 - 1
			If mapY < 0 Then mapY = 0
			If mapY > worldHeight - 30 - 1 Then mapY = worldHeight - 30 - 1

		Endif

		prevTX = touchX
		prevTY = touchY	

	End

	Method OnRender()
		canvas.PushMatrix()
		canvas.Scale(scaleX,scaleY)
		
		For Local y:Int = 0 To 30 - 1
			For Local x:Int = 0 To 40 - 1
				canvas.DrawRect(x * 16, y * 16, gfxShapes, 0, map[mapX + x + (mapY + y) * worldWidth] * 16, 16, 16)
			Next
		Next

		canvas.Flush()
		canvas.PopMatrix()
	End
	
End Class

Import mojo2

Import brl

Function Main()

New MyApp

End

Class MyApp Extends App

Field canvas:Canvas

Field gfxShapes:Image

Field touchX,touchY:Float

Field prevTX,prevTY:Float

Field scaleX,scaleY:Float

Field scrollX,scrollY:Float

Field touchXD,touchYD:Float

Field scroll:Bool

Field map:Int[]

Field worldHeight:Int, worldWidth:Int

Field mapX:Int

Field mapY:Int

Method OnCreate()

canvas = New Canvas()

gfxShapes = Image.Load("shapes.png")

SetDeviceWindow(640,480,0)

scaleX = DeviceWidth() / 640.0

scaleY = DeviceHeight() / 480.0

Local mapFile:=FileStream.Open("cerberus://data/map.dat","r")

worldWidth = mapFile.ReadInt()

worldHeight = mapFile.ReadInt()

map = map.Resize(worldWidth * worldHeight)

For Local i:Int = 0 To worldWidth * worldHeight - 1

map[i] = mapFile.ReadInt()

mapFile.Close()

mapX = 0

mapY = 0

End

Method OnUpdate()

touchX = TouchX()

touchY = TouchY()

If TouchDown(0) > 0 Then

scrollX = (touchX - prevTX)

scrollY = (touchY - prevTY)

If Abs(scrollX) > Abs(scrollY) Then

If scrollX < 0 Then mapX = mapX - 1 Else mapX = mapX + 1

Else

If scrollY < 0 Then mapY = mapY - 1 Else mapY = mapY + 1

Endif

If mapX < 0 Then mapX = 0

If mapX > worldWidth - 40 - 1 Then mapX = worldWidth - 40 - 1

If mapY < 0 Then mapY = 0

If mapY > worldHeight - 30 - 1 Then mapY = worldHeight - 30 - 1

Endif

prevTX = touchX

prevTY = touchY

End

Method OnRender()

canvas.PushMatrix()

canvas.Scale(scaleX,scaleY)

For Local y:Int = 0 To 30 - 1

For Local x:Int = 0 To 40 - 1

canvas.DrawRect(x * 16, y * 16, gfxShapes, 0, map[mapX + x + (mapY + y) * worldWidth] * 16, 16, 16)

canvas.Flush()

canvas.PopMatrix()

End

End Class

Quite straight forward, but some words about the code.

In the Map Editor dat-file, the first 4 byte integer declares the width of the map, the second the height of the map in tiles. The size of the map is read first, then the map itself.

The scrolling is made with touch screen in mind.

The meaning of the Abs(…)-sentence is, that in which direction in the touch screen the finger is being moved most and then the map is scrolled into that direction.

The 256 color shapes of the world are from an Ultima IV remake and are free to be used. The original project is “xu4”, if my memory servers me right.

The source above is places to public domain as license for it.

Please, if you make a game (in any programming language) utilizing my code, show me, what you have achieved. I’m big fan of games of this kind of genre.

For the end a video regarding this post. At the beginning of the video there’s some scrolling: