[futurebasic] PRINT %(x,y) problesm after CIRCLE command

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : April 1999 : Group Archive : Group : All Groups

From: "Masakazu Nakao" <PGA02150@...>
Date: Fri, 23 Apr 1999 14:58:31 +0900
I have a problems to get a right position to print on display
after CIRCLE command.

Below is a sample source code to demonstrate that
PRINT %(x,y)  does not print at x,y position.

Any suggestion is appreciated

Masa
Hiroshima, Japan
masa.nakao@...


'***** source to demonstrate funny position in PRINT % *******
CLEAR LOCAL MODE
LOCAL FN ConvertXgraph2% (x!,tmax!,tmin!,L,R)     ' unit is minutes
  xGraph!=L+  (x!-tmin!) / (tmax!-tmin!) * (R-L)
END FN =xGraph!

WINDOW #1, "test"
T=100
y01!=200
TEXT _Courier ,9

T = 40 : L = 210 : B = 161 : R = 310
maxX!=15
minX!=-5

'debug use

FOR i=0 TO 1
  y01! =T-20 +i * USR FONTHEIGHT
  count =9
  FOR ddataX=0 TO count -1
    x01%=FN ConvertXgraph2% (ddataX,maxX!,minX!,L,R)
    PLOT x01%, y01!
  NEXT ddataX

  IF i=0 THEN temp$="orig1" ELSE temp$="orgig2"
  y1%=y01!                                        '+(USR FONTHEIGHT) /4
  PRINT %(x01%, y1%) temp$;
  PRINT " at";x01%; y1%;temp$;
  COLOR _Zgreen
  PRINT %(100, y1% + 100) temp$;
  PRINT %(200, y1% + 100) temp$;
  PRINT %(300, y1% + 100) temp$;
  PRINT %(400, y1% + 100) temp$;
  COLOR _zblack

NEXT i


FOR i=0 TO 3
  y01! =T+20 +i * USR FONTHEIGHT
  COLOR _Zblack
  count =9
  FOR ddataX=0 TO count -1
    x01%=FN ConvertXgraph2% (ddataX,maxX!,minX!,L,R)
    PLOT x01%, y01!
  NEXT ddataX
  TRON BREAK
  SELECT i
    CASE 0 :temp$="test0"
    CASE 1 :temp$="test1"
    CASE 2 :temp$="test2"
    CASE ELSE :temp$="test3"
  END SELECT

  y1%=y01!
  PRINT %(x01%, y1%) temp$;
  PRINT " at";x01%; y1%;temp$;
  COLOR _Zred
  PRINT %(100, y1% + 100) temp$;
  PRINT %(200, y1% + 100) temp$;
  PRINT %(300, y1% + 100) temp$;
  PRINT %(400, y1% + 100) temp$;
  COLOR _zblack

  SELECT i
    CASE 0 :COLOR _zMagenta
    CASE 1 :COLOR _zCyan
    CASE 2 :COLOR _Zgreen
    CASE ELSE :COLOR _ZBlue
  END SELECT

  count =5                                        'up to 1 min
  radius =1
  FOR ddataX=0 TO count -1
    x01%=FN ConvertXgraph2% (ddataX,maxX!,minX!,L,R)
    CIRCLE FILL x01%, y01!, radius
  NEXT ddataX

NEXT i

DO
UNTIL  LEN(INKEY$) OR FN BUTTON

END