/*program to draw line objects */

#include <osbind.h>

  int contrl[12], intin[256], ptsin[256], intout[256], ptsout[256];
  int pxy[256],nxy[256],txy[256];
  int del[256],rem[256];
  char buffer[32767];
  int handle,ntween;
  int kstate,dummy,mx,my;
  int nbut,i,p,num;
  long screen1,screen2,orgscrn,temp;
  
main()
{

  ntween=32;

/* Set the system up to do GEM calls*/

  appl_init();

/* Get the handle of the desktop */

handle=graf_handle(&dummy,&dummy,&dummy,&dummy);

  /* Open the workstation. */

  for (i=1; i<10; ++i)  intin[i] = 1;
  intin[10] = 2;
  v_opnvwk(intin, &handle, intout);

  screen1=Physbase();
  orgscrn=screen1;
  screen2=(0xffff00&buffer);
  screen2+=(0x100);

  vsf_perimeter(handle,1);

do {

  graf_mouse(256,&dummy);
  v_clrwk(handle);
  graf_mouse(257,&dummy);
  graf_mouse(0,i);

  i=0;
  do
{ evnt_button(1,1,1,&mx,&my,&dummy,&kstate);
  pxy[i++]=mx; pxy[i++]=my;
  graf_mouse(256,&dummy);
  v_clrwk(handle);
  v_pline(handle,i/2,pxy);
  graf_mouse(257,&dummy);
  evnt_button(1,1,0,&mx,&my,&dummy,&dummy);
}
  while (kstate!=2);

  num=i;
  i=0;
  do
{ evnt_button(1,1,1,&mx,&my,&dummy,&kstate);
  nxy[i++]=mx; nxy[i++]=my;
  graf_mouse(256,&dummy);
  v_clrwk(handle);
  v_pline(handle,i/2,nxy);
  graf_mouse(257,&dummy);
  evnt_button(1,1,0,&mx,&my,&dummy,&dummy);
}
  while (i<num);

  keywait();

/* compute the differences for each x,y location */
  for (p=0; p<num; ++p)
{ del[p]=(nxy[p]-pxy[p])/ntween;
  rem[p]=(nxy[p]-pxy[p])%ntween; 
}

  Setscreen(screen2,screen1,-1);

  graf_mouse(256,&dummy);
/* this is a sample tweener */
  for (i=0; i<ntween; ++i) {
   for (p=0; p<num; ++p)
    txy[p]=pxy[p]+del[p]*i+((rem[p]*i)/ntween);
   v_clrwk(handle);
   v_pline(handle,num/2,txy);
   Setscreen(screen1,screen2,-1);
   temp=screen1;   screen1=screen2;   screen2=temp;
  }
  graf_mouse(257,&dummy);
   
  Setscreen(orgscrn,orgscrn,-1);

} while(keywait()!=0x3b00);

  /* Close the workstation. */
 
  v_clsvwk(handle);
 
 /* Release GEM calls */

  appl_exit();

_exit(0);

}

/* keywait */
keywait()
{
while (
  evnt_multi(0x0021,
	0,0,0,
	0,0,0,0,0,
	0,0,0,0,0,
	&dummy,
	1,0,
	&dummy,&dummy,&dummy,
	&dummy,&dummy,&dummy)!=0x0020);
return (evnt_keyboard());
}/<€  Á/9  3€Ną  ~PŹ#Ŕ  3€/<    /9  ,žNą  PŹl/<€  Á/9  3€Ną  ~PŹ#Ŕ  3€a 
`3Ŕ  3Ty>€  3Tl4/<€  Á/9