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