Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  987 1880 (N47E37 L=111)   624     68        2 ( 967/1841-1012/1910) -58.0 E42-E33 N42-N50
      2  785 1854 (N38E49 L= 99)  1126    136        1 ( 727/1828- 857/1876)  36.9 E53-E43 N34-N41
      3 1184 1643 (N34E09 L=140)   780    111        3 (1150/1591-1229/1700) -36.9 E12-E04 N31-N37
      4  401 1627 (N14E62 L= 87)   697    106        2 ( 364/1594- 435/1679) -80.5 E63-E58 N11-N17
      5  624 1476 (N09E36 L=113)   545     94        1 ( 585/1445- 676/1500)  53.1 E38-E32 N06-N10
      6  425 1444 (N03E49 L=100)   401     62        0 ( 401/1410- 452/1474)  68.2 E50-E47 N00-N05
      7  983 1284 (N06E09 L=140)   424    192        0 ( 913/1241-1039/1355)  71.6 E12-E07 N02-N11
      8  167 1203 (S15E67 L= 82)  1788    288        3 ( 120/1094- 240/1330)  68.2 E73-E61 S21-S06
      9 1764 1268 (N29W42 L=191)   463     93        0 (1730/1216-1788/1308) -23.2 W38-W45 N26-N30
     10  553 1226 (S07E33 L=116)   416    126        0 ( 508/1173- 587/1274) -29.7 E36-E29 S09-S05
     11  354 1225 (S11E47 L=101)   262     70        0 ( 329/1199- 377/1257)  63.4 E49-E46 S12-S08
     12  633 1065 (S14E24 L=125)   783    285        3 ( 553/1025- 725/1100)  20.0 E28-E17 S17-S11
     13  796  721 (S30E05 L=143)   209     33        1 ( 779/ 697- 817/ 743) -71.6 E06-E03 S31-S28
     14 1481  652 (S14W38 L=186)  1369    315        2 (1346/ 612-1620/ 717)  42.9 W30-W45 S20-S07
  

    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