Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1490 1435 (N27W37 L=301)  1306    252        1 (1425/1368-1577/1532) -63.4 W32-W42 N22-N34
      2  277 1429 (N32E65 L=199)   707     74        0 ( 242/1398- 308/1457) -11.3 E73-E58 N29-N33
      3  652 1377 (N28E25 L=239)   244     98        0 ( 610/1355- 697/1389) -23.2 E28-E21 N26-N29
      4  223 1336 (N25E68 L=196)   746     86        0 ( 187/1319- 265/1369)  -7.1 E76-E60 N24-N27
      5  756 1164 (N14E17 L=247)   238     86        1 ( 723/1136- 803/1181)  21.8 E18-E13 N12-N15
      6  668 1065 (N08E22 L=241)   245     88        1 ( 642/1042- 706/1087)  11.3 E24-E19 N07-N09
      7  832  900 (S02E12 L=251)   208     68        1 ( 801/ 880- 864/ 924)  26.6 E14-E10 S03-N00
      8 1754  860 (S11W51 L=315)   490     55        2 (1726/ 832-1775/ 883) -45.0 W48-W53 S12-S09
      9 1501  841 (S10W30 L=294)   324     67        1 (1482/ 805-1521/ 874)  90.0 W28-W31 S11-S07
     10 1772  796 (S15W54 L=318)   433    117        0 (1725/ 743-1799/ 841)  39.8 W49-W56 S18-S12
     11  444  577 (S22E45 L=218)   711    145        0 ( 424/ 517- 467/ 649)  71.6 E47-E42 S26-S17
     12  298  561 (S24E63 L=201)   675     81        1 ( 268/ 528- 328/ 594)  20.0 E68-E57 S26-S21
     13  731  517 (S27E23 L=240)   307     79        0 ( 702/ 490- 760/ 553)  38.7 E26-E20 S29-S24
  

    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