Author Topic: a CPC screensaver found on fb  (Read 1419 times)

0 Members and 1 Guest are viewing this topic.

Offline freemac

  • 464 Plus
  • *****
  • Posts: 374
  • Country: 00
  • Liked: 268
  • Likes Given: 272
a CPC screensaver found on fb
« on: 00:45, 25 May 18 »

A cool cos/sin lines draw.

Hacked a few, adding "randomize time" and also a quite good comparaison between current line draw and first one... so no delay is added between "animations".


Offline ComSoft6128

  • ..................................
  • Supporter
  • 6128 Plus
  • *
  • Posts: 2.133
  • Country: scotland
  • CPC THEN CPC NOW
    • index.php?action=treasury
  • Liked: 2307
  • Likes Given: 4552
Re: a CPC screensaver found on fb
« Reply #1 on: 16:42, 25 May 18 »
Looks like we were using the same or similar Basic program - 25 years apart :D

Offline EgoTrip

  • 6128 Plus
  • ******
  • Posts: 1.058
  • Country: gl
    • http://egochip.blogspot.co.uk/
  • Liked: 704
  • Likes Given: 304
Re: a CPC screensaver found on fb
« Reply #2 on: 17:44, 25 May 18 »
Wasn't there similar listings in the manual?
EgoTrip's Stuff
EgoTrip's Stuff

Online Gryzor

  • Administrator
  • 6128 Plus
  • *****
  • Posts: 16.815
  • Country: gr
  • CPC-Wiki maintainer
    • CPCWiki
  • Liked: 3975
  • Likes Given: 7120
Re: a CPC screensaver found on fb
« Reply #3 on: 14:37, 31 August 18 »
I think the manual was responsible for a small, but persisting scene for such 'demos' :D

Offline George Schizas

  • CPC464
  • **
  • Posts: 9
  • Liked: 7
  • Likes Given: 2
Re: a CPC screensaver found on fb
« Reply #4 on: 10:51, 01 October 18 »
The listing, for anybody that wants to try it:


Code: [Select]
10 REM graphics by Salim Benadel
15 RANDOMIZE TIME
20 DEFINT b,c,x:DEFREAL d,e,f
30 MODE 2
40 b=RND*5+1:c=RND*5+1
50 ORIGIN 320,200
55 d=100*COS(1):e=200*COS(1/b):f=200*SIN(1/c)
60 FOR a=2 TO 1000 STEP PI/30
70 x=100*COS(a):MOVE x,x
80 DRAW 200*COS(a/b),200*SIN(a/c)
90 IF INT(d/20)=INT(5/COS(a)) AND INT(e/20)=INT(10*COS(a/b)) AND INT(f/20)=INT(10*SIN(a/c)) THEN 110
100 NEXT a:GOTO 30
110 FOR z=a TO a+20 STEP PI/30
120 x=100*COS(a):MOVE x,x
130 DRAW 200*COS(z/b),200*SIN(z/c)
140 NEXT z:GOTO 30