Post by tsh73 on Nov 21, 2020 15:36:51 GMT -5
strange things happen putting int() into decHex$() into right$()
(hey! My original line was
)
Exactly, it dies
Dies in LB 4.5.1, JB 2, LB 4.04
Run it as it is. Should work.
Then set complex to 1
You see it's just
put inside decHex$()
and for me it dies after string or two.
(on 4.04 - at once)
Removing right$ makes it work.
log
(hey! My original line was
right$("0";decHex$(int((first+(1-first)*rnd(0))*255)),2)+" ")
Exactly, it dies
Dies in LB 4.5.1, JB 2, LB 4.04
Run it as it is. Should work.
Then set complex to 1
You see it's just
int(rnd(0)*255) put inside decHex$()
and for me it dies after string or two.
(on 4.04 - at once)
Removing right$ makes it work.
complex = 0
s=24
cy=200
y0=2*cy
y=y0
while y>0
msg$ = ""
for i = 1 to 15
'dies here. I guess too complex expression...
if complex then
h$=right$("0";decHex$(int(rnd(0)*255)),2)
msg$ = msg$ +h$+" "
else
h = int(rnd(0)*255)
h$=right$("0";decHex$(h),2)
msg$ = msg$ +h$+" "
end if
next
print msg$
y=y-s
wend
log
Error log timestamp Saturday 21.11.20 23:25:55
Runtime error: index: 3 is outside of collection bounds
Error(Exception)>>defaultAction
Error(Exception)>>activateHandler: <anUndefinedObject>
Error(Exception)>>handle
Error(Exception)>>signal
Error class(Exception class)>>signal: <'index: 3 is outside ...'>
BasicProgram(Object)>>error: <'index: 3 is outside ...'>
BasicProgram>>terminateRun: <anError>
[] in BasicProgram>>errorHandlerBlock
ExceptionHandler>>evaluateResponseBlock: <aBlockClosure> for: <anError>
[] in ExceptionHandler>>handle:
ProtectedFrameMarker(BlockClosure)>>setUnwind: <aBlockClosure>
BlockClosure>>invisibleEnsure: <aBlockClosure>
ExceptionHandler>>handle: <anError>
ExceptionHandler>>findHandler: <anError>
Error(Exception)>>activateHandler: <anExceptionHandler>
Error(Exception)>>handle
Error(Exception)>>signal
Error class(Exception class)>>signal: <'index: 3 is outside ...'>
String(Object)>>error: <'index: 3 is outside ...'>
String(IndexedCollection)>>errorInBounds: <3>
String(IndexedCollection)>>checkIndex: <3>
String>>at: <3>
String>>replaceFrom: <1> to: <2> with: <'02'> startingAt: <2>
String(IndexedCollection)>>copyFrom: <2> to: <3>
[] in BasicRight class>>using:program:
BasicVariableAssigner>>value
[] in BasicProgram>>begin
ExceptionHandler>>evaluateProtectedBlock: <aBlockClosure>
[] in ExceptionHandler>>activateDuring:
ProtectedFrameMarker(BlockClosure)>>setUnwind: <aBlockClosure>
BlockClosure>>invisibleEnsure: <aBlockClosure>
ExceptionHandler>>activateDuring: <aBlockClosure>
ExceptionHandler class>>handle: <anError class> with: <aBlockClosure> during: <aBlockClosure>
BlockClosure>>on: <anError class> do: <aBlockClosure>
BasicProgram>>begin
BasicProgram>>run
[] in BasicSourcePane>>run
BasicCompiler class>>compileFromString: <'complex = 1
s=24
c...'> notify: <aBasicSourcePane> ifSuccess: <aBlockClosure>
BasicSourcePane>>run
BasicSourceWindow>>run
BasicEditorModel>>run: <aToolbarButton>
BasicEditorModel(Object)>>perform: <#run:> with: <aToolbarButton>
ToolbarButton>>triggerClickedEvent
Message>>perform
NotificationManager>>runPendingEvents
NotificationManager>>runEventLoop
Message>>perform
Message>>evaluate
Process>>safelyEvaluate: <aMessage>
Process>>evaluate: <aMessage>
