Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  824 1895 (N69E01 L=328)   868     91        1 ( 799/1851- 858/1925)  61.4 E04-W06 N62-N74
      2  667 1464 (N32E18 L=310)   299     71        0 ( 626/1449- 708/1482)   0.0 E21-E14 N31-N32
      3 1161 1376 (N19W13 L=342)   671    326        1 (1041/1254-1240/1456) -61.9 W07-W16 N10-N25
      4  670 1418 (N29E18 L=310)   402     97        0 ( 625/1396- 722/1437) -15.9 E21-E14 N27-N29
      5 1806 1412 (N12W65 L= 33)  1064    142        1 (1738/1365-1862/1434)  -6.3 W57-W75 N09-N14
      6  306 1239 (N23E48 L=281)   553    112        1 ( 288/1180- 325/1300) -76.0 E49-E45 N18-N26
      7 1176 1082 (N01W10 L=338)   276     70        1 (1153/1049-1198/1117)  45.0 W08-W11 N00-N03
      8 1675  653 (S32W43 L= 11)   421     68        1 (1651/ 626-1701/ 685) -63.4 W40-W45 S33-S29
      9  427  548 (S20E50 L=278)  2076    285        4 ( 375/ 435- 511/ 675)  86.4 E53-E45 S28-S12
     10 1504  539 (S37W28 L=356)  2239    384        2 (1343/ 435-1654/ 634)  16.5 W14-W41 S42-S31
     11  553  402 (S32E47 L=281)   308     34        0 ( 533/ 382- 577/ 421)  18.4 E49-E43 S32-S30
     12  581  349 (S36E48 L=280)   558     92        1 ( 562/ 299- 603/ 385)  26.6 E54-E44 S39-S33
     13 1120  176 (S62E12 L=316)   388     49        0 (1102/ 160-1144/ 199) -68.2 E14-E09 S64-S59
  

    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