Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  533 1776 (N54E49 L= 41)   662     62        3 ( 502/1750- 569/1794)   0.0 E56-E43 N51-N55
      2 1716 1601 (N32W64 L=155)  1765    161        2 (1645/1553-1780/1642) -26.6 W56-W72 N28-N35
      3 1576 1547 (N28W44 L=135)  1611    275        1 (1479/1452-1696/1614) -40.6 W37-W52 N21-N33
      4  842 1494 (N28E10 L= 81)   479    170        0 ( 801/1441- 924/1529)  32.0 E12-E04 N24-N30
      5 1101 1458 (N24W07 L= 98)   297    139        0 (1042/1412-1133/1493) -51.3 W03-W08 N20-N26
      6 1324 1432 (N21W22 L=112)   248     69        2 (1292/1407-1352/1464)  36.9 W19-W23 N19-N23
      7  410 1386 (N24E41 L= 49)   443     92        2 ( 377/1350- 445/1428)  51.3 E43-E39 N21-N26
      8 1272 1359 (N17W17 L=108)   475    147        1 (1210/1334-1348/1384)   0.0 W13-W22 N15-N18
      9 1275  929 (S09W15 L=105)   663    208        1 (1203/ 859-1357/1000)  35.0 W10-W20 S12-S05
     10 1233  685 (S24W12 L=102)   406    147        0 (1214/ 623-1249/ 760)  90.0 W10-W12 S27-S19
     11 1712  649 (S28W50 L=141)   324     51        1 (1691/ 624-1731/ 674)  71.6 W48-W52 S29-S26
     12 1655  484 (S39W52 L=142)   990    114        1 (1627/ 430-1680/ 546) -60.9 W48-W56 S43-S34
     13  714  287 (S49E36 L= 54)   413     56        1 ( 693/ 259- 738/ 319)  35.5 E40-E33 S51-S46
     14  566  282 (S48E54 L= 36)   720     75        2 ( 529/ 263- 612/ 307) -14.0 E59-E48 S50-S46
  

    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