Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  378 1641 (N34E69 L=306)   725     56        2 ( 365/1608- 398/1674) -18.4 E77-E64 N31-N35
      2  525 1633 (N35E49 L=326)  1258    160        3 ( 450/1598- 603/1659)   6.7 E58-E41 N32-N37
      3  661 1548 (N31E33 L=343)   772    156        1 ( 619/1473- 689/1619) -42.3 E39-E28 N25-N35
      4  482 1448 (N22E43 L=332)   561    168        0 ( 433/1385- 519/1531)  84.3 E45-E41 N17-N27
      5  408 1481 (N23E52 L=324)   382     51        0 ( 392/1449- 422/1510) -53.1 E53-E49 N21-N25
      6 1050 1426 (N27E02 L= 13)   321     96        1 (1012/1391-1087/1448)  45.0 E04-W00 N23-N28
      7  869 1346 (N20E13 L=  2)   482    220        1 ( 766/1306- 953/1365)  -9.5 E19-E07 N17-N20
      8  918 1064 (N03E07 L=  9)   229     43        1 ( 890/1046- 949/1086)  14.0 E08-E04 N01-N04
      9 1241 1021 (N03W13 L= 29)   638    198        0 (1172/ 970-1326/1052)  18.4 W09-W18 N00-N05
     10  769 1030 (S01E16 L=360)   199     80        0 ( 733/1018- 810/1048)   0.0 E17-E12 S01-N00
     11  146  929 (S13E69 L=306)  1827    171        4 ( 107/ 853- 169/ 995) -48.8 E77-E65 S17-S09
     12 1604  734 (S11W42 L= 57)  2369    542        4 (1429/ 601-1740/ 951)  52.0 W31-W50 S21-N02
     13 1333  911 (S03W20 L= 35)   252     24        1 (1313/ 889-1355/ 937)  90.0 W18-W21 S04-S01
     14  314  640 (S30E53 L=323)   872    131        1 ( 273/ 585- 369/ 678)  28.1 E60-E45 S34-S26
  

    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