When I compile the photo real textures the result is placed in the FS9
scenery/world/texture file
Is there some place I can change that?
Storing Photo Real Textures - location?
Dick,
The high res bitmaps have the same base name as the VTP ones. For example this is a 1.2 m/p (10024 x 1024 pixels):
012112110230223_1024_Su.bmp
They should go to the user TEXTURE folder (the sister of BGL1 folder). If they go to the default texture folder, then it has been an error. I will check this.
Luis
<font color="green">
I checked the code. For textures sizes of 512 or 1024 the destination folder is the user folder. You need to create the folder near the one that receives the BGLs.
' copy texture files
If Not CopyTEXs Then Exit Sub
For N = 1 To BMPs(Map).NT
If Size = 255 Then B$ = BMPs(Map).Tiles(N).File + Season
If Size = 511 Then B$ = BMPs(Map).Tiles(N).File + "_512_" + Season
If Size = 1023 Then B$ = BMPs(Map).Tiles(N).File + "_1024_" + Season
FileIn = App.Path + "\tools\work\" + B$
If Size = 255 Then
FileOut = FSTexDir + B$
Else
FileOut = TEX1Folder + "\" + B$
End If
A$ = Dir(FileIn, vbNormal)
If A$ <> "" Then FileCopy FileIn, FileOut
Next N
</font id="green">
The high res bitmaps have the same base name as the VTP ones. For example this is a 1.2 m/p (10024 x 1024 pixels):
012112110230223_1024_Su.bmp
They should go to the user TEXTURE folder (the sister of BGL1 folder). If they go to the default texture folder, then it has been an error. I will check this.
Luis
<font color="green">
I checked the code. For textures sizes of 512 or 1024 the destination folder is the user folder. You need to create the folder near the one that receives the BGLs.
' copy texture files
If Not CopyTEXs Then Exit Sub
For N = 1 To BMPs(Map).NT
If Size = 255 Then B$ = BMPs(Map).Tiles(N).File + Season
If Size = 511 Then B$ = BMPs(Map).Tiles(N).File + "_512_" + Season
If Size = 1023 Then B$ = BMPs(Map).Tiles(N).File + "_1024_" + Season
FileIn = App.Path + "\tools\work\" + B$
If Size = 255 Then
FileOut = FSTexDir + B$
Else
FileOut = TEX1Folder + "\" + B$
End If
A$ = Dir(FileIn, vbNormal)
If A$ <> "" Then FileCopy FileIn, FileOut
Next N
</font id="green">