Jump to content


  • Content Count

  • Joined

  • Last visited

Community Reputation

18 Good

About ac.tomo

  • Rank
  • Birthday 06/29/1970

Contact / Social Media

Profile Information

  • Gender
  • Location
  • Interests
    internet surfing, computers in general, programming, many others non computer related.

Recent Profile Visitors

7,770 profile views
  1. I'm sorry for bringing up a 2nd topic on the same post, its just that I thought if I put this into the 1st post it wouldnt get noticed. What it is is I have a problem: I've attached 2 programs, 1 shows 9 different colours on Graphics 15 and the 2nd draws a pie-chart, the problem I got is that I would like to create the pie chart with up to the 9 possible colours (depending on the amount of segments in the piechart), but to do this the colours have to be drawn in a specific way and guess what? It's too complicated for me to do, aka its above me. The piechart program segments are derived from the numbers in the DATA as percentages; 25 is 25% of the entire circle, 50 is 50% etc. and the colour program achieves its colours by altering the colours vertically. I would be most appreciative if someone could do this program for me and then I can reverse engineer it in order to try to understand it. As I say, there's no point trying to explain how to do it because its too complicated for me. Thanks. Again, if someone can do this I would be most appreciative. NB* If I use the program for anything credit will be acknowledged ofcourse. colours.lst pchart.lst
  2. It's ok, I just changed (RX)/8 to (RX/8) and it sorts that problem quite well. Cheers ivop.
  3. This was really winding me up trying to do this, I tried absolutely everything, as a last resort I done what you said ivop, I took a previous B and executed: Z2=INT(Q*((B+PREVB)/2)) That finally done the trick, so for your curiosity: add B2=B on line 164 and add the above equation after Z= on line 160 (B2 is PREVB). As it goes, it looks better with the letters adjacent the lines rather than in-between, anyhow, thanks for your help ivop.
  4. Thanks for that, but I was trying to put the letters in-between the segments rather than on the lines, but if I can't or no-one else can do this I will be doing it the way you have. I would prefer it with, as I said, the letters in-between.
  5. Oh ofcourse, I didn't realise that, I think I was thrown because the letter 'A' was still put on screen after 45 degrees which was throwing me, it made me think that RY was correct but RX wrong. Anyway, thanks for that. The problem I got now is getting all the other letters in the correct place, can you work out how to that? coz I'm having difficulty doing it.
  6. Thankyou for that, that certainly does the trick, but I still dont understand it, since: If I ? INT(RX/8) when RX = 228.199836 the result is exactly 28, but: ? INT(RX)/8 = 28.5 and when POKEing on line 520 there shouldn't be any difference. 28 or 28.5 you would think the round number would work and the other not, but whether the result be 28 or 28.5, they both should work? I don't understand.
  7. Can someone please help me to sort out this problem. I'm trying to draw a pye-chart and putting a letter ('A' onwards) representing each % segment. I haven't finished it because I'm getting a problem that I just can't solve. The pye-chart segments are depicted by the values in the DATA; 25 is 25% of 360 degrees, 50 is 50% etc. but when I move 12.5% (just as an effort to iron out the problem) the program is supposed to put the letter 'A' on the edge of the circle on the right in between 0 degrees and 90 degrees, but its appearing further over on the left side (which is weird and I just don't understand). Please, any help would be most appreciated. 100 GRAPHICS 8+16:POKE 710,0:COLOR 1 102 SM=PEEK(88)+256*PEEK(89) 104 DEG 108 X=160:Y=96:S=80 110 V=0:Q=360/100:CH=33 114 FOR D=0 TO 359 120 RX=(COS(D)*(S+20))+X 130 RY=(SIN(D)*S)+Y 140 PLOT RX,RY 150 IF V=0 THEN READ B:V=1 160 Z=INT(Q*B):Z2=INT(Q*12.5) 164 IF D=Z THEN DRAWTO X,Y:PLOT RX,RY:V=0:GOTO 190 170 IF D=Z2 THEN GOSUB 500 190 NEXT D 200 DATA 0,25,50,52,81,90,100 300 GOTO 300 500 FOR I=0 TO 7 520 POKE SM+INT(RX/8)+RY*40+I*40,PEEK(224*256+CH*8+I) 560 NEXT I 564 CH=CH+1 570 RETURN
  8. Thats a great demo, wish I understood algorythms. But, yes, thats exactly what I mean. Most of the transition effects there are relatively easy, but the one I don't understand how to do is the circular wipe where the line rotates bringing in the 1 picture from the other, exactly how would this be achieved?
  9. not sure what screen-wipes are, but transition effects sounds about right, yh, i remember 1 used to fan across the screen like a chinese fan opening and closing but I'm not sure how they were accomplished, any help?
  10. Many years ago I remember seeing something that I've always wanted to do but not sure how. Can anyone remember those polish or german demos that 'when putting a picture on the screen', it was displayed in some fashion such-like 'a fan' or other way of drawing up the picture different to the standard methods, or filling (in a circular fashion) from the centre of the screen to the edges. I recall several different methods other than the basic/easy methods. Anyone know?
  11. It's ok in this instance, I've made sure that everything is the same, as I said the only thing you need to know is that CC$ must be the very 1st variable setup in the final program. The program doesn't matter what line numbers are used as there are no line-number addresses. I do note that Les Howarth has taken 8 pages off RAMTOP as there used to be a bug to do with clearing memory below RAMTOP, but even though that doesn't happen on the XL/XE I've left it in.
  12. The string method: 10 DIM CC$(1024) 12 MTOP=PEEK(106)-4 14 POKE 106,MTOP-4 16 GRAPHICS 0 18 D=PEEK(140)+256*PEEK(141) 20 R=PEEK(134)*256+PEEK(135) 22 Q=MTOP*256-D 24 R1=INT(Q/256) 26 T=Q-R1*256 28 POKE R+2,T:POKE R+3,R1 This is a routine from P6/NAU iss.#29 by Les Howarth, I haven't altered or touched it in any way except for the line-numbers. It changes the address of CC$ to start at a 1k boundary, only thing you need to know is that CC$ needs to be the very first variable in your program.
  13. DM - Display Memory. Yes, as I said, I do understand whats going on, because if you only protect 4 pages, then 4 pages off ramtop makes ramtop then = 156 where 160 pages * 256 = the 4k boundary. The reason Im asking is has it always been like this, as I said I dont recall having this problem in the past. Obviously, protecting anything less than 16 pages will result in no 4k or 8k mode DM being calculated correctly.
  14. I recently performed this: 10 FNT=PEEK(106)-4 20 POKE 106,FNT 30 GRAPHICS 8 This won't actually work, I know why, it's just that I'm bringing it up because I don't recall having to do the solution to this in the past, the solution is: 10 FNT=PEEK(106)-16 20 POKE 106,FNT 30 GRAPHICS 8 If you protect less than 16 pages then the computer won't calculate the DM for GR.8 correctly, has it always been like this or is it me. I've been programming since 1983 but can't recall ever having to do this.
  • Create New...