home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Fred Fish Collection 1.5
/
ffcollection-1-5-1992-11.iso
/
ff_disks
/
200-299
/
ff239.lzh
/
JGoodies
/
Mandelbrot
/
fastline.jf
< prev
next >
Wrap
Text File
|
1989-08-21
|
638b
|
32 lines
\ Copyright 1989 NerveWare
\ No portion of this code may used for commercial purposes,
\ nor may any executable version of this code be disributed for
\ commercial purposes without the author's express written permission.
\ This code is shareware, all rights reserved.
\ Nick Didkovsky
anew task_line
: FAST.MOVE ( x y -- )
gr-currport @ -rot
callvoid graphics_lib Move
;
: FAST.DRAW ( x y color -- )
>r gr-currport @ dup r>
callvoid graphics_lib SetAPen
-rot
callvoid graphics_lib Draw
;
\ 1.20 seconds
: BENCH.LINES ( -- )
open.mandelscreen
200 0 do
0 i fast.move
320 i 1 fast.draw
loop
close.mandelscreen
;