Please login or register.

Login with username, password and session length
Advanced search  


Created for developers of all Amiga camps

Pages: [1] 2 3 ... 10
 on: April 22, 2017, 10:22:35 PM 
Started by ALB42 - Last post by ALB42
MUI Mapparium is a new implementation of Mapparium in native MUI GUI and speed optimized until now there is only a work in progress version with only basic functionality. It even works on a real Amiga in a usable speed (with Vampire/RTG)

more information an YT Video:

Download first version for Amiga, AROS, MorphOS:

 on: April 02, 2017, 09:58:34 PM 
Started by magorium - Last post by magorium

Small example for those always wanted to see/ask how one could create a new (Free Pascal) class.

In this case it's all about a smallish wrapper for an intuition window (far from finished e.g. just there to show how one could approach things, and as such could be used as a generic way of accomplishing such task).

The example is accompanied with some explanations here and there and which can be read here and the sources can (also) be found here.

Keep coding !

PS: Please keep in mind that the original c source-code was kindly provided by Thomas Rapp.

 on: March 22, 2017, 01:50:18 AM 
Started by magorium - Last post by magorium

How can i map symbols located in the symbol hunk to my (runtime) program ?

Or perhaps the better question would be (?): how do i figure out at runtime at what memory address my executable (hunk) was loaded so that i can map the relative symbol offsets to absolute offsets.

It might be i'm doing things wrong here but (available online) information seems very scarce or non existent.

Initially i was looking at pr_SegList but that seems to be a dead end or maybe i'm missing something.

Perhaps someone is able to recommend a link and/or good book title on the subject on hunks and how they relate to actual practice ?

The only usable links i was able to find/use so far is inside the OS4 wiki and this page.

The latter link does mention a function named get_hunk_address() but i fail to locate an actual implementation and also fail to come up with something of my own that works.


 on: March 15, 2017, 04:47:10 PM 
Started by asrael22 - Last post by asrael22
Hi there.

Just a quick question as I'm looking into Free Pascal.
Is there support for serial device on MorphOS?


 on: March 08, 2017, 08:14:40 AM 
Started by SamuraiCrow - Last post by SamuraiCrow

From readme:
TinyGL is intended to be a very small implementation of a subset of
OpenGL for embedded systems or games. It is a software only
implementation. Only the main OpenGL calls are implemented. All the
calls I considered not important are simply *not implemented*.

The main strength of TinyGL is that it is fast and simple because it
has not to be exactly compatible with OpenGL. In particular, the
texture mapping and the geometrical transformations are very fast.

 on: March 07, 2017, 03:20:59 PM 
Started by Fastbit66 - Last post by Fastbit66
Hello Pascal Amiga Coders,

I have installed FPC 3.1.1 AmigaOS4 PowerPC including LCL (Release 08.05.2016) from ALB's Site.
I have a SAM440 Machine with AmigaOS 4.1 FE Update 1 runnig

I can compile programs via the FP IDE or from shell.
But every executable brings up the grimm reaper.

Has anyone experiences with this setup?
Which procesor must be chosen as target for SAM440?

Thanx a lot for your time and reading.

Best regards

 on: February 23, 2017, 05:24:06 PM 
Started by Zendarion - Last post by Zendarion
So this is what I am after this time. I am new at PortablE and may have basic questions.

Define a string
A string value
An array
Populate the array with random string values

I think I am a bit confused, for now, when it comes to arrays and PortablE. By the way, the hint you gave me on the other thread was great. Worked perfectly and in a way everything seems so obvious when I see it like that.

The code is not mine but I would do it like this in C# and now I would like to have a go at it in PortablE

private static string CreateRandomPassword(int passwordLength)
 string allowedChars = "abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNOPQRSTUVWXYZ0123456789!@$?_-";
 char[] chars = new char[passwordLength];
 Random rd = new Random();

 for (int i = 0; i < passwordLength; i++)
  chars = allowedChars[rd.Next(0, allowedChars.Length)];
 return new string(chars);

// Hans

 on: February 16, 2017, 10:55:53 AM 
Started by Zendarion - Last post by Zendarion
Have a few questions

1. When I use addTick(), how can I get the text that describe the tick on the right side instead of left? Just to choose sides?

2. When creating a GUI, to have a fixed size at start, like 640*480, Fullscreen, 1920*1080

3 I can only resize the window horizontal and not vertical. I have seen some example programs you have made and some can do both. How do I do that?

4. I used a button to show a picture but doesnt seem right to use a button and GHOST it for a picture. And can a picture stretch out is the application is resized? Didnt send the picture I use.

5. Is there a way to get a textbox with tiny up and down arrows to increase a numerical value?

6. Is there something like try catch in PortableE?

Code below and the button is just a copy and paste from something else I did and has no function.

MODULE 'std/cGui', 'std/cApp', 'std/cPath'
PROC main()
DEF win:PTR TO cGuiWindow, button:PTR TO cGuiButton
DEF item:PTR TO cGuiItem, quit:BOOL
DEF outPut:PTR TO cGuiText, passLength:PTR TO cGuiNumberString
DEF uclTick:PTR TO cGuiTick, lclTick:PTR TO cGuiTick


win := CreateGuiWindow('PassGen v1.0')


win.beginGroupHorizontal('Select Character Set')
                uclTick := win.addTick('Uppercase Letters')
                lclTick := win.addTick('Lowercase Letters')

                uclTick := win.addTick('Uppercase Letters')
                lclTick := win.addTick('Lowercase Letters')

                outPut := win.addText('Your new password').setState('')
                passLength := win.addNumberString('Enter Password Length', 0, 10)
                 button := win.addButton('OK').initPic('tbimages:/ok_g').setGhosted(FALSE)

        IF item = NIL
                IF win.getCloseRequest() THEN quit := TRUE

        ELSE IF item = button
                IF StrCmp('Hans', temp)
                        outPut.setState('Hej Hans')
                        outPut.setState('Du är inte Hans, arghhh!!!')
UNTIL quit


 on: February 11, 2017, 06:07:49 PM 
Started by magorium - Last post by magorium
Since another thread already discussed the basics of C, and some 'hidden' specifics that the language confronts you with i got into a bit of a problem with regards to translating hively player to Pascal.

I've looked at my 'port' a numerous amount of times now and, i simply fail to see where i go wrong. Most probably i have interpreted that the c-code does something but in fact does something different then i was expecting. As can be read from that earlier mentioned thread, that is something i am still struggling with (even after all these years).

The wonderful results can be found here.

I would be obliged if someone with more c knowledge (and preferably a bit of Pascal as well) would be able to point me a bit into the right direction. One word of warning though as the code is a bit tedious and long winded. I've looked at the code for so long that i can't even distinguish spaces from numbers anymore  ;D

In case wondering, i used the hvl2wav sources. That way i could use the original c produced executable to generate a wav file and see what the Pascal translated code produced, compare the wav files to see if both codes produced the same -> my code goes a bit off at some of the effects (i was even unable to determine which effect(s)).

In the end i would like to add the ahi/wav back-end to be used in a player or all platforms (even though the c code can be used to do the same).


 on: February 07, 2017, 05:19:04 PM 
Started by ALB42 - Last post by ALB42
FreePascal for Amiga got it's own Subforum, so Welcome.

I hope to establish this as a central discussion point for all FreePascal@Amiga users.
And Amiga stands here for Amiga OS3, Amiga OS4, AROS and MorphOS.

One Request please let the war between the Platforms out.
Currently there are not much differences between the 4 Platforms, and I'm working on it to make it even smaller.

Pages: [1] 2 3 ... 10