-
Graph Plothi! please, help with code: [PHP]For x=-100 To 100 For y=-100 To 100 If (x/2-25)*(x/2-25)+(y-50)*(y-50)<200 Or (x/2+25)*(x/2+25)+(y-50)*(y-50)<200 th…
hi! please, help with code:
[PHP]For x=-100 To 100
For y=-100 To 100
If (x/2-25)*(x/2-25)+(y-50)*(y-50) -
Games only possible in 128K mode?In the thread: [url]http://www.worldofspectrum.org/forums/showthread.php?t=30145[/url] the discussion of 128K only games comes up, and it made me w…
... the x or y coordinate as you're about to plot it, mask ... -
The Non Randomness of Sam BasicHows about this for weird. Hardly ever bothered with such simple stuff before but this is what I just did on the Sam ( as in a real one now I've got …
... Quazar ):
10 LET x=RND* 255
20 LET ... /> 40 PEN p
50 PLOT x,y
60 GO TO ... -
Vector font in BASiCHi guys) Some fifteen years ago I saw a quite short BASIC prog that could simulate a vector font with size/ thickness/ italicization params. I remem…
... ": LET y=54: LET x=80: LET o=1: ... : LET Y=1: LET X=106: LET a$="LABELLING DIAGRAMS ... 2: CLS
210 PLOT 20,165: DRAW 0,-145 ... ": LET y=4: LET x=24: LET o=1: ... "FIRST, THE VALUES FOR THE 'x' "
600 PRINT ""
... IF o>2 THEN PLOT x+(j>2)+w* ... -
Rom Routines list ?Exist some document that show detailled the routines on the spectrum ROM ? Ad for the Spectrum +3 ? are they the same or exist more ? Example i was …
... the Rom routine called [B]PLOT-SUB[/B]
and its ... that in the basic [B]plot x,y[/B]. But what is ... -
Text Adventure Vector graphicsI've often wondered what the memory cost of graphics in a text adventure was. If you were to hazard a guess, how many bytes would it be possible to …
... /> [*]ink (col)
[*]plot (x,y)
[*]lineto (x,y)
[*]curveline (x1 ... , y3)
[*]fillSolid (x,y,col)
[*]fillPattern (x,y,col1,col2 ... -
Problem with a small basic routineDear all; I have been messing about with a routine (originally published in Your Computer 1982, by Tim Langdell). The idea of the program is to simul…
... BORDER 1
20 FOR X=-100 TO 100
30 ... =R*INT(SQR((10*4) ? X*X)/R)
50 FOR Y ... =INT (80+30*SIN((SQR(X*X+Y*Y))/12)-7*Y ... -
Compliator ErrorRecenlty i downloaded a basic compliator : [URL="http://www.boriel.com/wiki/en/index.php/ZXBasic"]ZXBasic (http://www.boriel.com/wiki/en/index.php/ZX…
... b = 0
10 LET x=1: LET y=1
PLOT x,y: NEXT y: NEXT ... -
RND cyclical behaviourGood evening. I'm playing with RND function to show its cyclical behaviour, i.e. after 65536 calls to it, the next one will return the same value of …
... (r/256)
21 LET x=r-256*y
40 ... PRINT n: STOP
50 PLOT x,y
60 NEXT i ... -
Help With AY Music Program in BASICHi, last year I started writing a BASIC program for making and recording AY Music. I thought it would be easier than learning how to use Soundtracker…
... 152 STEP 4
480 PLOT x,140
490 DRAW ... STEP 2
710 PLOT x,140
720 DRAW ... draw musical keyboard ***
860 PLOT 4,1
870 DRAW ... blank spaces.
1299 PLOT 184,104: DRAW INVERSE 1 ... STEP 2
1315 PLOT x,2
1320 DRAW ... -
A game from an other machine.if someone interesting, this is a game I created in 1989. this is the basic source, maybe somebody can convert to specy. An image: http://www.ep128.…
... IF X$(X,Y)="Š" THEN LET K1=X:LET K2=Y:LET X$(X,Y ... IF X$(X,Y)="Ź" THEN LET MA=X:LET M=Y:LET X$(X,Y ... IF X$(X,Y)="‰" THEN LET GA=X:LET G=Y:LET X$(X,Y ... IF X$(X,Y)="Ś" THEN LET NY=X:LET N=Y:LET X$(X,Y ... )=" "
750 IF … -
pixel exact printingis there a way of doing this in basic? or by copying / modifying the rom code or using a completely new routine? so that print at x,x works more like…
... ? so that print at x,x works more like plot x,x? any help would ... ://spectrumcomputing.co.uk/entry/8 ... Plot-Print
unfortunately it ... -
ArtistryIn my younger days (and to a certain extent, now) I was always intrigued about how the loading screens were constructed. Back then I'd assumed it was…
... EVERYTHING FROM POINT X,Y
20 INPUT "ENTER X";X:INPUT "ENTER ... )=1 THEN RETURN
1010 PLOT X,Y
1020 IF X0 ... THEN LET X=X-1:GO SUB 1000:LET X=X+1
colouring inexample: 10 CIRCLE 45,30,15 wot do i type after it to colour it in red?
... PLOT x,y
1010 IF NOT POINT (x+1,y) THEN LET x=x ... +1: GO SUB 1000: LET x=x ... -1
1020 IF NOT POINT (x-1,y) THEN LET x=x ... -1: GO SUB 1000: LET x=x ... +1
1030 IF NOT POINT (x,y ... 1040 IF NOT POINT (x,y-1) THEN ...colouring inexample: 10 CIRCLE 45,30,15 wot do i type after it to colour it in red?
... PLOT x,y
1010 IF NOT POINT (x+1,y) THEN LET x=x ... +1: GO SUB 1000: LET x=x ... -1
1020 IF NOT POINT (x-1,y) THEN LET x=x ... -1: GO SUB 1000: LET x=x ... +1
1030 IF NOT POINT (x,y ... 1040 IF NOT POINT (x,y-1) THEN ...colouring inexample: 10 CIRCLE 45,30,15 wot do i type after it to colour it in red?
... ' :)
1 REM input: X=x-coord of center
2 ... *COS(ASN(B))
20 PLOT X-H,Y
30 DRAW ...Any Errors?Any errors you feel Sinclair Research or even Amstrad made with the speccy??
Being able to plot at a pixel position = PLOT x,y;"Hello" would`ve ...Any Errors?Any errors you feel Sinclair Research or even Amstrad made with the speccy??
[quote]
On 2004-03-10 00:45, MatGubbins wrote:
Being able to plot at a pixel position = PLOT x,y;"Hello" would`ve been very helpful indeed.[/quote]
That's not plotting though - that's printing.Any Errors?Any errors you feel Sinclair Research or even Amstrad made with the speccy??
... /> Being able to plot at a pixel position = PLOT x,y;"Hello" would ...Pixel LimitIF Y3<192 THEN : LET x2=INT (128+X*A*SIN A): LET y2=INT (Y3): DRAW INK
... is no previous point. Adding PLOT x,y before each call will ... are drawn starting from point x,y.A silly BASIC programming challenge for you all..This is a very, very sily idea. So only read if you are bored. I use E-bay a lot. (my user id is thx1138ebn) edit: it's now retro-technology :edit…
1 let x=5:Let y=5
2 let y=y+1:If INKEY$="a" then let y=y-2
3 PLOT x,y:Let x=x+1:GoTo 2
80 chars or thereabout (without line number :( )... Don`t know what is is mind, heheBASIC question (in both ways)hi, im fairly new to spectrum stuff.. I bought one a couple of days ago.. im trying to write a basic program that opens a window (drawn with DRAW com…
... high resolution grid (used by PLOT and DRAW) and the ... have is that you can PLOT to 100,100 - but ... LET Y=100
20 PLOT X,Y: DRAW 50,0: DRAW ... takes the format Y,X instead of X,Y. The Lowres ... limit the granularity of your PLOT/DRAW coordinates to multiples of ...Mouse ControlCan someone tell me how to control either the Kempston or AMX mouse in Basic please
... emulators.
10 LET x = IN 64479
20 LET ... IF IN 64223 = 255 THEN PLOT x,y AND yManic Miner Basic Source?Is there any sinclair basic source for Manic Miner going around on the net? also does anyone have any good guides which can get one started on making…
... you move a single pixel(PLOT x,y) around the screen using ...You've got the Programming skills, I've got the Ideas lets make lots of moneyYou know those tank games, one tank on either side of a hill where you choose angle of fire and strength, well can someone tell the the BASIC instruc…
... />
You're looking to plot the trajectory of an object ... TO 18
60 LET x=v*COS (a)*t
80 PLOT x,y
90 NEXT t ... 's a bug (negative coordinates plot mirrored in Y on the ...Font centering problemA while back today, I started coding a simple Othello/Reversi game in BASIC, with the precious aid of BASin (great tool, hope it eventually becomes b…
... ,0;num
20 FOR x=1 TO 6
30 ... ***
40 IF POINT (x,y) THEN PLOT x+pos1,y+pos2: GO ... ,y+pos2) THEN OVER 1: PLOT x+pos1,y+pos2: OVER 0 ...
50 NEXT y: NEXT x
[/code]
it ...Cool BASIC tricks and tips!Following on from Dunny's excellent suggestion of a compendium of BASIC tips + tricks, I believe it would be better to have a topic dedicated to it. …
... />
[code]
10 LET x = IN 64479
20 LET ... IF IN 64223 = 255 THEN PLOT x,y AND yIssue 3 feedbackSome have noticed that Issue 3 is available. It wasn't announced at the time due to it being 5am.. You can leave feedback here....
... the line Q0-Q1 */
x = t * q0x + (1-t) * q1x ... + (1-t) * q1y
plot (x,y)
next t
Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... LET COUNT=32: DIM X(COUNT): FOR Z=1 ... TO COUNT: LET X(Z)=INT (RND*255): ... TO COUNT: OVER 0: PLOT X(Y),64+(Y*2): ... :
OVER 1: PLOT X(Y),64+(Y*2):
X(Y)=(6+X(Y)): LET R=INT ((X(Y)/256)):
LET X ... (Y)=x(Y)-(256*R): PLOT X(Y ...
