Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1448 1475 (N35W20 L=177)  3271    622        4 (1154/1344-1693/1619)  -7.6 E04-W41 N30-N39
      2  734 1557 (N25E31 L=126)   552    152        1 ( 678/1505- 781/1611) -21.8 E36-E26 N22-N27
      3 1289 1274 (N19W11 L=169)   205     83        0 (1248/1251-1329/1295)   0.0 W08-W14 N17-N19
      4 1164 1253 (N15W04 L=161)   232     68        0 (1153/1216-1176/1288) -63.4 W02-W05 N12-N16
      5 1215 1136 (N09W09 L=166)   311    114        0 (1169/1117-1273/1174)   0.0 W06-W12 N07-N10
      6  933 1062 (S01E06 L=151)   379     95        1 ( 885/1032- 968/1099)  36.9 E08-E04 S03-N01
      7 1480  729 (S10W34 L=192)  1424    351        2 (1329/ 695-1603/ 799)   2.7 W22-W43 S12-S05
      8  346  765 (S30E43 L=115)   427     85        0 ( 324/ 727- 372/ 797)  63.4 E45-E40 S33-S27
      9  960  769 (S18W01 L=159)   219     31        1 ( 942/ 749- 985/ 790)   0.0 W00-W02 S19-S16
     10 1739  673 (S08W58 L=215)   665    113        1 (1699/ 645-1765/ 717)  63.4 W54-W60 S10-S05
     11  557  423 (S51E26 L=132)   327     80        0 ( 517/ 387- 598/ 462) -35.5 E29-E21 S53-S48
     12 1401  418 (S30W41 L=199)   598    181        0 (1336/ 402-1470/ 451)   0.0 W35-W47 S32-S28
     13 1334  257 (S44W48 L=205)   405     77        0 (1319/ 233-1350/ 286) -38.7 W45-W50 S45-S41
  

    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