Diagramme mit der MicroVis

[krotzebojer]

Hallo,

ich habe mal das Beispielprojekt "Diagramm" der MicroVis geladen. Funktioniert auch soweit, nur die Skalierung der x-Achse ist nicht so optimal.

Kann mir mal jemand helfen, wie ich das auf einen bestimmten Wertebereich anpassen kann?

Vielen Dank

Gruss

krotzebojer

[chrismave]

Irgendwo hier im code??
: __stoptimers
15 0 do I tstop drop loop stopeib ;

__stoptimers

forget __stoptimers
forget __eibtbl

128 1 4 array __eibtbl

: __eibfunction
__eibtbl @ ?dup 0= if exit then execute ;

# USE "['] your_function your_object __eibregister" in "oninit"
: __eibregister ( function objnr -- )
dup 0< if 2drop exit then
dup 127 > if 2drop exit then
__eibtbl ! ;

var __acttimer
: __newtimer 1 __acttimer +! ;

#Is the button pressed?

: __buttonpressed 0xFFFFF43C 0x4000 and 0= ;

# USE ": oninit oninit .....your code.... ;"
: oninit ['] __eibfunction dup oneibc oneibu starteib ;

__acttimer @ const __diagrammtimer
__newtimer

#Updaterate in Schritten a 10-ms

#define __diagramm_data_update_rate 100

#justiere eingangsdaten in den Bereich 0..255
#define __diagramm_adjust_range_to_uchar

#der Name für das Diagramm
#define __diagramm_name diagramm1

#das Datenobjekt für das Diagramm
#define eib.displaydata eib.data

__diagramm_name 4 + c@ const w
__diagramm_name 5 + c@ const h
__diagramm_name 6 + c@ const objnr
__diagramm_name 9 + c@ const x
__diagramm_name 10 + c@ h + const y
__diagramm_name 12 + @ 0xFFFF and const foreg
__diagramm_name 12 + @ -16 shift 0xFFFF and const backg

160 1 1 array values

var __diagramm_active

: __diagramminsert ( ypos -- )
x values c@
__diagramm_active @ if
x over backg pixel
swap x over foreg pixel
else swap
then
x values c!
x w + x 1+ do
I values c@ 2dup <> if ( val[x] val[ x+1] )
__diagramm_active @ if
I over backg pixel
swap I over foreg pixel
else swap
then
I values c!
else drop
then
loop
drop
;

: __diagrammadjust ( yval -- ypos )
__diagramm_adjust_range_to_uchar
dup 0< if drop 0 then
dup 255 > if drop 255 then
y swap h * 255 / -

;

: __diagramm_getval
__diagrammtimer tstart
eib.displaydata eibget
__diagrammadjust __diagramminsert ;

: display
?dup 0= if
__diagrammtimer tstop
x 1 - y 2 + 2dup h - 2 - 1 0 line
x 1 - y 2 + 2dup swap w + 1+ swap 1 0 line
x w + x do
I dup values c@ foreg pixel
loop
1 __diagramm_active !
__diagrammtimer tcont drop
exit
then
7 = if 0 __diagramm_active ! then
;

' display __diagramm_name !

: oninit
oninit
__diagrammtimer ['] __diagramm_getval __diagramm_data_update_rate tinit __diagrammtimer tstart
x w + x do 0 __diagrammadjust I values c! loop
;

: oninit mvis2_1_patch @ 0= if exit then
oninit
0 mvis2_1_patch !
;

: __initpatch
drop
oninit ;

' __initpatch mvis2_1_patch !

fsave
reset

sorry, aber ich konnte nicht anders, da ich auch keine Ahnung vom Forthcode habe!
Aber vielleicht kann ja jemand die Stellle markieren, der code ist aus der Arcus Vorlage!

PS: Morgen bekommst du Deine Zwillinge allerdings brauche ich noch das Geschlecht, wäre doch blöd oder? ;-)

Gruß
Christoph