Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  800 1603 (N21E30 L=310)   235     45        1 ( 771/1585- 821/1625)  71.6 E31-E28 N19-N22
      2  559 1521 (N11E42 L=297)   880    211        2 ( 502/1452- 617/1600) -30.3 E49-E37 N06-N14
      3 1863 1315 (N36W53 L= 32)   513    182        1 (1831/1292-1896/1330)  24.0 W48-W57 N33-N38
      4  469 1215 (S09E38 L=301)   333     90        1 ( 428/1171- 503/1248)  56.3 E40-E36 S12-S06
      5  293 1101 (S19E50 L=290)  1354    457        2 ( 169/1053- 441/1164)   6.6 E63-E37 S21-S14
      6  128 1060 (S23E66 L=273)   566    116        0 ( 110/1015- 154/1095)  68.2 E67-E63 S25-S20
      7  463 1029 (S20E35 L=305)   618    191        1 ( 385/1009- 551/1050)  13.0 E40-E27 S21-S18
      8 1260  915 (S07W16 L=355)   215    115        3 (1239/ 866-1278/ 958) -68.2 W13-W17 S09-S04
      9 1907  883 (N12W66 L= 45)  2074    354        6 (1859/ 824-1948/ 941) -18.4 W59-W72 N08-N15
     10  341  806 (S36E42 L=298)   432    114        0 ( 300/ 785- 393/ 831)   6.3 E45-E36 S36-S34
     11  375  608 (S48E39 L=300)   810    207        0 ( 317/ 563- 433/ 661)  34.7 E46-E32 S52-S43
     12 1600  570 (S15W50 L= 29)   843    151        1 (1576/ 494-1624/ 637) -58.0 W47-W52 S19-S11
     13 1049  600 (S30W14 L=353)   342    110        0 ( 994/ 589-1109/ 616)  23.2 W10-W17 S32-S28
     14 1305  468 (S30W35 L= 15)  2475    619        3 (1037/ 408-1571/ 529)  18.9 W16-W54 S35-S22
     15 1662  469 (S18W61 L= 40)   814    133        3 (1635/ 432-1694/ 501)  53.1 W57-W64 S19-S15
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y