now i need a picture

[C.Born]

Code: Select all

  10 RANDOMIZE : BORDER 1: CLEAR 49151: PRINT "Hallo"'"Use 7 & 0"''''"and RUN linenumber 10   !!!"'"to set 'NEWPPC' sysvar": LET p=23672: POKE p,0: BEEP .003,PEEK p/3: POKE 23620,7+2*(PEEK p>70): CLS 
  15 LET r=32765: LET m=23388
  20 LET pa=INT (8*RND): FOR f=0 TO 23: LET c=2-(f>21): PRINT #c;AT f-22*(c<2),f; INK 9; PAPER pa;"HELLO": NEXT f
  30 POKE m,16+8+7: OUT r,16+8+7
  40 FOR f=23295 TO 16384 STEP -1: POKE f+32768,PEEK f: NEXT f
  50 POKE m,16: OUT r,16
  60 FOR f=0 TO 23: LET c=2-(f>21): PRINT #c;AT f-22*(c<2),f; INK 9; PAPER INT (f/3);"HELLO": NEXT f
  65 BORDER 7: GO TO 300: REM this GOTO sets NEWPPC
 300 LET i$=INKEY$: POKE 23620,1+2*(I$="o" OR I$="p")+6*(CODE i$=13): LET i=16+8*(i$="p"): POKE 23388,i: OUT 32765,i: POKE 23620,1: STOP 
9000 CLEAR : SAVE "cage042" LINE 10: REM this LINE sets NEWPPC

https://en.wikipedia.org/wiki/Thaumatrope

[R-Tape]

@C.Born do you mean you want two SCR images that you can use to toggle quickly? Like this (but better images)?

CAUTION RAPIDLY FLASHING IMAGE!

Spoiler

[C.Born]

Yes indeed
but basicly its BASIC and you have to FLIP it your self with 'o' and 'p'

Code: Select all

   1 RANDOMIZE : BORDER 1: CLEAR 49151: GO TO 10: REM this GOTO sets NEWPPC
   5 FOR i=PI/2 TO -PI/2 STEP -PI/8: PLOT xb,yb: DRAW  INK 4; lx,ly,i: NEXT i: RETURN 
  10 PRINT "Hallo"'"when READY Use 'o' & 'p'"''''"GOTO sets 'NEWPPC' sysvar": LET p=23672: POKE p,0: BEEP .003,PEEK p/3: POKE 23620,4+2*(PEEK p>70): CLS 
  20 LET r=32765: LET m=23388
  21 PRINT AT 21,18;"NEUROOSJE..."
  25 LET xb=120: PLOT xb,8: DRAW 0,104: LET yb=24: LET lx=32: LET ly=lx: GO SUB 5: LET lx=-lx: GO SUB 5
  30 LET yb=64: LET lx=16: LET ly=lx: GO SUB 5: LET lx=-lx: GO SUB 5
  40 POKE m,16+8+7: OUT r,16+8+7
  50 FOR f=23295 TO 16384 STEP -1: POKE f+32768,PEEK f: NEXT f
  60 POKE m,16: OUT r,16
  65 CLS 
  70 CIRCLE 120,128,24: FOR i=1 TO 10: CIRCLE  INK RND*6;120,128, i*2.4: NEXT i
  80 GO TO 90: REM this GOTO sets NEWPPC
  90 LET i$=INKEY$: POKE 23620,1+2*(I$="o" OR I$="p")+6*(CODE i$=13): LET i=16+8*(i$="p"): POKE 23388,i: OUT 32765,i: POKE 23620,1: STOP 
 100 CLEAR : SAVE "newroosje1" LINE 10: REM this LINE sets NEWPPC
1000 POKE @5,255: POKE @10,0: POKE @11,0: LPRINT : LPRINT : LLIST 

finaly an excuse to use all those OUTLET bitimages !!!

[moroz1999]

Will any of these do the job?
https://zxart.ee/eng/graphics/database/ ... pe:zxitem/

Just download original files for them which are exactly two 6912 screens merged together.

[Dr beep]

But what if you quickly swap 16 pictures?
Then you get an animation

https://spectrumcomputing.co.uk/entry/1 ... rum/Engine

[C.Born]

Will any of these do the job?
https://zxart.ee/eng/graphics/database/ ... pe:zxitem/

Just download original files for them which are exactly two 6912 screens merged together.

most are to good for the flip-screen
but some are nice to try.
perhaps




and the others? maybe the gigaviewer??

[C.Born]

as you probably guest already, this is the "inspiration"
thats why its a MANUAL flip!!

[C.Born]

just an simple update, i included the FASTscreen trick and a litle extra nerve

Code: Select all

  10 RUN 20: DEF FN p(p)=PEEK p+ 256*PEEK (p+1): DEF FN r()=FN p(23621)
  20 RANDOMIZE : BORDER 1: CLEAR 49151: PRINT "Hallo"'"when READY Use 'o' & 'p'"''''"GOTO sets 'NEWPPC' sysvar": LET p=23672: POKE p,0: BEEP .003,PEEK p/3: POKE 23620,7+2*(PEEK p>70): CLS 
  30 LET ud=PEEK 23637+256*PEEK 23638-14: REM don't edit in 128k xxxxA$)xxxx
  40 LET c$=CHR$ 12+"      ": LET b$=CHR$ 22: LET z$=b$+CHR$ 3+c$+b$+CHR$ 4+c$+b$+CHR$ 5+c$+b$+CHR$ 6+c$+b$+CHR$ 7+c$+b$+CHR$ 8+c$
  50 LET da=23563: LET s=23670: LET s0=16384: LET s1=49152: LET dl=6912: LET m=23388: LET r=32765: LET d=0: DIM k$(dl): DIM l$(dl): LET n$=CHR$ 22+CHR$ 21+CHR$ 21+"NEUROSES..."
  60 PRINT n$
  70 LET xb=120: PLOT xb,8: DRAW 0,104: LET yb=24: LET lx=32: LET ly=lx: GO SUB 170: LET lx=-lx: GO SUB 170
  80 LET yb=64: LET lx=16: LET ly=lx: GO SUB 170: LET lx=-lx: GO SUB 170
  90 POKE m,31: OUT r,31
 100 LET sc=s0: GO SUB 180: LET d=1: GO SUB 210
 110 LET sc=s1: GO SUB 180: GO SUB 210
 120 POKE m,16: OUT r,16
 130 BORDER 5: CLS : PRINT  BRIGHT 1;n$
 140 CIRCLE 119,127,23: FOR i=1 TO 10: CIRCLE  INK RND*6;119,127,i*(1.7+RND): NEXT i
 150 BORDER 7: GO TO 160: REM this GOTO sets NEWPPC
 160 LET i$=INKEY$: POKE 23620,1+2*(I$="o" OR I$="p")+7*(CODE i$=13): PRINT  OVER 1; PAPER RND*7; INK 8;z$: LET i=16+8*(i$="p"): POKE 23388,i: OUT 32765,i: POKE 23620,1: RUN 
 170 FOR i=PI/2 TO -PI/2 STEP -PI/8: PLOT  INK 4; xb,yb: DRAW  INK 4; lx,ly,i: NEXT i: RETURN 
 180 POKE UD,65: POKE UD+1,36: POKE UD+2,14: POKE UD+3,0: POKE ud+8,41
 190 RANDOMIZE DL: POKE UD+6,PEEK S: POKE UD+7,PEEK (S+1)
 200 RANDOMIZE SC: POKE UD+4,PEEK S: POKE UD+5,PEEK (S+1): RETURN 
 210 RANDOMIZE UD: POKE da,PEEK S: POKE da+1,PEEK (S+1): IF d THEN  LET k$=a$
 220 IF NOT d THEN  LET a$=k$
 230 LET d=0: POKE da,d: POKE da+1,d: RETURN 
 240 CLEAR : SAVE "neuRoses" LINE 10