Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1466 1642 (N48W12 L=356)   689    135        1 (1408/1615-1511/1670)  41.6 W07-W16 N43-N52
      2  752 1568 (N19E32 L=312)   618    162        2 ( 677/1538- 812/1605)  20.6 E37-E29 N17-N23
      3  382 1577 (N12E62 L=283)   441    127        2 ( 356/1554- 412/1602) -15.9 E64-E57 N10-N13
      4 1188 1259 (N13W03 L=347)  1368    403        2 (1089/1052-1301/1439) -40.4 E07-W14 N03-N20
      5  250 1218 (S12E57 L=287)   444    100        1 ( 218/1201- 285/1236)   7.1 E61-E53 S13-S11
      6  187 1184 (S15E63 L=281)   601    104        0 ( 159/1159- 219/1202)   0.0 E67-E59 S16-S14
      7 1813 1066 (N21W51 L= 35)   458    112        0 (1787/1022-1841/1125) -39.8 W47-W54 N18-N23
      8 1746  913 (N10W49 L= 33)   386     45        0 (1725/ 884-1763/ 946)  90.0 W47-W50 N07-N11
      9 1270  741 (S14W22 L=  6)   540    179        0 (1176/ 697-1351/ 789)  55.0 W17-W25 S18-S08
     10 1852  733 (N04W68 L= 52)   624    132        3 (1823/ 710-1874/ 752)  23.2 W64-W72 N02-N05
     11 1726  582 (S08W62 L= 46)   973    160        1 (1661/ 543-1767/ 641)  58.0 W57-W65 S12-S04
     12 1473  423 (S25W49 L= 34)  1241    208        3 (1379/ 394-1557/ 455)  26.6 W42-W55 S27-S20
     13 1224  265 (S43W45 L= 29)   380     51        0 (1195/ 246-1249/ 281)   0.0 W41-W46 S43-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