🚀 go-pugleaf

REALLY in response to: rick@synapse.neuro.bcm.tmc.edu
				     (Rick Gray)
				     |
				     V
In article <217@gazette.bcm.tmc.edu> you write:
>There is a demo program called 'image.f' in the Masscomp Graphics
>Application Prgramming Manual (Rev. H) that uses the DACP hardware to
>digitize the signal from a video camera and display the image on the
>screen.

I was instructed to remove this program from the GAPM as of Rev K 
and from SP-4005 as of Rev 5.2.   The reasons were given to me were:

(1) one should be able to compile and run the example programs
    without requiring additional software packages (in this case SP-50)

(2) one should be able to run the example programs without additional
    hardware (the video camera, DACP, etc)
    
(3) The program was buggy and incomplete and not considered a good example.

I offered to address (3) by doing some work on the program but since
that would not address (1) and (2) above, I was outvoted.


>         The version in the manual is incomplete (or at least doesn't
>include all the connections on the CK10 clock and AD12FA), but I
>remember seeing (and trying out) a corrected/expanded version of this
>program a few years ago.

Sorry, I don't know anything about a corrected or expanded version.

>                          At that time I had no need to digitize
>images, but now I do and can't find the code.  I also can't remember
>whether the corrected code came from the users' group, release notes
>or from someone at Masscomp.  				^^^^^^^^^^^^^

The version last appearing in the SP-4005 *kit* follows the end of this mail.
There was no corrected version offered in the release notes.  I do not know
how closely the version you described matches the enclosed version.

>                              I haven't been able to find it in the
>comp.sys.masscomp archives or any of our documentation.  Has anyone
>archived a working version of this demo program or written something
>similar?  
>Here's the hardware:
>	CK10 clock
>	AD12FA 1MHz a/d board
>	MC 5520 with DACP
>	Dage-MTI SIT or Hamamatsu C2400 camera
>We have both 6-plane GA800's and 4-plane GA1000's, some running
>Masscomp graphics (SP-40) and others running X11R3 for display.
>
>Thanks,
>rick
>- --
>Rick Gray                            uucp: uunet!soma!rick
>Division of Neuroscience         Internet: rick@soma.bcm.tmc.edu
>Baylor College of Medicine 
>Houston, Tx 77030
>
>Articles to: concurrent@soma.bcm.tmc.edu or uunet!soma.bcm.tmc.edu!concurrent
>Administrative stuff: concurrent-request@soma.bcm.tmc.edu
>Stan Barber, Moderator


=========== Last version of image.f before being removed from sp-4005 =======
* @(#)image.f	6.1	(MASSCOMP)	Modified 8/22/88

	program image

	integer*2 videodata(105000)
	character picray(318, 242)
	integer i
	integer itemp
	real rintense
	integer adpath, dummy, clkpath(8)
	integer statwds(2)


	adpath = -1
	dummy = -1
	do 10  i = 1, 8
	clkpath(i) = -1
10	continue

	call mropen( adpath, "/dev/dacp0/adf0", 0 )
	print *, "adpath\n", adpath
	call mrclkopn( clkpath(8), "/dev/dacp0/clk2", 0 )
	call mrclkopn( clkpath(1), "/dev/dacp0/clk1", 0 )
	call mrclkopn( clkpath(2), "/dev/dacp0/clk0", 0 )
	call mrclkopn( clkpath(3), "/dev/dacp0/clk3", 0 )
	call mrclkopn( clkpath(4), "/dev/dacp0/clk4", 0 )
	call mrclkopn( clkpath(5), "/dev/dacp0/clk5", 0 )
	call mrclkopn( clkpath(6), "/dev/dacp0/clk6", 0 )
	call mrclkopn( clkpath(7), "/dev/dacp0/clk7", 0 )

* Now the clocks have been openned... wire 

*	out 3 to src 2
*	out 2 to cntrl 1
*	out 1 to cntrl 3
*	out 2 to cntrl 5
*	out 5 to cntrl 6
100	print *, "First clocks armed\n", clkpath

	call mrclkcnts( clkpath(3), 27, 300, 84, 4, 1, 2 )
	call mrclkcnts( clkpath(8),  19, 242, 20, 0, 1, 2 )
	call mrclkcnts( clkpath(2), 19, 242, 20, 0, 1, 2 )
	call mrclksetter( clkpath(1), 27,7, 2, 7, 1, 2, 12 )
	call mrclksetter( clkpath(5), 27, 5, 5, 6, 0, 2, 0 )
	call mrclkcnts( clkpath(6), 27, 4, 2, 4, 0, 2 )

	call mrclkcnts( clkpath(4), 27, 5, 1, 0, 0, 2 )


	call mrclkarm( 1, clkpath(8) )
	print *, "clkset\n"
	call mrclkarm( 4, clkpath )

	call mradxin( adpath, clkpath(6), -1, 0, 1, 1, 0, 105000, videodata )

	print *, "adpath\n", adpath
	print *, "Type carriage return to start"
	read *
	call mrclkarm( 1, clkpath(6) )
	print *, "\"
	call mrclkarm( 1, clkpath(5) )
	print *, "awaiting read completion\n"
	call mrevwt( adpath, statwds, 1000000 )
	print *, "\"

	print *, "Picture taken\n"
	call mrclosall


	rintense = 2.5
	level = -130


250	i = 11
	

	do 260 if = 1, 6
	
	do 300 il = 1, 242

	do 400 is = 1, 53
	if ( videodata(i) .lt. level ) then
		print *, "Videodata lt level", videodata(i), i
		videodata(i) = level
	endif


	itemp = int( float(videodata(i)-level)/rintense )


	if ( itemp .ge. 128 ) itemp = 127

	picray( (7-if+(is-1)*6), il ) = char(itemp)

	i = i + 1

400	continue

	i = i + 11

300	continue

	i = i + 1280 
	print *, "after 300 - i=", i

260 	continue

	call mgiasngp( 0, 0 )
	print *, 'Assigned - go for image'

	call mgiimage( picray, 301, 201, 618, 442 )

	print *, 'End of image - deassign'

	call mgideagp

	print *, 'Display complete\'
	stop
	end

--------------------------------------------------------------------------------
		     ___________
		    /  ________/__	...!{decvax,uunet}!masscomp!daly
		   /__/_______/  /	daly@westford.ccur.com
	  Concurrent /__________/
	Computer Corporation
--------------------------------------------------------------------------------

Articles to: concurrent@soma.bcm.tmc.edu or uunet!soma.bcm.tmc.edu!concurrent
Administrative stuff: concurrent-request@soma.bcm.tmc.edu
Stan Barber, Moderator