Custom papi, maybe a way?

[ras78]

Hi there,
I still have a problem with my papi's covered by groundpoly. I'm trying to coming out. During some research oh the net, I found a couple of interesting macro and scasm sources for custom PAPI. I would like to share with you, hoping that someone more skilled than me, can found a solutions for custom papi.

regards,
Alberto

 

[ras78]

Ok guys,
I succesfully placed a working PAPI with the model built in the bgl. Works perfect but my aircraft model disappear I guess that's why in the readme file there's "only for fs2002". Here's the source of main api:

;Papi Lights and generated from Gmax
;
;Use only for FS2002. Not compatible with earlier versions of MS Flight Simulator
;
;Use in Airport for Windows:
;1. Scale: 0.5
;2. Set heading to the runway heading.
;3. Align by dragging the small square such that the big square
;   which represents the innermost PAPI box is right where you want 
; it in relation to the runway.
;
;IMPORTANT:
;----------
;Make sure you have the correct papi.bgl file properly install in your 
;local scenery folder:
;Filename: papi  22KB BGL File  8/30/02 6:31 AM
;
;By Manny Aquino
;PFSG - Surabaya
;Tools used: Gmax and FSRegen.
;PAPI logic taken from Manfred Moldenhauer's PAPI Macro
;
;For Freeware use only


mif( 0 )
; this is to draw the airport symbol!
Area( 5 %1 %2 1 )
   RotatedCall( :symbol@ 0 0 %5 )
   Jump( :endsymb@ )
:symbol@
   RefPoint( 7 : %4 %1 %2 ) 
  Points( 0
	-54	0	0	;0
	-57	0	-5	;1
	-57	0	 5	;2
	-51	0	 5	;3
	-51	0	-5	;4

	
	-1	0	-1	;5
	-1	0	 1	;6
	 1	0	 1	;7
	 1	0 	-1	;8
	)
   Poly( a 1 2 3 4 1 )
   Poly( a 0 2 3 0 )
   Poly( a 5 6 7 8 5 )
;   Poly( a 0 4 1 0 )

   Return
:endsymb@
EndA
mifend


Area( b %1 %2 22 )
Uvar( $delta1 0.25 )
Uvar( $delta2 [0.3333 + $delta1] )

IfVarRange( :End 0346 %12 5 )
PerspectiveCall( :PCall )
ShadowCall( :PC02 )
Jump( :End )
:PCall
Perspective
:PC02
RefPoint( rel :Skip %4 %1 %2 v1= %10 v2= 950 )
RotatedCall( :E 0 0 %5 )
RETURN
:E
CallLibObj( 0 4559414A 52504D44 00000000 00000020 )	;Papi Boxes

:Papi_1		;Papi 1 is the nearest to runway
IfVarRange( :Papi_2 386 0 32767 )
VectorJump( :pn1@1 p [-90 + 3 - $delta2] 0 0 )
CallLibObj( 0 4559414A 52504D44 00000000 00000021 )	;Papi1: Red
Jump( :Papi_2 )
:pn1@1
CallLibObj( 0 4559414A 52504D44 00000000 00000025 )	;Papi1: White

:Papi_2
IfVarRange( :Papi_3 386 0 32767 )
VectorJump( :pn1@2 p [-90 + 3 - $delta1] 0 0 )
CallLibObj( 0 4559414A 52504D44 00000000 00000022 )	;Papi2: Red
Jump( :Papi_3 )
:pn1@2
CallLibObj( 0 4559414A 52504D44 00000000 00000026 )	;Papi2: White

:Papi_3
IfVarRange( :Papi_4 386 0 32767 )
VectorJump( :pn1@3 p [-90 + 3 + $delta1] 0 0 )
CallLibObj( 0 4559414A 52504D44 00000000 00000023 )	;Papi3: Red
Jump( :Papi_4 )
:pn1@3
CallLibObj( 0 4559414A 52504D44 00000000 00000027 )	;Papi3: White

:Papi_4
IfVarRange( :Skip 386 0 32767 )
LineColor( 15 F0 )
VectorJump( :pn1@4 p [-90 + 3 + $delta2] 0 0 )
CallLibObj( 0 4559414A 52504D44 00000000 00000024 )	;Papi4: Red
Jump( :Skip )
:pn1@4
CallLibObj( 0 4559414A 52504D44 00000000 00000028 )	;Papi4: White

:Skip
RETURN
:End
EndA

I would like to know what's the difference between this code and the same for fs2004. It looks like same.

 

[arno]

Hi,

I have no idea why your aircraft would dissapear. Did you use the library together with the API as instructed?

The code looks OK (although a bit complex with all the object calls for such a simple object).

 

[ras78]

Yes, I've just compiled my scasm source and placed in the scenery folder with the "papi.bgl" file included. Looks and works ok, but my aircraft disappear (I see only its lights!). Deleting the two files, all backs ok

 

[José Bourgoignie]

Yes, I've just compiled my scasm source and placed in the scenery folder with the "papi.bgl" file included. Looks and works ok, but my aircraft disappear (I see only its lights!). Deleting the two files, all backs ok

Hi,

I just have installed the API in AFW 2.6 (running FS2002) and set it on a scale of 1.00 (otherwise I didn't see the PAPI light system... 4 lights... just what I was searching for.). But my aircraft also disappears when at a certain position to the lights.
Have you found meanwhile a solution ?

Greetz. José.

 

[fsisland]

Hi there,
I still have a problem with my papi's covered by groundpoly. I'm trying to coming out. During some research oh the net, I found a couple of interesting macro and scasm sources for custom PAPI. I would like to share with you, hoping that someone more skilled than me, can found a solutions for custom papi.

regards,
Alberto

Thanks for the macros! I was able to load the them to Fs Architect and compile them into bgl format. They work perfectly in FSX but the colour of the macros is black. Is it supposed to be that way and is it possible to change?

 

[José Bourgoignie]

Hi,

Today I installed this Papi API and had already forgotten that I did this before a couple of months ago.
So my aircraft still disappears. No solution in sight ? Other file perhaps ?

Greetz. José.

 

[José Bourgoignie]

Hi,

They work perfectly in FSX but the colour of the macros is black. Is it supposed to be that way and is it possible to change?

I tried with Airport for Windows and it works also fine in FSX. I think that without the source file you cannot correct the texture. But a black Papi is OK for me, hà.

At least something that will work in FSX. José.