English Amiga Board

English Amiga Board (http://eab.abime.net/index.php)
-   request.Apps (http://eab.abime.net/forumdisplay.php?f=12)
-   -   Simple colour changing program. (http://eab.abime.net/showthread.php?t=98195)

Glen M 23 July 2019 21:43

Simple colour changing program.
 
I was wondering if anyone knew of a simple program that would change say the colour of the screen instantly when pressing a button.

I want to time for input lag on an rgb to hdmi scaler I have.

I remember the 8 bit guy doing something similar on a c64 (I think he was testing the c64 mini against original) and wrote a small program to change colour.

Is there anything out there like this.

Dan 23 July 2019 22:10

It could be easily written, in amos pro.

How should the app behave ?
Change color on keyboard or on joystick, or on both ?

Should the color stay while the button is pressed ? Shall it change back at some time or by pressing specific key ?

On which amiga resolution should it run ?

Glen M 24 July 2019 10:24

It would be cool if the app could change screen colour on press of a joystick button.

Just a full screen of colour on low res and when you press a button screen changes colour. If it makes it easier just change between 2 solid colours say red and blue.

So program loads full screen of red, press joystick button once and screen changes to blue, press again changes to red. Or a random colour generation would also work.

This will allow me to capture the screen footage at 50fps and see just how much input lag is generated by my HDMI scaler compared to say native composite out of the Amiga.

Dan 24 July 2019 16:29

1 Attachment(s)
Here it is, it is compiled as a cli-executable.

And this is the sourcecode for it:

Code:

Screen Open 0,320,240,16,Lowres
Flash Off : Curs Off
Pen 0 : Paper 1
Palette $F00,$F
X=0 : Y=0

Cls

Repeat
Z=Fire(1)

  If Z=-1 and Y=0 : Rem test if Joystick button is pressed and make sure it is pressed only once
      If X=0
        Rem Cls 1
        Palette $F,$F00
      Else If X=1
        Rem Cls 2
        Palette $F00,$F
      End If
      Y=1 : X=(X+1) mod 2
  End If

  If Z=0 : Rem Fire-Button is released, Allow the usage of the fire button
      Y=0
  End If
Until Inkey$=" " : Rem Space key ends the program


Glen M 19 August 2019 16:33

Quote:

Originally Posted by Dan (Post 1334410)
Here it is, it is compiled as a cli-executable.

Just wanted to say a quick thank you to Dan for providing this. I was able to use it to test my cheap RGB to HDMI converter for lag and its producing approximately 2-3 frames of input lag which at 50FPS is nothing I can register anyway.


All times are GMT +2. The time now is 22:58.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2020, vBulletin Solutions Inc.

Page generated in 0.04280 seconds with 11 queries