Texture Stretching - GameCreators Forum

Author

Message

Rims Flames

12

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 14th Sep 2014 12:02

Link

Hi guys,

I want to scale a cube with a texture but the texture stretches when i scale it. How can make it automatically scale the texture when i am scaling the object? I tried like scale object texture obj, object size x(obj) / 5 but it didn't worked that well.

Thank You!

Rims Flames

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 14th Sep 2014 13:19

Link

Quote: "How can make it automatically scale the texture when i am scaling the object?"

You need to explain what you mean. The texture should be scaled automatically when you scale an object. Perhaps you mean the opposite, i.e. perhaps you don't want the texture to be scaled at all when the object is scaled?

A simple picture created in MS Paint would clarify what you mean.

Powered by Free Banners

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 14th Sep 2014 13:19

Link

Quote: "scale object texture obj, object size x(obj) / 5 but it didn't worked that well."

Yes, this is the way ! but we have better result in a plain object . If you do it in the main DO/LOOP you need something like this:

+ Code Snippet

ink rgb(50,50,250),0
box 2,2,98,98
ink rgb(255,255,0),0
for i= 1 to 8
ellipse 50,20,i,i
next i
ink rgb(255,50,0),0
set cursor 25,50
print "CHAFARI"
get image 1,0,0,100,100,1
autocam off
sync on

make object cube 1,30
texture object 1,1
make mesh from object 1,1

position camera 20,70,-120
point camera 0,0,0
do
change mesh 1,0,1    `keep overflowing

scale object texture 1,object size x(1,1)/30,object size y(1,1)/30
if upkey() then sc#=sc#+0.1
if downkey() then sc#=sc#-0.1
scale object 1,100+sc#,100+sc#,100+sc#

set cursor 0,0
print "Press upkey/downkey "
sync
loop

I'm not a grumpy grandpa

Back to top

Profile PM Email

Rims Flames

12

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 14th Sep 2014 14:01

Link

Chafari i used your code for scale object texture but it still looks like this

Rims Flames

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 14th Sep 2014 14:56

Link

Quote: "Chafari i used your code for scale object texture but it still looks like this"

This piece of code scale the texture proportionally in the three axes

As GG commented

Quote: " perhaps you don't want the texture to be scaled at all when the object is scaled?
"

Could you show us an example you find on the net or could you make us a picture what you need exactly ?.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Rims Flames

12

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 14th Sep 2014 17:08

Link

The photo attached on my last post before this contains a cube that is streched. That texture is square tiles that are SQUARE. Because of the X scaling, those textures went rectangular. The cube if its scaled, the texture must look the same as the photo attached in this post.

Thank You again!

Rims Flames

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 14th Sep 2014 19:13 Edited at: 14th Sep 2014 19:20

Link

In the poste above , you showed us a scaled cube. But you said that you had use my code . Now I understand less than before .

I'm using the same code with your image and it works correctly . Can you show us just the code that texture your object ?

+ Code Snippet

ink rgb(100,100,100),0
box 0,0,10,10
box 10,10,20,20
get image 1,0,0,20,20,1
autocam off
sync on

make object cube 1,30
texture object 1,1:scale object texture 1,2,2
make mesh from object 1,1

position camera -70,70,-120
point camera 0,0,0
do
change mesh 1,0,1    `keep overflowing

scale object texture 1,object size x(1,1)/30,object size y(1,1)/30
if upkey() then sc#=sc#+0.1
if downkey() then sc#=sc#-0.1
scale object 1,100+sc#,100+sc#,100+sc#

set cursor 0,0
print "Press upkey/downkey "
sync
loop

EDIT You have to scale object proportionally...if not, you instead of show z face you have to see x face .

I'm not a grumpy grandpa

Back to top

Profile PM Email

Rims Flames

12

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 14th Sep 2014 20:32

Link

In the first photo i showed you a scaled cube with the texture that has been stretched and i don't want that texture to be stretched when the cube is scaled.
I have multiple texture stages:

+ Code Snippet

      texture object obj,0,9
      texture object obj,1,10
      texture object obj,2,11
      texture object obj,3,1

Rims Flames

Back to top

Profile PM Email

WickedX

17

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 14th Sep 2014 20:46 Edited at: 14th Sep 2014 21:00

Link

Then you need to Scale Object Texture on each texture stage.

@chafari: Cool snippet! Hope you don't mind, I took the hardcoding out of Scale Object Texture.

+ Code Snippet

scale object texture 1,object size x(1,1)/object size x(1,2),object size y(1,1)/object size y(1,2)

Back to top

Profile PM Email

Rims Flames

12

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 14th Sep 2014 21:38

Link

I did this but still stretched textures here is the new code, some faces are ok but others are stretched and when i am scaling the cube largely enogh, the texture that was ok starts to stretch again

+ Code Snippet

 scale object texture obj, 0, object size x(obj, 1) / 155, object size y(obj, 1) / 155
    scale object texture obj, 1, object size x(obj, 1) / 155, object size y(obj, 1) / 155
    scale object texture obj, 2, object size x(obj, 1) / 155, object size y(obj, 1) / 155
    scale object texture obj, 3, object size x(obj, 1) / 155, object size y(obj, 1) / 155
    
    scale object texture obj, 0, object size z(obj, 1) / 155, object size z(obj, 1) / 155
    scale object texture obj, 1, object size z(obj, 1) / 155, object size z(obj, 1) / 155
    scale object texture obj, 2, object size z(obj, 1) / 155, object size z(obj, 1) / 155
    scale object texture obj, 3, object size z(obj, 1) / 155, object size z(obj, 1) / 155

Rims Flames

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 14th Sep 2014 21:45

Link

Quote: "@chafari: Cool snippet! Hope you don't mind, I took the hardcoding out of Scale Object Texture."

@WickedX Don't worry.
The texture has height and width. If we scale object texture obj,1,1 that is the same as no scaling at all. We can scale of course under 0 and more than 1. when we refer to scale object texture, it scale in three axes at once . I have used your method but it looks to stretches the image . Can you show us what you mean with Scale Object Texture on each texture stage.

I'm not a grumpy grandpa

Back to top

Profile PM Email

WickedX

17

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 14th Sep 2014 21:58 Edited at: 14th Sep 2014 22:00

Link

Try this. It may be the integer divisor is causing a floating point error or the scale is just too large.

+ Code Snippet

scale object texture obj, 0, object size x(obj, 1) / object size x(obj, 2), object size y(obj, 1) / object size y(obj, 2)
scale object texture obj, 1, object size x(obj, 1) / object size x(obj, 2), object size y(obj, 1) / object size y(obj, 2)
scale object texture obj, 2, object size x(obj, 1) / object size x(obj, 2), object size y(obj, 1) / object size y(obj, 2)
scale object texture obj, 3, object size x(obj, 1) / object size x(obj, 2), object size y(obj, 1) / object size y(obj, 2)

Back to top

Profile PM Email

Rims Flames

12

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 14th Sep 2014 21:59

Link

What do you mean explain scale object texture on each texture stage?

I have these textures to load:

load image "Textures/Detail/Detail.dds",1
load image "Textures/Floor/Floor.dds",9
load image "Textures/Floor/floor_n.dds",10
load image "Textures/Floor/floor_s.dds",11

Rims Flames

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 14th Sep 2014 22:05 Edited at: 14th Sep 2014 22:19

Link

When we use a plain object, it is easy, as we don't need to worry about the third axe.

+ Code Snippet

ink rgb(100,100,100),0
box 0,0,10,10
box 10,10,20,20
get image 1,0,0,20,20,1
autocam off
sync on

make object plain 1,30,30
texture object 1,1:scale object texture 1,2,2
make mesh from object 1,1

position camera -70,70,-120
point camera 0,0,0
do
change mesh 1,0,1    `keep overflowing

scale object texture 1,object size x(1,1)/30,object size y(1,1)/30
if upkey() then sc#=sc#+0.1
if downkey() then sc#=sc#-0.1
if leftkey() then sc2#=sc2#+0.1
if rightkey() then sc2#=sc2#-0.1
scale object 1,100+sc#,100+sc2#,0

set cursor 0,0
print "Press upkey/downkey/lefkey/rightkey"
sync
loop

@WickedX Could you apply your method to this code adding a box or cube instead of a plain ?

Edit
I'm trying to use Wickedx's method but not luck . Press a/s to see.

ink rgb(100,100,100),0
box 0,0,10,10
box 10,10,20,20
get image 1,0,0,20,20,1
autocam off
sync on

make object cube 1,30
texture object 1,1:scale object texture 1,2,2
make mesh from object 1,1

position camera -70,70,-120
point camera 0,0,0
obj=1
do
change mesh 1,0,1    `keep overflowing

rem scale object texture 1,object size x(1,1)/30,object size y(1,1)/30
scale object texture obj, 0, object size x(obj, 1) / object size x(obj, 2), object size y(obj, 1) / object size y(obj, 2)
scale object texture obj, 1, object size x(obj, 1) / object size x(obj, 2), object size y(obj, 1) / object size y(obj, 2)
scale object texture obj, 2, object size x(obj, 1) / object size x(obj, 2), object size y(obj, 1) / object size y(obj, 2)
scale object texture obj, 3, object size x(obj, 1) / object size x(obj, 2), object size y(obj, 1) / object size y(obj, 2)

if upkey() then sc#=sc#+0.1
if downkey() then sc#=sc#-0.1
scale object 1,100+sc#,100+sc#,100+sc#+up#
if inkey$()="a" then up#=up#+0.1
if inkey$()="s" then up#=up#-0.1
set cursor 0,0
print "Press upkey/downkey "
print "Pres  a / s "
sync
loop

+ Code Snippet

ink rgb(100,100,100),0
box 0,0,10,10
box 10,10,20,20
get image 1,0,0,20,20,1
autocam off
sync on

make object cube 1,30
texture object 1,1:scale object texture 1,2,2
make mesh from object 1,1

position camera -70,70,-120
point camera 0,0,0
obj=1
do
change mesh 1,0,1    `keep overflowing

rem scale object texture 1,object size x(1,1)/30,object size y(1,1)/30
scale object texture obj, 0, object size x(obj, 1) / object size x(obj, 2), object size y(obj, 1) / object size y(obj, 2)
scale object texture obj, 1, object size x(obj, 1) / object size x(obj, 2), object size y(obj, 1) / object size y(obj, 2)
scale object texture obj, 2, object size x(obj, 1) / object size x(obj, 2), object size y(obj, 1) / object size y(obj, 2)
scale object texture obj, 3, object size x(obj, 1) / object size x(obj, 2), object size y(obj, 1) / object size y(obj, 2)



if upkey() then sc#=sc#+0.1
if downkey() then sc#=sc#-0.1
scale object 1,100+sc#,100+sc#,100+sc#+up#
if inkey$()="a" then up#=up#+0.1
if inkey$()="s" then up#=up#-0.1
set cursor 0,0
print "Press upkey/downkey "
print "Pres  a / s "
sync
loop

I'm not a grumpy grandpa

Back to top

Profile PM Email

Rims Flames

12

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 14th Sep 2014 22:18

Link

I did this code still the same result...

Rims Flames

Back to top

Profile PM Email

Rims Flames

12

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 14th Sep 2014 22:21

Link

A box yes will be a good example to the plain one

Rims Flames

Back to top

Profile PM Email

WickedX

17

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 14th Sep 2014 22:21 Edited at: 14th Sep 2014 22:22

Link

When we were scaling equally on all axis both methods work. Scaling on individual axis, both methods fail.

Quote: "@WickedX Could you apply your method to this code adding a box or cube instead of a plain ?"

no, won't work. May be able to change uv data with vertex data functions.

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 14th Sep 2014 22:23 Edited at: 14th Sep 2014 22:26

Link

@Rims Flames

I don't know why you need a box to achieve that. This is not completly imposible . There is a way to make this without driving crazy . You could make your own box made of six limbs (plains) then use the method scaling limb texture instead of object texture

Cheers.

Edit.
@WickedX . Finally you saw it !

I'm not a grumpy grandpa

Back to top

Profile PM Email

WickedX

17

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 14th Sep 2014 22:31 Edited at: 14th Sep 2014 22:32

Link

Quote: "@WickedX . Finally you saw it !"

Sometimes it takes me a while.

We need functions to scale the objects texture on all 3 axis.

Back to top

Profile PM Email

Rims Flames

12

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 14th Sep 2014 22:33

Link

This code kind of resolves it but only on 4 faces the rest of two top and bottom still remains stretched.

+ Code Snippet

scale object texture obj, 0, object size x(obj, 1) / 355, object size y(obj, 1) / 355
    scale object texture obj, 1, object size x(obj, 1) / 355, object size y(obj, 1) / 355
    scale object texture obj, 2, object size x(obj, 1) / 355, object size y(obj, 1) / 355
    scale object texture obj, 3, object size x(obj, 1) / 355, object size y(obj, 1) / 355
    scale object texture obj, 0, object size z(obj, 1) / 355, object size z(obj, 1) / 355
    scale object texture obj, 1, object size z(obj, 1) / 355, object size z(obj, 1) / 355
    scale object texture obj, 2, object size z(obj, 1) / 355, object size z(obj, 1) / 355
    scale object texture obj, 3, object size z(obj, 1) / 355, object size z(obj, 1) / 355

Rims Flames

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 14th Sep 2014 22:39 Edited at: 14th Sep 2014 23:28

Link

Quote: "Sometimes it takes me a while."

Me too

Quote: "This code kind of resolves it but only on 4 faces the rest of two top and bottom still remains stretched.
"

Yes it work always in two axes, so you can add two plain to the cube .

EDIT.

Half the trick done !!

ink rgb(100,100,100),0
box 0,0,10,10
box 10,10,20,20
get image 1,0,0,20,20,1
autocam off
sync on

rem the main object
make object cube 1,30
hide object 1

`top side
make object box 2,30,0,30
make mesh from object 2,2
texture object 2,1:scale object texture 2,2,2

`left side
make object box 3,0,30,30
make mesh from object 3,3
texture object 3,1:scale object texture 3,2,2

`front side
make object box 4,30,30,0
make mesh from object 4,4
texture object 4,1:scale object texture 4,2,2

position camera -70,70,-120
point camera 0,0,0
do
rem keep overflowing
change mesh 2,0,2
change mesh 3,0,3
change mesh 4,0,4

scale object texture 2,object size x(2,1)/30,object size z(2,1)/30
scale object texture 3,object size z(3,1)/30,object size y(3,1)/30
scale object texture 4,object size x(4,1)/30,object size y(4,1)/30

if upkey() then sc#=sc#+0.1
if downkey() then sc#=sc#-0.1
if inkey$()="a" then up#=up#+0.1
if inkey$()="s" then up#=up#-0.1

scale object 1,100+sc#,100+sc#,100+sc#+up#         rem this object will be hide
scale object 2,100+sc#,100,100+sc#+up#
scale object 3,100,100+sc#,100+sc#+up#
scale object 4,100+sc#,100+sc#,100

position object 2 ,0,object size y(1,1)/2,0
position object 3,-object size x(1,1)/2,0,0
position object 4,0,0,-object size z(1,1)/2

set cursor 0,0
print "Press upkey/downkey "
print "press a/s "
sync
loop

+ Code Snippet

ink rgb(100,100,100),0
box 0,0,10,10
box 10,10,20,20
get image 1,0,0,20,20,1
autocam off
sync on

rem the main object
make object cube 1,30
hide object 1

`top side
make object box 2,30,0,30
make mesh from object 2,2
texture object 2,1:scale object texture 2,2,2

`left side
make object box 3,0,30,30
make mesh from object 3,3
texture object 3,1:scale object texture 3,2,2

`front side
make object box 4,30,30,0
make mesh from object 4,4
texture object 4,1:scale object texture 4,2,2

position camera -70,70,-120
point camera 0,0,0
do
rem keep overflowing
change mesh 2,0,2
change mesh 3,0,3
change mesh 4,0,4

scale object texture 2,object size x(2,1)/30,object size z(2,1)/30
scale object texture 3,object size z(3,1)/30,object size y(3,1)/30
scale object texture 4,object size x(4,1)/30,object size y(4,1)/30

if upkey() then sc#=sc#+0.1
if downkey() then sc#=sc#-0.1
if inkey$()="a" then up#=up#+0.1
if inkey$()="s" then up#=up#-0.1

scale object 1,100+sc#,100+sc#,100+sc#+up#         rem this object will be hide
scale object 2,100+sc#,100,100+sc#+up#
scale object 3,100,100+sc#,100+sc#+up#
scale object 4,100+sc#,100+sc#,100

position object 2 ,0,object size y(1,1)/2,0
position object 3,-object size x(1,1)/2,0,0
position object 4,0,0,-object size z(1,1)/2

set cursor 0,0
print "Press upkey/downkey "
print "press a/s "
sync
loop

I'm not a grumpy grandpa

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 15th Sep 2014 14:49

Link

@Chafari

Nice.

@Rims Flames

I see what your problem is now.

Chafari seems to be making good progress with it. As long as you are using simple cubes and boxes aligned with the XYZ axes you should be OK. I guess things get a bit messier if the object's pivot is rotated.

Powered by Free Banners

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 15th Sep 2014 15:17

Link

Quote: "I guess things get a bit messier if the object's pivot is rotated. "

I have not tried yet but I think the rotation does not interfere at all in the textured.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 15th Sep 2014 15:31

Link

It must do since you are using object size X(), etc. Simple rotations are fine but not if your object is rotated to begin with. I need to be convinced by an example. Suppose, for example, your object is a simple plain with corners (X,Y) = (-1,0), (0,1), (1,0) and (0,-1) but with the usual UV coordinates?

Powered by Free Banners

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 15th Sep 2014 15:52

Link

GG
Maybe you are right

in this example it change drastically, but I think that what change is the mesh aswell . fifty fifty

+ Code Snippet

ink rgb(100,100,100),0
box 0,0,10,10
box 10,10,20,20
get image 1,0,0,20,20,1
autocam off
sync on
make matrix 1,50,50,10,10:position matrix 1,-20,0,-20
make object plain 1,30,30
rotate object 1,45,0,45
texture object 1,1:scale object texture 1,2,2
make mesh from object 1,1

position camera -40,60,-70
point camera 0,0,0
do
change mesh 1,0,1    `keep overflowing

scale object texture 1,object size x(1,1)/30,object size y(1,1)/30
if upkey() then sc#=sc#+0.1
if downkey() then sc#=sc#-0.1
scale object 1,100+sc#,100,0

set cursor 0,0
print "Press upkey/downkey "
sync
loop

I'm not a grumpy grandpa

Back to top

Profile PM Email

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 16th Sep 2014 19:26

Link

To supplement your progress on this matter; Evolved created a number of code snippets on his website www.evolved-software.com. One of these snippets, known as Automap, includes a function for automatically scaling a texture given a set of measurements per pixel.

The link to the page

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 17th Sep 2014 00:13 Edited at: 17th Sep 2014 00:14

Link

@Chris Tate
I have used this function before ...great tool !! but until now I didn't pay attention too much how it works. I'm trying to do the same with my example above, but it needs some scroll aswell, because this function automap the object increasing texture in both sides . I tried offseting then center but not good result .

ink rgb(100,100,100),0
box 0,0,10,10
box 10,10,20,20
get image 1,0,0,20,20,1
autocam off
sync on

make object cube 1,30
texture object 1,1:scale object texture 1,2,2
make mesh from object 1,1

position camera -170,170,-170
point camera 0,0,0
do

AutoUVMapping(1,0,0,256,256,5,5,0,0)
scale object 1,100+sc#,100+scc#,100+ssc#

if upkey() then sc#=sc#+0.1
if downkey() then sc#=sc#-0.1
if leftkey() then scc#=scc#-0.1
if rightkey() then scc#=scc#+0.1
if inkey$()="a" then ssc#=ssc#-0.1
if inkey$()="s" then ssc#=ssc#+0.1

set cursor 0,0
print "Press upkey,downkey,leftkey,rightkey,a,s"
sync
loop

function AutoUVMapping(obj,lm,stage,TSizex#,TSizey#,ScaleU#,ScaleV#,ScrollU#,ScrollV#)
   Null=make matrix4(1)
   Null=make matrix4(2)
   Null=make matrix4(3)
   Null=make matrix4(4)
   Null=make vector3(5)
   rotate x matrix4 1,(-object angle x(obj)*0.0174532778)+(-limb angle x(obj,lm)*0.0174532778)
   rotate y matrix4 2,(-object angle y(obj)*0.0174532778)+(-limb angle y(obj,lm)*0.0174532778)
   rotate z matrix4 3,(-object angle z(obj)*0.0174532778)+(-limb angle z(obj,lm)*0.0174532778)
   multiply matrix4 4,1,2
   multiply matrix4 4,4,3
   scale matrix4 1,(object size x(obj,1)/object size x(obj))*(limb scale x(obj,lm)/100),(object size y(obj,1)/object size y(obj))*(limb scale y(obj,lm)/100),(object size z(obj,1)/object size z(obj))*(limb scale z(obj,lm)/100)
   multiply matrix4 4,4,1
   transpose matrix4 4,4
   translate matrix4 1,object position x(obj)+limb offset x(obj,lm),object position y(obj)+limb offset y(obj,lm),object position z(obj)+limb offset z(obj,lm)
   multiply matrix4 4,4,1
   lock vertexdata for limb obj,lm
   for v =0 to get vertexdata vertex count()-1
      set vector3 5,get vertexdata normals x(v),get vertexdata normals y(v),get vertexdata normals z(v)
      transform normals vector3 5,5,4
      normalize vector3 5,5
      UvProj=0
      if z vector3(5)>0.49 then UvProj=1
      if z vector3(5)<-0.49 then UvProj=2
      if x vector3(5)>0.49 then UvProj=3
      if x vector3(5)<-0.49 then UvProj=4
      if y vector3(5)>0.49 then UvProj=5
      if y vector3(5)<-0.49 then UvProj=5
      set vector3 5,get vertexdata position x(v),get vertexdata position y(v),get vertexdata position z(v)
      transform coords vector3 5,5,4
      select UvProj
         case 1
            U#=(x vector3(5)+ScrollU#)/TSizex#
            V#=(y vector3(5)+ScrollV#)/TSizey#
         endcase
         case 2
            U#=-(x vector3(5)+ScrollU#)/TSizex#
            V#=(y vector3(5)+ScrollV#)/TSizey#
         endcase
         case 3
            U#=-(z vector3(5)+ScrollU#)/TSizex#
            V#=(y vector3(5)+ScrollV#)/TSizey#
         endcase
         case 4
            U#=(z vector3(5)+ScrollU#)/TSizex#
            V#=(y vector3(5)+ScrollV#)/TSizey#
         endcase
         case 5
            U#=(z vector3(5)+ScrollU#)/TSizex#
            V#=(x vector3(5)+ScrollV#)/TSizey#
         endcase
      endselect
      set vertexdata uv v,stage,-U#*ScaleU#,-V#*ScaleV#
   next v
   unlock vertexdata
   Null=delete matrix4(1)
   Null=delete matrix4(2)
   Null=delete matrix4(3)
   Null=delete matrix4(4)
   Null=delete vector3(5)
endfunction

+ Code Snippet

ink rgb(100,100,100),0
box 0,0,10,10
box 10,10,20,20
get image 1,0,0,20,20,1
autocam off
sync on

make object cube 1,30
texture object 1,1:scale object texture 1,2,2
make mesh from object 1,1

position camera -170,170,-170
point camera 0,0,0
do

AutoUVMapping(1,0,0,256,256,5,5,0,0)
scale object 1,100+sc#,100+scc#,100+ssc#

if upkey() then sc#=sc#+0.1
if downkey() then sc#=sc#-0.1
if leftkey() then scc#=scc#-0.1
if rightkey() then scc#=scc#+0.1
if inkey$()="a" then ssc#=ssc#-0.1
if inkey$()="s" then ssc#=ssc#+0.1




set cursor 0,0
print "Press upkey,downkey,leftkey,rightkey,a,s"
sync
loop

function AutoUVMapping(obj,lm,stage,TSizex#,TSizey#,ScaleU#,ScaleV#,ScrollU#,ScrollV#)
   Null=make matrix4(1)
   Null=make matrix4(2)
   Null=make matrix4(3)
   Null=make matrix4(4)
   Null=make vector3(5)
   rotate x matrix4 1,(-object angle x(obj)*0.0174532778)+(-limb angle x(obj,lm)*0.0174532778)
   rotate y matrix4 2,(-object angle y(obj)*0.0174532778)+(-limb angle y(obj,lm)*0.0174532778)
   rotate z matrix4 3,(-object angle z(obj)*0.0174532778)+(-limb angle z(obj,lm)*0.0174532778)
   multiply matrix4 4,1,2
   multiply matrix4 4,4,3
   scale matrix4 1,(object size x(obj,1)/object size x(obj))*(limb scale x(obj,lm)/100),(object size y(obj,1)/object size y(obj))*(limb scale y(obj,lm)/100),(object size z(obj,1)/object size z(obj))*(limb scale z(obj,lm)/100)
   multiply matrix4 4,4,1
   transpose matrix4 4,4
   translate matrix4 1,object position x(obj)+limb offset x(obj,lm),object position y(obj)+limb offset y(obj,lm),object position z(obj)+limb offset z(obj,lm)
   multiply matrix4 4,4,1
   lock vertexdata for limb obj,lm
   for v =0 to get vertexdata vertex count()-1
      set vector3 5,get vertexdata normals x(v),get vertexdata normals y(v),get vertexdata normals z(v)
      transform normals vector3 5,5,4
      normalize vector3 5,5
      UvProj=0
      if z vector3(5)>0.49 then UvProj=1
      if z vector3(5)<-0.49 then UvProj=2
      if x vector3(5)>0.49 then UvProj=3
      if x vector3(5)<-0.49 then UvProj=4
      if y vector3(5)>0.49 then UvProj=5
      if y vector3(5)<-0.49 then UvProj=5
      set vector3 5,get vertexdata position x(v),get vertexdata position y(v),get vertexdata position z(v)
      transform coords vector3 5,5,4
      select UvProj
         case 1
            U#=(x vector3(5)+ScrollU#)/TSizex#
            V#=(y vector3(5)+ScrollV#)/TSizey#
         endcase
         case 2
            U#=-(x vector3(5)+ScrollU#)/TSizex#
            V#=(y vector3(5)+ScrollV#)/TSizey#
         endcase
         case 3
            U#=-(z vector3(5)+ScrollU#)/TSizex#
            V#=(y vector3(5)+ScrollV#)/TSizey#
         endcase
         case 4
            U#=(z vector3(5)+ScrollU#)/TSizex#
            V#=(y vector3(5)+ScrollV#)/TSizey#
         endcase
         case 5
            U#=(z vector3(5)+ScrollU#)/TSizex#
            V#=(x vector3(5)+ScrollV#)/TSizey#
         endcase
      endselect
      set vertexdata uv v,stage,-U#*ScaleU#,-V#*ScaleV#
   next v
   unlock vertexdata
   Null=delete matrix4(1)
   Null=delete matrix4(2)
   Null=delete matrix4(3)
   Null=delete matrix4(4)
   Null=delete vector3(5)
endfunction

I'm not a grumpy grandpa

Back to top

Profile PM Email

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 17th Sep 2014 18:47

Link

Good luck with it; it is a shame I am unable to help out at present; but I am sure you will all figure it all out

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Texture Stretching