Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1349 1755 (N56W22 L= 86)   727    115        2 (1285/1736-1409/1776)   3.6 W13-W29 N54-N58
      2  750 1531 (N29E26 L= 38)   816    197        1 ( 716/1429- 807/1588) -79.7 E27-E22 N22-N33
      3  430 1533 (N26E53 L= 12)   691    124        1 ( 397/1480- 478/1574)  74.1 E54-E49 N21-N28
      4  308 1478 (N20E63 L=  1)   426     51        1 ( 280/1462- 339/1497)   0.0 E67-E58 N19-N21
      5  543 1435 (N21E38 L= 26)   324     67        1 ( 519/1408- 577/1462)  53.1 E39-E36 N18-N22
      6  308 1405 (N16E58 L=  6)   397     63        2 ( 269/1385- 337/1433)  15.9 E62-E55 N14-N17
      7  498 1153 (N03E35 L= 29)   598    170        2 ( 434/1081- 543/1199) -20.6 E40-E31 N00-N05
      8 1752 1135 (N15W50 L=114)   332     51        0 (1737/1098-1765/1167) -78.7 W48-W51 N12-N17
      9 1571  953 (N02W36 L=100)   493     56        2 (1542/ 916-1594/ 990)  76.0 W33-W37 N00-N04
     10  946  907 (S07E03 L= 61)   315    130        0 ( 906/ 863- 995/ 953)  56.3 E05-W00 S09-S03
     11 1793  645 (S14W65 L=129)  1652    174        5 (1764/ 573-1840/ 704) -60.9 W59-W72 S19-S10
     12 1675  582 (S19W54 L=118)   652    111        3 (1625/ 547-1723/ 621)  40.6 W50-W57 S22-S16
     13 1408  302 (S42W46 L=111)   861    105        2 (1358/ 274-1445/ 345)  45.0 W40-W52 S44-S38
  

    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