Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  982 1782 (N50W06 L= 14)   436     43        0 ( 958/1747-1002/1803) -68.2 W04-W08 N47-N52
      2 1030 1768 (N49W10 L= 18)   303     47        1 (1015/1739-1049/1793)  45.0 W08-W12 N46-N51
      3 1490 1559 (N28W39 L= 47)  1323    301        2 (1326/1527-1609/1592)  -9.9 W26-W49 N25-N31
      4 1343 1460 (N22W25 L= 33)   612    218        0 (1238/1443-1440/1487) -21.0 W18-W31 N20-N25
      5 1805 1429 (N17W65 L= 72)  1201    100        5 (1778/1380-1846/1487)  60.3 W61-W72 N13-N20
      6  910 1419 (N24E04 L=  4)  1185    270        3 ( 795/1358-1043/1470) -31.0 E11-W04 N18-N27
      7  522 1444 (N29E31 L=336)   394    101        0 ( 476/1424- 574/1462) -20.6 E35-E27 N27-N31
      8 1519 1316 (N12W34 L= 42)   356     95        0 (1498/1265-1540/1359) -80.5 W33-W35 N08-N14
      9 1462 1213 (N06W29 L= 36)   294    113        0 (1434/1176-1501/1262) -63.4 W27-W31 N03-N09
     10 1687  970 (S10W43 L= 51)   421    106        0 (1665/ 928-1724/1009)  51.3 W41-W46 S12-S07
     11 1852  845 (S19W61 L= 68)  5146    547       14 (1748/ 607-1946/ 993)  76.0 W53-W74 S33-S09
     12  422  928 (S02E39 L=328)   293     67        1 ( 403/ 887- 440/ 965) -83.7 E41-E37 S03-N00
     13  679  817 (S11E23 L=344)   229     57        0 ( 668/ 785- 690/ 853)  63.4 E24-E22 S12-S08
     14  317  648 (S17E55 L=312)   789    113        3 ( 286/ 602- 341/ 704)  74.1 E59-E51 S20-S13
  

    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