HPHP48-E,*Éö::
* Lens v1.0 beta
* by Bnll4

 DEFINE x  10
 DEFINE y  10
 DEFINE diamt 40     ( matriz default )
 DEFINE height 64
 
 
 CK1NOLASTWD
 CK&DISPATCH1 12    ( grob type )
 ::
   DUPGROBDIM
   
   x diamt #+ #<
   SWAPDUP
   
   y diamt #+ #<
   SWAP
   
   height #/ DROP #0<>
   OR OR ?SEMI
   

   GDISPCENTER
   TURNMENUOFF
   CLEARVDISP

   0 0 ROT
   XYGROBDISP


   GBUFFGROBDIM DROP
   height #/ SWAPDROP
   ZEROZEROZERO ZERO
   { NULLLAM
     NULLLAM NULLLAM
     NULLLAM NULLLAM }
   BIND

     x diamt #+   x #1+ DO
       y diamt #+  y #1+ DO

         JINDEX@ 2PUTLAM
         INDEX@  1PUTLAM


         ID MATRIZ
         INDEX@  y #- NTHCOMPDROP (Y)
         JINDEX@ x #- NTHCOMPDROP (X)
         JINDEX@ #+
         3PUTLAM

         INDEX@
         ID MATRIZ
         INDEX@  y #- NTHCOMPDROP (Y)
         JINDEX@ x #- NTHCOMPDROP (X)
         #-
         4PUTLAM


         5GETLAM ZERO_DO
           2GETLAM
           1GETLAM INDEX@ height #* #+

           3GETLAM
           4GETLAM INDEX@ height #* #+

           PIXON?3
           ITE PIXON3 PIXOFF3
         LOOP
       LOOP
     LOOP

   ABND

   GBUFF
   TOTEMPOB

   KILLGDISP

   RECLAIMDISP
   ClrDAsOK
 ;
;