Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  980 1774 (N50W06 L= 14)   499     65        0 ( 951/1738-1002/1802) -90.0 W03-W07 N46-N52
      2 1482 1557 (N28W38 L= 47)  1303    294        3 (1320/1523-1603/1592)  -9.9 W26-W49 N25-N31
      3  607 1515 (N33E25 L=343)   345    133        0 ( 542/1501- 670/1530)   0.0 E30-E20 N32-N34
      4 1806 1416 (N16W64 L= 72)   993    150        4 (1775/1380-1848/1471) -68.2 W60-W69 N13-N19
      5 1380 1454 (N22W28 L= 36)   377    109        0 (1326/1442-1435/1466) -14.0 W23-W31 N20-N22
      6  901 1417 (N24E04 L=  4)  1097    298        1 ( 789/1355-1047/1465) -31.0 E11-W04 N18-N27
      7  511 1443 (N29E32 L=336)   404     88        0 ( 471/1423- 564/1464) -18.4 E36-E27 N27-N31
      8 1513 1316 (N12W34 L= 42)   342     91        0 (1488/1264-1535/1358) -90.0 W32-W35 N08-N14
      9 1456 1208 (N06W28 L= 36)   251     81        0 (1429/1176-1493/1243) -59.0 W26-W30 N03-N08
     10 1681  969 (S10W43 L= 51)   521    111        1 (1658/ 918-1716/1020)  63.4 W40-W45 S12-S06
     11 1834  835 (S19W59 L= 67)  3842    463       11 (1744/ 605-1915/ 994)  76.0 W53-W71 S33-S09
     12  415  924 (S02E40 L=328)   289     90        0 ( 399/ 880- 433/ 965)  53.1 E41-E38 S04-N00
     13 1910  880 (S17W69 L= 77)   543     72        3 (1889/ 850-1931/ 919) -63.4 W65-W72 S18-S14
     14  309  649 (S17E56 L=312)   778    150        1 ( 274/ 602- 333/ 714)  66.8 E60-E52 S19-S12
  

    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