Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1376 1667 (N31W46 L=182)   942    180        2 (1321/1606-1443/1740)  79.7 W43-W49 N25-N36
      2  993 1352 (N26W08 L=144)   495    165        0 ( 929/1287-1063/1398) -68.2 W04-W09 N19-N29
      3  392 1000 (N20E40 L= 97)   438    113        3 ( 377/ 948- 415/1064)  74.1 E41-E38 N17-N24
      4 1483  968 (S09W24 L=161)   216     92        0 (1443/ 933-1521/ 998)   9.5 W21-W27 S10-S08
      5 1473  815 (S18W20 L=157)   551    156        1 (1407/ 753-1526/ 890)  24.4 W14-W25 S19-S14
      6  311  846 (N13E51 L= 86)   802    315        1 ( 211/ 813- 391/ 887)  -3.4 E60-E43 N10-N15
      7  988  799 (S05E08 L=129)   728    169        1 ( 955/ 716-1042/ 881)  84.3 E09-E05 S10-N00
      8  288  654 (N02E61 L= 76)   446     99        1 ( 259/ 629- 309/ 687)  23.2 E65-E58 N01-N04
      9 1529  620 (S32W20 L=157)   798    239        1 (1401/ 542-1618/ 684)   6.3 W09-W27 S33-S30
     10  717  474 (S17E34 L=102)   707    277        1 ( 694/ 364- 747/ 600)  59.0 E39-E29 S24-S09
     11 1321  491 (S33W03 L=139)   281     42        0 (1301/ 473-1345/ 517) -76.0 W00-W04 S35-S31
     12  586  344 (S23E51 L= 86)  2010    461        4 ( 522/ 225- 642/ 484)  61.2 E60-E46 S32-S12
     13  485  388 (S18E56 L= 81)  1095    202        4 ( 422/ 357- 533/ 434)  -5.2 E63-E52 S19-S14
  

    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