MS Flight Simulator X 시너리제작

토지피복도를 해안선에 맞추어 조각조각내어  컨버트하였다. 아래 그림이다.

 

 

▲ 새로 제작한 랜드클래스

 

플심 디폴트와 비교해보면 산림지역이 줄고 도심지와 경작지가 늘어났다.

 

▲ 플심 디폴트 랜드클래스

 

국가수자원관리 종합정보 홈페이지(www.wamis.go.kr)의 2000년 토지피복도를 GIS 분석 전문

커뮤니티 사이트(www.biz-gis.com)에서 가공하여 30x30m해상도의 Raster 형태의 파일을

제공하고 있는데 이 파일을 소스로 이용하였다.

 

 

▲ GIS 분석 전문커뮤니티 사이트에서 제공하는 2000년 토지피복도

 

토지피복도의 분류 체계가 플심의 랜드클래스와 일치하지 않는데 아래표와 같이 매칭하였다.

 

[ WAMIS 토지피복도 분류 vs 플심X 랜드클래스 분류]

Wamis 토지피복도 분류		플심X 랜드클래스 분류
1: 수역	》	2. Low spare grassland
2: 시가화 지역	》	121. Large city high-rise
3: 나지	》	2. Low spare grassland
4: 습지	》	13. Wooded wet swamp
5: 초지	》	2. Low spare grassland
6: 산림	》	24. Mixed forest
7: 논	》	38. Cool irrigated crop
8: 밭	》	36. Rice paddy and field

 

아래는 플심에서 적용한 모습이다. 디폴트, 새버전, 위성사진 순서이다.

 

 

▲ 서울, 인천지역

 

▲ 김해공항, 부산지역

 

▲ 무안공항, 광주 목포지역

 

▲ 진도 인근

 

테스트하려면 첨부된 압축파일을 풀고 코리아 시너리 팩 하위 시너리로 등록하면 된다.

 

Korea_Landclass_beta.zip

 

▲ 2000년 토지피복도를 바탕으로 만든 한국 , 아니 남한 랜드클래스
   북조선과 일본 대마도를 물바다로 만들었다 ㅋ

▲ 아래 디폴트보다 서울 도심지가 확연히 들어난다. 하지만 서해안 섬들은 물바다...

▲ 언제인지는 잘모르지만 옛 모습을 보여주고 있는 플심X의 디폴트 랜드클래스. 일산신도시가 없다.

 

시너리 객체는 고유한 ID 를 가지는데 GUID(Global Unique IDentifier)이다.
UUID(Universal Unique IDentifier) 라고도 부른다.

어쨋거나 수작업으로 시너리 만들다보면 객체마다 guid 를 부여해야 하는데
이때 사용하는게 guid 생성기이다.
여러가지 방법이 있는데

1. 마이크로소프트에서 배포하는 guidgen.exe
        요건 하나씩 만든다.

2. Online 으로 생성하기
        http://www.guidgenerator.com/online-guid-generator.aspx
        한번에 2,000 까지 만들 수 있다.

3. 엑셀 사용자 정의 함수로 만들기
(출처 : http://www.excelforum.com/excel-programming/703120-create-a-guid-in-entire-column.html)
       

'Written: October 12, 2009
'Author:  Leith Ross
'Summary: Function creates a GUID (aka CLSID) and returns it as a string.

Private Type GUID
   Data1 As Long
   Data2 As Long
   Data3 As Long
   Data4(8) As Byte
End Type

Private Declare Function CoCreateGuid _
  Lib "ole32.dll" _
  (ByRef pGUID As GUID) As Long

Private Declare Function StringFromGUID2 _
  Lib "ole32.dll" _
    (ByRef rGUID As Any, _
     ByVal lpstrCLSID As Long, _
     ByVal cbMax As Long) As Long

Function CreateGUID() As String

  Dim b() As Byte
  Dim BuffSize As Long
  Dim RetVal As Long
  Dim MyGUID As GUID

    BuffSize = 40
    ReDim b(BuffSize * 2) As Byte
   
    RetVal = CoCreateGuid(MyGUID)
    RetVal = StringFromGUID2(MyGUID, VarPtr(b(0)), BuffSize)
    CreateGUID = Left$(b, RetVal - 1)

End Function

엑셀 행수가 6만여개 정도되니까 일반적인 경우라면 부족할 일 없다.