Well, I'd rather fix the bug that's preventing it from loading, but here you go:
10 REM Twister demo effect
20 PAPER 0: MOUSE HIDE: CLS: GO SUB 120
30 DEGREES: LET sw=SCRw: LET sh=SCRh: LET ang=0: LET xoff=Sw/2-20: LET aa=1
40 LET amp=6+SIN(COS(aa)*17)*16: FOR y=0 TO Sh-1: GLOBAL ys=y*sw,ym=y MOD gw+1,yamp=(y/amp)+ang
50 GLOBAL x1=(SIN yamp*100)+xoff,x2=(SIN(yamp+90)*100)+xoff,x3=(SIN(yamp+180)*100)+xoff,x4=(SIN(yamp+270)*100)+xoff
60 GLOBAL xa=x2-x1,xb=x3-x2,xc=x4-x3,xd=x1-x4
70 IF xa>=1 THEN POKE$ 0,ys+x1,tex$(1,ym,xa)
80 IF xb>=1 THEN POKE$ 0,ys+x2,tex$(2,ym,xb)
90 IF xc>=1 THEN POKE$ 0,ys+x3,tex$(3,ym,xc)
100 IF xd>=1 THEN POKE$ 0,ys+x4,tex$(4,ym,xd)
110 NEXT y: INC aa,1,0 TO 359: LET ang=-180+SIN aa*180: WAIT SCREEN: CLS: GO TO 40
120 REM Prepare texture
130 SCREEN LOCK: PALETTE DEFAULT: INK 15: PRINT MOVE (SCRw-(FONTw*32))/2,(SCRh/2)-FONTh*2;"Please wait - preparing textures"
140 GRAPHIC NEW tex LOAD "twist_tex.bmp": LET gw=GFXw tex/4
150 IF FILEEXISTS "twister_dat" THEN LOAD "twister_dat" DATA: GO TO 210
160 DIM tex$(4,gw,gw): WINDOW GRAPHIC tex
170 LET pc=gw: FOR y=0 TO gw-1: LET y1=y+1: FOR x=1 TO gw: LET s=gw/x: GLOBAL t1$="",t2$="",t3$="",t4$="",sx=0
180 IF LEN t1$<x THEN GLOBAL t1$=t1$+CHR$(POINT(sx,y)),t2$=t2$+CHR$(POINT(sx+gw,y)),t3$=t3$+CHR$(POINT(sx+gw+gw,y)),t4$=t4$+CHR$(POINT(sx+gw+gw+gw,y)): INC sx,s: GO TO 180
190 LET tex$(1,y1,x)=t1$: LET tex$(2,y1,x)=t2$: LET tex$(3,y1,x)=t3$: LET tex$(4,y1,x)=t4$: NEXT x: WINDOW 0: PRINT MOVE SCRw/2,SCRh/2;100-INT(pc/gw*100);"% ": SCREEN UPDATE: WINDOW GRAPHIC tex: DEC pc: NEXT y
200 SAVE "twister_dat" DATA tex$()
210 PALETTE COPY tex,0,256 TO 0: WINDOW 0
220 RETURN
Edit: Was there anything you'd particularly like it to be able to do that you cannot right now?
While specbas doesn't work on w7 i don't know is it bad or good.
Would be great to select working directory - %users%\specbas or current. I mean "current" is directory where SpecBas executable.
While specbas doesn't work on w7 i don't know is it bad or good.
Would be great to select working directory - %users%\specbas or current. I mean "current" is directory where SpecBas executable.
SpecBAS was developed on Windows 7, so there's something wrong at your end I'm afraid - there's lots of people with Win7 that run SpecBAS.
There was a problem recently with an updated BASS sound library - try this executable:
You can't change the working directory, it's coded the way it is for very good reasons - reasons that make perfect sense in linux land, but for the average windows user might seem strange. You can't use the current SpecBAS folder because Windows will prevent you from doing that if you install into Program Files. The only way to guarantee that it can write and read from a folder is to use the users hierarchy.
just tried, and again - gray screen,silent specbas.
i suspect Comodo paranoidal mode, but i see no warnings and notifications.
Ok, email me (paul.dunn@gmail.com) and starting tomorrow I'll start sending you some log-enabled versions which will help me pin down why it's not starting.
Comments
What's the problem, exactly?
Twister is a package file, which contains some graphics and some code. If you outline the problem for me, I'll help you through it.
D.
SpecBAS doesn't respond after load"twister"
https://sites.google.com/site/pauldunn/twister.zip
Unpack both files into the same folder, and LOAD "twister"
If that fails, let me know and I'll put a new executable up which I know works.
D.
I have to delete folder specbas everytime SpecOS hanged:cry:
would be great to see "twister"'s source:D
thank you!
D.
btw, why SpecOS' development stopped?
We had a baby - he's one year old now, and takes all my time. I am working on SpecBAS, but it's very slow going, as I do little bits here and there.
Edit: Was there anything you'd particularly like it to be able to do that you cannot right now?
D.
While specbas doesn't work on w7 i don't know is it bad or good.
Would be great to select working directory - %users%\specbas or current. I mean "current" is directory where SpecBas executable.
SpecBAS was developed on Windows 7, so there's something wrong at your end I'm afraid - there's lots of people with Win7 that run SpecBAS.
There was a problem recently with an updated BASS sound library - try this executable:
https://sites.google.com/site/pauldunn/specbas_fixed.zip
And see if it's any better for you.
You can't change the working directory, it's coded the way it is for very good reasons - reasons that make perfect sense in linux land, but for the average windows user might seem strange. You can't use the current SpecBAS folder because Windows will prevent you from doing that if you install into Program Files. The only way to guarantee that it can write and read from a folder is to use the users hierarchy.
ie:
c:\users\zxdunny\specbas
is my working folder.
D.
i suspect Comodo paranoidal mode, but i see no warnings and notifications.
Ok, email me (paul.dunn@gmail.com) and starting tomorrow I'll start sending you some log-enabled versions which will help me pin down why it's not starting.
D.