home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / DepthMapTest.AMOS / DepthMapTest.amosSourceCode
Encoding:
AMOS Source Code  |  1998-02-17  |  1.3 KB  |  65 lines
  1. Dim DIT(3,7)
  2. Restore DITHER
  3. For Y=0 To 7
  4.   For X=0 To 3
  5.     Read DIT(X,Y)
  6.   Next 
  7. Next 
  8.  Extension_8_0456 "c4d:bilder/KnockOffMoonDisc.dm",9
  9. ST=Start(9)+$14
  10. WX=512 : WY=512
  11. Reserve As Work 10,WX*WY
  12. STA=Start(10)
  13. Screen Open 0,WX,WY,16,$8004
  14. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  15. 'For A=0 To 15 : Colour A*2,A*$111 : Colour A*2+1,Min(A*$111+$11,$FFF) : Next  
  16. For A=0 To 15 : Colour A,A*$111 : Next 
  17. L#=0
  18. L#=L#+1
  19. Gosub PPMCREATE
  20. For Y=0 To WY-1
  21.   For X=0 To WX-1
  22.     XXXX=Free
  23.     Loke Varptr(L#),Leek(ST) : Add ST,4
  24. '    L#=L# : Rem+DIT(X and 3,Y and 3)*16   
  25.     If L#>10000000
  26.       P=255
  27.       D=0
  28.     Else 
  29.       P=L#*4.0+265.0-768.0
  30.       D= Extension_8_1632(255-P,0 To 255)
  31.     End If 
  32. '    If D
  33. '      For PP=0 To 7 
  34. '        AD=STA+(X/8)+Y*(WX/8)+PP*(WX*WY/8)
  35. '        If Binexp(PP) and D 
  36. '          Poke AD,Peek(AD) or Binexp(7-(X and 7)) 
  37. '        End If  
  38. '      Next  
  39. '    End If  
  40.      Extension_8_0388 X,Y,15-(P/16)
  41.     Poke BMP,D
  42.     Poke BMP+1,D
  43.     Poke BMP+2,D
  44.     Add BMP,3
  45.   Next 
  46. Next 
  47.  Extension_8_0472 "dh1:test",8
  48. End 
  49. DITHER:
  50. Data $0,$8,$2,$A
  51. Data $C,$4,$E,$6
  52. Data $3,$B,$1,$9
  53. Data $E,$7,$D,$5
  54.  
  55. Data $5,$C,$E,$3
  56. Data $8,$0,$6,$A
  57. Data $D,$2,$4,$E
  58. Data $7,$B,$9,$1
  59. PPMCREATE:
  60.   TAR$="P6"+Chr$(10)+(Str$(WX)-" ")+Str$(WY)+Chr$(10)+"255"+Chr$(10)
  61.   Reserve As Work 8,WX*WY*3+Len(TAR$)
  62.   STT=Start(8)
  63.   Poke$ STT,TAR$
  64.   BMP=STT+Len(TAR$)
  65. Return