Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1182 1821 (N52W24 L= 63)   371     77        0 (1165/1792-1201/1848)  39.8 W21-W27 N49-N54
      2  787 1372 (N21E13 L= 27)   360    105        1 ( 752/1339- 849/1398) -33.7 E14-E08 N18-N22
      3 1735 1362 (N14W52 L= 91)   434    133        2 (1683/1344-1776/1378)  -6.3 W47-W56 N13-N15
      4 1320 1302 (N13W20 L= 59)   232     77        1 (1277/1288-1361/1314) -11.3 W17-W22 N12-N13
      5  375 1064 (N05E42 L=357)   435    128        1 ( 363/1009- 398/1142) -82.9 E42-E40 N02-N10
      6  274 1039 (N05E51 L=349)  1369    295        1 ( 200/ 913- 312/1140) -61.7 E58-E48 S02-N11
      7  130  990 (N03E68 L=331)  5266    715       10 (  76/ 887- 179/1094) -74.7 E79-E61 S02-N09
      8 1765 1018 (S06W50 L= 89)   319     52        0 (1748/ 984-1782/1053)  63.4 W48-W51 S08-S04
      9  230  912 (S02E56 L=343)   345     89        3 ( 207/ 873- 254/ 945) -90.0 E59-E53 S04-N00
     10 1478  886 (S13W27 L= 67)   221     40        1 (1459/ 867-1505/ 908) -33.7 W26-W29 S13-S11
     11 1858  787 (S21W60 L=100)   520    126        1 (1826/ 761-1898/ 819)  20.6 W57-W65 S22-S18
     12  289  575 (S23E59 L=340)   562    103        3 ( 265/ 548- 310/ 609) -63.4 E61-E56 S24-S20
     13  804  364 (S43E24 L= 15)   644    130        1 ( 738/ 343- 878/ 393)   0.0 E29-E17 S44-S40
  

    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