News Games Software Hardware Books Demos Graphics Source code Ref. cards PC tools Links My projects Atari family Collection Guestbook Contact
Random game
Random game
Random software
Back button image

Atari 8-bit Source code
  • Entry name:
     Vibrating Rectangles 
  • Category:
    Graphics
  • Publisher/Developer:
    Rosetta Code
  • Year:
    2021
  • Code:
    amarok
  • Programming language:
    Action!
source: Vibrating Rectangles Vibrating Rectangles Vibrating Rectangles Vibrating Rectangles Vibrating Rectangles Vibrating Rectangles Vibrating Rectangles
Listing 1 
PROC DrawRectangles()
  BYTE i,x1,y1,x2,y2
  
  x1=40 y1=8 x2=119 y2=87
  FOR i=1 TO 20
  DO
    Plot(x1,y1)
    DrawTo(x2,y1)
    DrawTo(x2,y2)
    DrawTo(x1,y2)
    DrawTo(x1,y1)
    x1==+2 y1==+2
    x2==-2 y2==-2
  OD
RETURN

PROC Main()
  BYTE CH=$02FC
  BYTE hue,lum

  Graphics(7+16)
  Color=1
  DO
    IF Color=1 THEN
      Color=2
    ELSE
      Color=1
    FI
    hue=Rand(16)
    lum=Rand(8)*2
    SetColor(Color-1,hue,lum)
    DrawRectangles()
  UNTIL CH#$FF
  OD
  CH=$FF
RETURN
References
https://gitlab.com/amarok8bit/action-rosetta-code/-/blob/master/source/Vibrating_rectangles.act
https://www.rosettacode.org/wiki/Rosetta_Code
https://atariage.com/forums/topic/326941-action-on-rosetta-code/
https://gitlab.com/amarok8bit/action-rosetta-code/-/tree/master
Listing downloads

Copyright holder
This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page, please contact me immediatelly so I can remove it!