Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1715 1505 (N11W62 L=  3)  1004    207        2 (1661/1445-1783/1584) -74.7 W58-W65 N05-N16
      2 1011 1414 (N27W10 L=312)   266     89        1 ( 970/1387-1054/1438)   0.0 W07-W13 N25-N28
      3 1641 1385 (N07W48 L=350)   407    116        1 (1590/1361-1684/1412) -29.7 W45-W52 N05-N10
      4 1886 1281 (S07W69 L= 10)  1776    179        1 (1856/1191-1910/1355)  26.6 W61-W75 S10-S02
      5  169 1302 (N43E67 L=234)   607     51        1 ( 139/1281- 193/1318)  -8.1 E75-E61 N41-N43
      6 1816 1258 (S05W59 L=  0)   431     70        0 (1797/1220-1833/1297) -90.0 W57-W60 S07-S02
      7 1093 1139 (N10W07 L=308)  1412    522        0 ( 889/1013-1289/1227) -46.6 E03-W14 S02-N17
      8 1572 1161 (S02W35 L=337)   472    108        0 (1523/1111-1603/1200) -68.2 W32-W36 S05-N00
      9 1766 1166 (S08W50 L=352)   308     58        0 (1737/1153-1801/1178) -18.4 W47-W53 S09-S06
     10  569  992 (N15E27 L=274)   904    195        1 ( 533/ 919- 624/1088) -90.0 E28-E24 N10-N20
     11 1562  749 (S25W25 L=326)  1594    396        0 (1474/ 607-1693/ 900)  27.6 W16-W37 S31-S20
     12  483  795 (N06E38 L=264)   743    129        3 ( 420/ 770- 544/ 829) -26.6 E42-E33 N03-N08
     13  304  685 (N03E56 L=245)   412     62        2 ( 287/ 650- 324/ 718)  38.7 E59-E54 N01-N05
     14 1060  524 (S24E12 L=289)  1608    372        2 ( 937/ 409-1171/ 665)  23.2 E22-E01 S28-S18
     15  514  513 (S11E46 L=255)  1437    354        2 ( 451/ 454- 589/ 603) -79.7 E50-E40 S15-S04
     16 1320  401 (S41E00 L=301)  1186    348        2 (1243/ 278-1435/ 526)  28.6 E11-W11 S48-S35
     17  331  480 (S09E65 L=236)   571     65        2 ( 304/ 455- 353/ 507)   6.3 E69-E60 S11-S07
     18  381  430 (S13E64 L=238)  1582    147        4 ( 351/ 351- 414/ 491)  32.7 E74-E58 S18-S09
     19  535  345 (S22E56 L=246)  1658    162        6 ( 480/ 305- 585/ 400) -82.9 E61-E49 S25-S17
     20  821  241 (S36E43 L=259)   646     75        3 ( 795/ 209- 853/ 269)  56.3 E45-E38 S39-S33
  

    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