Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  836 1491 (N39E02 L=127)   555    159        1 ( 817/1432- 873/1564) -90.0 E03-W01 N34-N44
      2 1066 1540 (N37W16 L=145)   257     61        0 (1039/1517-1104/1556)   0.0 W13-W19 N35-N37
      3  853 1220 (N22E06 L=122)  1024    333        0 ( 782/1097- 947/1349) -75.3 E09-E02 N12-N31
      4  959  855 (S01E07 L=121)   316    109        1 ( 906/ 830- 996/ 890)   9.5 E10-E04 S02-N00
      5 1657  753 (S24W36 L=164)  1436    305        2 (1575/ 625-1718/ 869)  42.7 W27-W41 S30-S18
      6  516  727 (S01E38 L= 91)   301     91        0 ( 506/ 682- 532/ 773)  45.0 E39-E35 S03-N01
      7 1186  671 (S17W02 L=131)   458     65        1 (1158/ 636-1221/ 701)  26.6 W00-W04 S18-S14
      8  900  540 (S19E18 L=110)   533    203        1 ( 846/ 493- 956/ 618) -78.7 E20-E15 S23-S13
      9 1068  512 (S25E09 L=120)   268    113        0 (1026/ 471-1097/ 556)  26.6 E12-E05 S26-S21
     10  396  429 (S18E62 L= 67)   552     79        0 ( 361/ 407- 426/ 454)  13.0 E69-E56 S19-S16
     11 1102  362 (S36E11 L=117)  1049    173        3 (1036/ 321-1186/ 410)  18.4 E16-E04 S38-S33
     12 1596  363 (S54W34 L=163)   650     64        2 (1572/ 344-1629/ 390) -30.3 W29-W41 S56-S49
     13  999  316 (S37E20 L=108)   568     58        2 ( 970/ 284-1029/ 352)  80.5 E22-E18 S40-S34
     14  818  252 (S38E38 L= 91)  2584    335        4 ( 680/ 173- 933/ 321)  10.7 E61-E24 S43-S33
  

    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