Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  550 1755 (N43E46 L= 63)  1909    287        5 ( 507/1710- 598/1799) -26.6 E52-E38 N39-N47
      2  776 1659 (N36E22 L= 87)  2467    418        5 ( 628/1574- 951/1726) -16.5 E34-E07 N29-N40
      3  321 1575 (N29E58 L= 51)   560    170        1 ( 303/1531- 335/1628) -63.4 E60-E55 N25-N33
      4  758 1423 (N19E19 L= 90)   243     94        0 ( 712/1391- 781/1458) -38.7 E22-E17 N16-N21
      5  614 1339 (N13E27 L= 82)   394     68        1 ( 601/1298- 630/1386) -80.5 E28-E25 N10-N16
      6 1353 1289 (N13W19 L=128)   212    134        0 (1304/1243-1415/1322) -29.7 W16-W23 N10-N15
      7  975 1019 (S05E03 L=106)   227     63        0 ( 948/ 984-1011/1042)  36.9 E04-W00 S06-S03
      8  802  694 (S25E13 L= 96)   968    272        0 ( 689/ 602- 938/ 795)  37.4 E21-E04 S31-S18
      9  249  677 (S27E57 L= 52)   726    148        0 ( 228/ 631- 277/ 728)  45.0 E60-E53 S29-S23
     10 1696  664 (S22W50 L=159)   342     86        1 (1669/ 647-1730/ 682) -11.3 W47-W52 S22-S20
     11 1121  551 (S33W09 L=118)   631    167        1 (1032/ 530-1212/ 574)   4.4 W02-W15 S34-S31
     12  585  355 (S50E37 L= 72)   327     70        0 ( 556/ 341- 612/ 369)   0.0 E40-E34 S51-S48
     13  721  318 (S53E25 L= 84)   326     55        1 ( 704/ 292- 736/ 345)  78.7 E27-E23 S55-S50
  

    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