Zitat:

---

Original von Archeon:
Moin Moin

Hier mal ein Anstoss.. Früher hieß es...Freiwillig jetzt heist es wiedersprechen sonst ist man ein paar Organe los!

Früher war das Impfen freiwillig - Umgedreht wird zu pflicht
Früher war Organspende freiwilig - Umgedreht man muss wiedersprechen
Früher konnte man sein Fingerabdruck speichern umgedreht ab 2021 ist es pflicht
Früher (Schweden) war RFID unter der Haut freiwillig ab 2022 soll es für jeden Bürger Pflicht werden. (Link... Dank §13 darf ich es nicht mehr)
Kennst du noch so paar umgedrehte Dinge...

Ich habe echt kein Lust mehr in dieser Zeit zu sein... Gebt mir ne Zeit Maschine bzw. baut mir eine Zeit Maschine in ein LKW mit Anhänger ein und ich bin weg.. Mit Möbeln und Automaten.

--
Ich liebe Arcadespiele

[ Dieser Beitrag wurde von Archeon am 09.04.2019 um 13:35 Uhr geändert. ]

---

code:

---

'--------------------
' Classic / AmigaOS4 / MorphOS / AROS
'
' AmiDevCpp Path
AMIDEVCPP			= "{SYSTEMDRIVE}CrosscompilerAmiDevCpp"

' classic 68k
BUILD_68K			= true
GCC_RELEASE_68K		= "-noixemul -O6 -o"
GCC_DEBUG_68K		= "-noixemul -g -O6 -o"
GCC_PROFILE_68K		= "-noixemul -O6 -o"

' AmigaOS4
BUILD_OS4			= false
GCC_RELEASE_OS4		= "-O6 -lauto -lamiga -o"
GCC_DEBUG_OS4		= "-g -O6 -lauto -lamiga -o"
GCC_PROFILE_OS4		= "-O6 -lauto -lamiga -o"

' MorphOS
BUILD_MOS			= false
GCC_RELEASE_MOS		= ""
GCC_DEBUG_MOS		= ""
GCC_PROFILE_MOS		= ""

' AROS 32 Bit
BUILD_AROS32		= false
GCC_RELEASE_AROS32	= ""
GCC_DEBUG_AROS32	= ""
GCC_PROFILE_AROS32	= ""

' AROS 64 Bit
BUILD_AROS64		= false
GCC_RELEASE_AROS64	= ""
GCC_DEBUG_AROS64	= ""
GCC_PROFILE_AROS64	= ""

' AROS PPC
BUILD_AROSPPC		= false
GCC_RELEASE_AROSPPC	= ""
GCC_DEBUG_AROSPPC	= ""
GCC_PROFILE_AROSPPC	= ""

---

Diese Config ist noch nicht komplett (wie man sieht), aber sie funktioniert tadellos

• Fullscreen : bisher kann man ja nur Programme erstellen die in einem Fenster auf der Workbench laufen und somit dieselbe Palette teilen.
  
• Laden von Images über Datatypes ohne über das Format nachdenken zu müssen (wenn es ein PNG ist gibt es halt einen Alphakanal etc.)
  
• Portierung von "Trans" (dem eigentlichen Transpiler) auf AOS3 und AROS, so dass Windows nicht mehr benötigt wird.
  

Was ist neu?

• Window Flags (WFLG_) habe ich von amiga.intuition nach amiga.window verschoben
  
• Intuition.OpenWindowTags() habe ich entfernt, Fenster werden jetzt grundsätzlich über die Klasse "Window" verwaltet
  
• Window.Title:Void(title:String) ändert den Fenstertitel. Das funktioniert nun auch endlich auf AROS 64
  
• amiga.window importiert nun amiga.rastport, in Vorbereitung auf 0.14 in dem wieder Zeichenmethoden eingeführt werden.
  

code:

---

Strict

Import amiga.intuition


' der Einsprungspunkt eines jeden Monkey Programms
Function Main:Int()
	New AmigaMonkey()' wir instantiieren unser Programm
	Return 0
End

Class AmigaMonkey
	Method New()
		' zuerst ein paar Angaben wie unser Fenster aussehen soll...
		Local windowFlags:Int	= WFLG_DRAGBAR | WFLG_CLOSEGADGET | WFLG_ACTIVATE
		' ...dann sagen wir auf welche Ereignisse das Fenster reagieren soll...
		Local idcmpFlags:Int	= IDCMP_CLOSEWINDOW | IDCMP_MOUSEMOVE |  IDCMP_INTUITICKS
		' ...und jetzt öffnen wir das Fenster...
		Self.myWindow = New Window("Hallo Amiga", 20, 20, 320, 256, windowFlags, idcmpFlags)
		' ...und hüpfen in die Hauptschleife:
		Self.main()
		
	End
	
	
	Method main:Void()
		Local exitFlag:Bool = False
		
		While Not exitFlag
			' wenn Intuition meldet dass der Closebutton des Fensters
			' gedrückt wurde....
			If Self.myWindow.WaitEvent() = IDCMP_CLOSEWINDOW exitFlag = True
		Wend
		
		' ...schliessen wir das Fenster und beenden das Programm
		Self.myWindow.Close()
	End
	
	Private
	Field myWindow:Window
End

---

Zitat:

---

AMIDEVCPP_PATH = "C:AmiDevCPP"
BUILD_AOS3 = "true"
BUILD_AOS4 = "true"
BUILD_AROS32 = "true"
BUILD_AROS64 = "true"
BUILD_AROSPPC = "true"
BUILD_MOS = "true"

---

• geändert : Die Mojo-Reimplementation heisst jetzt "Amiga"
  
• geändert : Das Target selbst heisst jetzt auch "Amiga" und nicht mehr "AOS3"
  
• geändert : Das Target besitzt nun ein eigenes Config File
  
• geändert : Man kann jetzt für jede einzelne Plattform angeben ob sie kompiliert werden soll oder nicht. Auch die Aros Ziele sind nun einzeln definierbar
  
• geändert : Der Pfad zu den AmiDevCPP Binaries wird jetzt in der Config angegeben und muss nicht mehr in die Windows PATH Variable eingetragen werden
  
• geändert : Die Monkey Demo wird nicht mehr benötigt. Das oben verlinkte Archiv beinhaltet alles was man benötigt um Monkey Programme für den Amiga unter Windows zu kompilieren. Einzig AmiDevCPP muss noch heruntergeladen werden.
  
• beachte : Zwar können alle Ziele in der Config auf True gesetzt werden, aber nur AmigaOS3.x, Aros386 und ArosPPC werden derzeit fehlerfrei übersetzt.
  
• beachte: Bis "Trans" komplett auf Amiga/MorphOS/Aros portiert ist, muss die Datei config.winnt.txt angepasst werden, die Datei "config.amiga.txt" ist erst relevant wenn sie auf einem Amiga gelesen wird.
  

• 1. Das Ganze funktioniert nur wenn Du einen Windows-Rechner hast auf dem Du kompilieren kannst.
  
  
• 2. Du benötigst:
  
  
  
  • AmiDevCPP
    
  • Monkey Demoversion
    
  • das Amiga Target
    
  
  
• 3. Installiere AmiDevCpp
  
• 4. Entpacke die Monkey Demo irgendwo hin
  
• 5. Entpacke das Amiga Target und kopiere den Inhalt über die Monkey Installation, es werden einige Dateien ersetzt und andere hinzugefügt.
  
• 6. Füge den Pfad zu AmiDevCppusrlocalamigabin der Windows Umgebungsvariable PATH hinzu. Unter Windows 7 geht das mit Rechtsklick auf "Computer" -> Eigenschaften -> Erweiterte Systemeinstellungen -> Umgebungsvariablen. Dort in der unteren Liste die Variable PATH suchen, auf "Bearbeiten" klicken und an das Ende der Zeile den Pfad anhängen. Bitte daran denken dass einzelne Variablen durch ein Semikolon getrennt werden. Also erst ein Semikolon ans Ende der Zeile und dann den Pfad eintragen. Ggf. den Rechner neu starten.
  
• 7. "Monk" aus dem Monkey-Verzeichnis starten
  
• 8. Trage folgenden Source ein:
  

  code:

  ---

  import amigaos3
  
  Function Main()
    Print "Hallo Amiga!"
  End

  ---

• 9. sichere den Quelltext irgendwo
  
• 10. Klicke auf das Symbol mit der Rakete die nach oben zeigt
  
• 11. Wähle als Ziel "aos3" aus und klicke auf "Build"
  
• 12. wenn er kompiliert hat findest Du im Verzeichnis in das Du den Source gespeichert hast einen neuen Ordner mit dem Postfix ".build". Darin einen weiteren Ordner namens "aos3" und darin die Executables für OS3.x, AROSi386 und AROS-PPC
  
• 13. kopiere "appAOS3" auf Deinen Amiga und starte das Programm
  

code:

---

import amigaos3

Class HalloAmiga Extends App
  Field hallo:String

  Method OnCreate()
    hallo = "Hallo Amiga"
  End

  Method OnUpdate()
    ' leer, es gibt nichts zu "updaten"
  End

  Method OnRender()
    Print hallo
  End
End

Function Main()
  New HalloAmiga
End

---

Zitat:

---

12/13/2011 v0.25
added : class Image
added : Image.Width
added : Image.Height
added : Image.Depth
added : Image.Load:Void(filename:String, remapColors:Bool = False)
added : Image.Free:Void()
added : LoadImage:Image(filename:String)
added : LoadImage:Image(filename:String, remapColors:Byte)
added : Window.DrawImage:Void(img:Image, x:Int, y:Int)
added : DrawImage:Void(win:Window, img:Image, x:Int, y:Int)
added : DrawImage:Void(img:Image, x:Int, y:Int) [Mojo Style]
added : FreeImage:Void(img:Image)
added : Window.SetScreen:Void(pubScreen:String = "workbench")
added : SetScreen:Void(win:Window, pubScreen:String = "workbench")
added : SetScreen:Void(pubScreen:String = "workbench") [Mojo Style]
added : SetUpdateRate:Void(hertz:Int) [only with Mojo Style]
added : Window.getWidth:Int()
added : Window.getHeight:Int()
added : WindowWidth:Int(win:Window)
added : WindowHeight:Int(win:Window)
added : DeviceWidth:Int() [Mojo Style]
added : DeviceHeight:Int() [Mojo Style]
changed : MilliSecs() now returns a 64 bit value
changed : CreateWindow() now has the optional parameter "borderless"
fixed : ClsColor() now affects the BPen
fixed : in Mojo-Style now the workbench will be locked

---

code:

---

Import amigaos3

Class myApp extends App
	Field mx:Int
	Field my:int
	Field time:Int
	Field FPS:Int
	Field tmpFPS:Int
	Field tmpTime:int
	Field lastFPS:Int
	Field fnt:Font
	Field lastX:Int
	Field lastY:Int
	Field img:Image
	Field bg:Image
	
	Method OnCreate()
		fnt = LoadFont("helvetica.font", 16)
		img = LoadImage("amiga.data/monkey.iff")
		bg = LoadImage("amiga.data/background.jpg")
		
		SetFont(fnt)
		AppTitle("draw with Monkey")
		
		SetColor(255, 255, 0)
		ClsColor(200, 90, 0)
		Cls()
				
		lastX = 0
		lastY = 0
		
		SetUpdateRate(60)
	End
	
	Method OnUpdate()
		mx = MouseX()
		my = MouseY()
		tmpFPS = tmpFPS + 1
		tmpTime = MilliSecs()
		
		if tmpTime - time > 1000
			FPS		= tmpFPS
			tmpFPS	= 0
			time 	= tmpTime
		EndIf
	End
	
	Method OnRender()
		DrawImage(bg, 0, 0)
		
		if MouseDown() 
			DrawCircle(mx-1, my-1, 3)
			if lastX > 0 And lastY > 0 DrawLine(lastX, lastY, mx, my)
			lastX = mx
			lastY = my
		EndIf
		
		if tmpTime <> time DrawText("FPS: " + FPS, 10, 10)
		
		DrawImage(img, mx, my)
	End
End

Function Main()
	New myApp
End

---

Diesen Source kann man noch nicht für andere Targets übersetzen da Monkey Fonts nicht kennt, sondern dort ein Image lädt und die Chars als Frame behandelt. Das Amiga Target lädt einen AmigaFont als "DiskFont". Desweiteren imitiert das Amiga Target noch nicht das Verhalten von Mojo was das Filesystem angeht. Mojo erwartet Dateien in "[Name des Projekts].data". Innerhalb dieses Raums kann man dann beliebige Verzeichnisse verwenden. Das Amiga Target berücksichtigt dies noch nicht.

Prinzipiell könnt man jetzt schon Spiele mit Monkey für Amiga programmieren, leider gibt es noch keine Masken oder gar Alpha für Images und Tastatureingaben werden noch nicht berücksichtigt. Wer aber nur mit der Maus und mit rechteckigen Images klar kommt darf loslegen

Ein weiterer Stolperstein ist dass Monkey sich verhält wie sich Systeme neben dem Amiga halt verhalten: Sie malen die Spielegrafik in jedem Frame neu. Mein Rechner malt Crysis2 in einer Sekunde 120 Mal neu. Ein Amiga schafft das leider nicht (außer er ist ein aktueller PPC Rechner oder eine WinUAE Emulation). Es wird noch zahlreiche Änderungen geben um zu gewährleisten dass man mit Monkey auch Spiele schreiben kann die auf einem 14MHz A1200 noch hinreichend laufen ... aber zunächst soll es erstmal komplett sein und funktionieren.

Auf zur 0.26 ... es gibt viel zu tun!
--
PanzerZ |
methusalem | basic

Zitat:

---

12/11/2011 v0.24
added : Window.DrawLine:Void(x1:Int, y1:Int, x2:Int, y2:Int)
added : DrawLine:Void(win:Window, x1:Int, y1:Int, x2:Int, y2:Int)
added : DrawLine:Void(x1:Int, y1:Int, x2:Int, y2:Int) [Mojo Style]
added : Window.DrawEllipse:Void(x:Int, y:Int, width:Int, height:Int)
added : DrawEllipse:Void(win:Window, x:Int, y:Int, width:Int, height:Int)
added : DrawEllipse:Void(x:Int, y:Int, width:Int, height:Int) [Mojo Style]
added : Window.DrawOval:Void(x:Int, y:Int, width:Int, height:Int)
added : DrawOval:Void(win:Window, x:Int, y:Int, width:Int, height:Int)
added : DrawOval:Void(x:Int, y:Int, width:Int, height:Int) [Mojo Style]
added : Window.DrawCircle:Void(x:Int, y:Int, radius:Int)
added : DrawCircle:Void(win:Window, x:Int, y:Int, radius:Int)
added : DrawCircle:Void(x:Int, y:Int, radius:Int) [Mojo Style]
changed : at start Monkey stets BPen to pen number 0

---

Ich weiß dass "DrawEllipse" und "DrawOval" dasselbe tun, aber wenn Monkey da redundant ist muss ich es auch sein

Bild: http://www.sedm.de/monkey/linesAndCircles.jpg

Der Code zum Bild:

code:

---

Import amigaos3

Class myApp extends App
	Field mx:Int
	Field my:int
	Field time:Int
	Field FPS:Int
	Field tmpFPS:Int
	Field tmpTime:int
	Field lastFPS:Int
	Field fnt:Font
	Field lastX:Int
	Field lastY:Int
	
	Method OnCreate()
		fnt = LoadFont("helvetica.font", 16)
		SetFont(fnt)
		AppTitle("draw with Monkey")
		SetColor(255, 255, 0)
		ClsColor(200, 90, 0)
		Cls()
		
		lastX = 0
		lastY = 0
	End
	
	Method OnUpdate()
		mx = MouseX()
		my = MouseY()
		tmpFPS = tmpFPS + 1
		tmpTime = MilliSecs()
		
		if tmpTime - time > 1000
			FPS		= tmpFPS
			tmpFPS	= 0
			time 	= tmpTime
		EndIf
	End
	
	Method OnRender()
		if MouseDown() 
			DrawCircle(mx-1, my-1, 3)
			if lastX > 0 And lastY > 0 DrawLine(lastX, lastY, mx, my)
			lastX = mx
			lastY = my
		EndIf
		
		if tmpTime <> time DrawText("FPS: " + FPS + " Time: " + time, 10, 10)
	End
End

Function Main()
	New myApp
End

---

Zitat:

---

12/10/2011 v0.23
added : MilliSecs:Int()
added : Window.LoadFont:Font(fontName:String, size:Int)
added : Window.LoadFont:Font(fontName:String, size:Int, style:Int)
added : Window.LoadFont:Font(fontName:String, size:Int, style:Int, flags:Int)
added : Window.SetFont(font:Font)
added : Window.DrawText(text:String, x:Int, y:Int)
added : LoadFont:Font(win:Window, fontName:String, size:Int)
added : LoadFont:Font(win:Window, fontName:String, size:Int, style:Int)
added : LoadFont:Font(win:Window, fontName:String, size:Int, style:Int, flags:Int)
added : LoadFont:Font(fontName:String, size:Int) [Mojo Style]
added : LoadFont:Font(fontName:String, size:Int, style:Int) [Mojo Style]
added : LoadFont:Font(fontName:String, size:Int, style:Int, flags:Int) [Mojo Style]
added : SetFont(win:Window, font:Font)
added : SetFont(font:Font) [Mojo Style]
added : DrawText(win:Window, text:String, x:Int, y:Int)
added : DrawText(text:String, x:Int, y:Int) [Mojo Style]

---

code:

---

Import amigaos3

Class myApp extends App
	Field mx:Int
	Field my:int
	Field time:Int
	Field FPS:Int
	Field tmpFPS:Int
	Field tmpTime:int
	Field lastFPS:Int
	Field fnt:Font
	
	Method OnCreate()
		fnt = LoadFont("helvetica.font", 16)
		SetFont(fnt)
		AppTitle("draw with Monkey")
		SetColor(255, 255, 0)
		ClsColor(90, 120, 200)
		Cls()
	End
	
	Method OnUpdate()
		mx = MouseX()
		my = MouseY()
		tmpFPS = tmpFPS + 1
		tmpTime = MilliSecs()
		
		if tmpTime - time > 1000
			FPS		= tmpFPS
			tmpFPS	= 0
			time 	= tmpTime
		EndIf
	End
	
	Method OnRender()
		if MouseDown() DrawRect(mx-1, my-1, 3, 3)
		if tmpTime <> time DrawText("FPS: " + FPS + " Time: " + time, 10, 10)
	End
End

Function Main()
	New myApp
End

---

Zitat:

---

m68k-amigaos-g++ timer.cpp -O6 -o timer

timer.cpp:5: error: conflicting declaration 'Library*TimerBase' /usr/local/amiga/lib/gcc/m68k-amigaos/3.4.0/../../../../m68k-amigaos/sys-include/proto/timer.h:12: error: 'TimerBase' has a previous declaration as 'Device*TimerBase'
timer.cpp:5: error: type mismatch with previous external decl of 'Library*TimerBase' /usr/local/amiga/lib/gcc/m68k-amigaos/3.4.0/../../../../m68k-amigaos/sys-include/proto/timer.h:12: error: previous external decl of 'Device*TimerBase'
timer.cpp:5: error: declaration of 'Library*TimerBase' /usr/local/amiga/lib/gcc/m68k-amigaos/3.4.0/../../../../m68k-amigaos/sys-include/proto/timer.h:12: error: conflicts with previous declaration 'Device*TimerBase'

timer.cpp: In function 'int main()':
timer.cpp:22: error: cannot convert 'Library*' to 'Device*' in assignment
timer.cpp:51:2: warning: no newline at end of file

---

Zitat:

---

AmigaTarget is a new compiler target for the new programming language "Monkey". You can get the
public domain version of Monkey from http://www.monkeycoder.co.nz/file/get.php?file=/Products/demos/MonkeyDemo45c.zip.

with this target you have the ability to compile a Monkey code for Amiga m68k (OS3.x required)
and for the targets AROSi386 and AROS-PPC.

this version is Alpha! at this time there is no Monkey codes wich you can compile for Amiga targets. Read the file
changes.txt to know wich functions are currently implemented.
"Monkey AmigaTarget" builds still run on a naked Amiga1200 with OS3.1

Requirements:
- WindowsXP or newer
- AmiDevCpp from http://amidevcpp.amiga-world.de/AmiDevCpp/info/AmiDevCpp_graceful_Bulldozer_v098_Setup.exe.php
- Monkey as demo from http://www.monkeycoder.co.nz/file/get.php?file=/Products/demos/MonkeyDemo45c.zip or the full version

Installation:
1. get Monkey Demo from http://www.monkeycoder.co.nz/file/get.php?file=/Products/demos/MonkeyDemo45c.zip
2. extract Monkey Demo
3. extract the AmigaTarget.zip Archive over the Monkey direćtory
4. install AmiDevCpp from http://amidevcpp.amiga-world.de/AmiDevCpp/info/AmiDevCpp_graceful_Bulldozer_v098_Setup.exe.php
5. add the AmiDevCpp path ([AMIDEVCPP]usrlocalamigabin) to your windows path variable

---

Ich weiß dass mein Englisch Scheisse ist, wer es korrigieren möchte ist herzlich eingeladen

Die wichtigen Änderungen finden sich in der changes.txt:

Zitat:

---

12/06/2011 v0.22
added : ready to start winnt_config.txt to /bin/
added : Window.AppTitle:Void(title:String)
added : AppTitle:Void(win:Window, title:String)
added : AppTitle(title:String) [Mojo Style]
added : Window.DrawRect:Void(x:Int, y:Int, width:Int, height:Int)
added : DrawRect(win:Window, x:Int, y:Int, width:Int, height:Int)
added : DrawRect(x:Int, y:Int, width:Int, height:Int) [Mojo Style]
added : SetGraphicsMode:Void(mode:Int)
added : PNG Icon for AOS3 executables
changed : Plot() now called DrawPoint()
changed : added -noixemul to compiler options
changed : removed the targets AmigaOS4.x, MorphOS and AROS-64Bit
changed : /bin/winnt_config.txt is prepared. there is no more need to alter them.
fixed : MouseDown() was active at start
fixed : ClsColor() has changed the current pen

---

Das Archiv für die Version 0.22 kann wie gehabt unter http://www.sedm.de/monkey/AmigaTarget.zip herunter geladen werden.

Im Archiv enthalten sind Executables für AmigaOS3.x, AROSi386 und AROS-PPC.

Der "Mojo Style" läuft nun super was überhaupt notwendig war um irgendwann bestehende Monkey Codes zu kompilieren. Desweiteren wurden ein paar Fehler ausgebügelt. Hinzugekommen ist "DrawRect" welches es gestattet ein Rechteck in der aktuell gesetzten Farbe in das Fenster zu malen. Dieses Fenster kann nun automatisch erstellt werden (Mojo Style) oder selbst definiert werden indem man SetGraphicsMode() aufruft. Es gilt zu beachten dass im Mojo Style kein Fenster als Parameter für Funktionen angegeben werden muss. Im Amiga Mode muss dies aber passieren damit Monkey weiß welches Fenster angesprochen wird. Eine genaue Dokumentation dafür wird noch erstellt.

Bild: http://www.sedm.de/monkey/AmigaTarget_DrawRect.jpg

Wie man sieht funktioniert der Timer noch nicht. Das Timer-Device ist aber auch ein Biest

[ Dieser Beitrag wurde von bruZard am 06.12.2011 um 22:27 Uhr geändert. ]