如何将图像插入PolygonMorph？
我需要在PolygonMorph中获得纹理，但这些似乎需要InfiniteForm作为颜色/填充。
InfiniteForm没有解决方案，因为我需要稍后旋转PolygonMorph并且移动PolygonMorph周围也会对显示的纹理产生副作用。
如果可以缩放插入的纹理，那将非常有用。
如果不替换现有的PolygonMorph（或者至少保留PolygonMorph的形状），你会怎么做？
没有找到相关结果
已邀请:
1 个回复
凄嘛姥
!PgiTexturedMorph methodsFor: 'graphics' stamp: 'pre 2/12/2011 13:30:15.156'! drawTexture | textureForm aTexture aBitBlt | textureForm := Form extent: (self shape extent) depth: 32. aTexture := self baseImage deepCopy . textureForm := Form extent: (self shape extent) depth: 32. (0 to: ((textureForm extent x) / (aTexture extent x))) do: [ :eachX | (0 to: ((textureForm extent y) / (aTexture extent y))) do: [ :eachY | aBitBlt := BitBlt destForm: textureForm sourceForm: aTexture fillColor: nil combinationRule: 7 destOrigin: (eachX * (aTexture extent x))@(eachY *(aTexture extent y)) sourceOrigin: 0@0 extent: (aTexture extent) clipRect: (textureForm computeBoundingBox). aBitBlt copyBits. ]]. self texturing: textureForm.! ! !PgiTexturedMorph methodsFor: 'graphics' stamp: 'pre! clipTextures | clippingForm aBitBlt | clippingForm := (Form extent: (self shape extent + (1@0))) fillBlack. aBitBlt := BitBlt destForm: clippingForm sourceForm: (self shape filledForm) fillColor: nil combinationRule: 6 destOrigin: 0@0 sourceOrigin: 0@0 extent: (self shape extent) clipRect: (clippingForm computeBoundingBox). aBitBlt copyBits. aBitBlt := BitBlt destForm: (self texturing) sourceForm: (clippingForm ) fillColor: nil combinationRule: 17 destOrigin: 0@0 sourceOrigin: 0@0 extent: (clippingForm extent) clipRect: (self texturing computeBoundingBox). aBitBlt copyBits. self texturePart image: (self texturing). self texturePart changed.! !