need a script for displaying multiple mask in an experiment

[Alan]

Hi everybody,

Thank you for the great help.  
Here is a digest of the answers for the archive.

Thanks again for your help.

PS : I'm not sending the attached ".es file", because it's not my
program but it is very useful for my purpose.


------------------------------------------------------------------------
------------
Hi Alan --

This might help. In my experiment, I present:
-- 48 neutral mask pix
-- 24 pleasant and unpleasant prime pix

The neutral pix are drawn without replacement 4 times and shown for 5000
msec. During that time, 4 primes (2 neg, 2 pos in a random order) are
presented at random intervals for 1 refresh rate. (There's also a random
· mask in an attempt to preclude awareness). 


I've attached DotMask.bmp and 3 photos (r1710 = positive;
r9600=negative; r2190=neutral). I've adjusted the .ES file so that it
only calls for these files.

Do let me know if this is helpful and if you find any more efficient
ways of doing this sort of thing.

Good luck,
Jeff

***************************************************
Jeff T. Larsen, PhD
Assistant Professor of Psychology
Texas Tech University
 
phone: 806-742-3711 x264
fax: 806-742-0818
email: jeff.larsen at ttu.edu
web: http://webpages.acs.ttu.edu/jelarsen 


------------------------------------------------------------------------
------------

This is what you might to
1) Go to the user tab in the script window and declare the following
variable:
'Array of canvases for the eight masks
dim cnvsMasks(8) as canvas

2) Insert an inline object at the beginning of the experiment that
creates the 
canvases and loads the images.
'Create canvases
for i = 0 to 7
set cnvsMasks(i) = display.CreateCanvas
next i
'Load image files
'Replace your own image files
'Don't forget the double backslashs
cnvsMasks(0).LoadImage "Samples\\PictureRT\\RedCar.bmp"
cnvsMasks(1).LoadImage "Samples\\PictureRT\\BlueCar.bmp"
cnvsMasks(2).LoadImage "Samples\\PictureRT\\RedCar.bmp"
cnvsMasks(3).LoadImage "Samples\\PictureRT\\BlueCar.bmp"
cnvsMasks(4).LoadImage "Samples\\PictureRT\\RedCar.bmp"
cnvsMasks(5).LoadImage "Samples\\PictureRT\\BlueCar.bmp"
cnvsMasks(6).LoadImage "Samples\\PictureRT\\RedCar.bmp"
cnvsMasks(7).LoadImage "Samples\\PictureRT\\BlueCar.bmp"

3) Then insert an inline object at the point where you want your masks
to 
appear:
'Copy each mask to the screen and wait for a fixed amount of time

dim i as integer

'Present each mask, wait for 10 ms then go to the next one
for i = 0 to 7
	display.waitForVerticalBlank
	display.canvas.copy cnvsMasks(i)
	sleep (10)
next i

I am assuming a few things: your masks are always the same, They will
cover the 
whole screen, ...
Hope this helps
Francisco Tornay


Francisco Tornay <ftornay at ugr.es>
Departamento de Psicología Experimental y Fisiología del Comportamiento
Universidad de Granada España