Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  578 1651 (N38E45 L= 68)   686    176        0 ( 518/1599- 658/1694)  48.8 E48-E40 N34-N42
      2 1310 1544 (N38W17 L=131)   737    182        1 (1235/1484-1370/1597) -35.0 W11-W21 N33-N41
      3  775 1475 (N28E21 L= 92)  1080    189        3 ( 708/1398- 846/1546) -33.7 E28-E15 N23-N32
      4 1071 1387 (N25W00 L=114)   492    198        1 (1038/1303-1096/1471) -79.7 E02-W02 N19-N30
      5  327 1394 (N18E56 L= 57)   486     68        2 ( 302/1364- 355/1420)  36.9 E60-E53 N16-N20
      6 1380 1337 (N24W21 L=135)   309    106        1 (1360/1288-1401/1394) -81.9 W20-W22 N20-N27
      7 1790 1112 (N12W55 L=168)   375     89        1 (1762/1074-1811/1158)  50.2 W51-W57 N09-N15
      8  237 1082 (S01E57 L= 56)   466     95        0 ( 222/1038- 249/1131)  90.0 E59-E55 S04-N01
      9  246  990 (S07E56 L= 58)  1239    264        5 ( 171/ 916- 315/1080)  36.3 E65-E49 S12-N00
     10 1683 1024 (N06W45 L=158)   378     89        2 (1665/ 974-1700/1062) -68.2 W43-W46 N03-N08
     11  983  702 (S18E00 L=113)  2692    738        7 ( 714/ 520-1208/ 945)  48.8 E18-W11 S33-S01
     12 1643  734 (S12W45 L=159)   442     89        2 (1613/ 705-1670/ 763)  76.0 W42-W47 S13-S09
     13  225  672 (S28E65 L= 49)  1289    116        4 ( 187/ 618- 272/ 700)  19.3 E76-E56 S32-S25
     14 1839  673 (S15W70 L=184)   749     93        1 (1804/ 643-1883/ 694)  13.0 W65-W79 S16-S13
     15 1605  586 (S22W46 L=160)  1003    195        2 (1518/ 551-1667/ 641)  35.0 W39-W51 S24-S17
     16 1732  513 (S26W65 L=179)   904    116        1 (1709/ 469-1751/ 554) -36.9 W60-W69 S29-S23
     17  449  458 (S41E45 L= 68)  1148    132        3 ( 388/ 426- 500/ 498)  20.2 E56-E37 S44-S37
     18 1676  449 (S31W63 L=177)   783    111        4 (1639/ 418-1712/ 491) -19.7 W55-W69 S33-S27
     19 1598  408 (S34W57 L=170)  1776    200        6 (1568/ 338-1642/ 490) -26.6 W49-W75 S39-S28
     20  661  319 (S51E28 L= 86)   482     40        1 ( 634/ 297- 694/ 335)  14.0 E31-E23 S53-S49
  

    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