;  TIM-DEMO          0.5.3             DCT
;
;**************************************************
parms
  int windis
endparms
cls
print @8 @i "<<TIM>> DEMO           Coordinate transforms         ", @n @r
print @8 "In this demonstration some examples of the 'ct' command"
print @8 "will be shown. "
print @8 "First the difference between enlarging using 'ct' and 'blow' ..."
dest p
copy miss
show p
cstr
*windispl h windis
save a
frmt 40 40            ;zoom in into the right eye
curs 63 163
bord pc 255
*windispl i windis
dest r
blow pc 6
*windispl h windis

dest s
print @8 "The left image is enlarged using 'blow' (each pixel"
print @8 "(is just replaced by a 6x6 matrix of that pixel value)"
print @8 "The right image is enlarged using 'ct': pixels are"
print @8 "calculated using bilinear interpolation."
ct pc
*windispl i windis
scroll
start:
print @8 "Now the polygon, shown in 'p' will be mapped onto image 'q'."
print @8 "This can only be done using 'ct' ..."
copy a p
drln p 102  14  18  95 255
drln p  18  95  32 223 255
drln p  32 223 231 243 255
drln p 231 243 102  14 255
text p 128 108   3 "1"
text p 128  12  92 "2"
text p 128  25 221 "4"
text p 128 241 241 "3"
dest p
*windispl h windis

dest q
ct p 102 14 18 95 231 243 32 223
*windispl i windis
stop




