Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1538 1748 (N32W65 L=295)   687     44        1 (1513/1724-1568/1773)   0.0 W59-W68 N30-N33
      2 1311 1696 (N35W40 L=271)   551    143        0 (1260/1648-1355/1747) -90.0 W38-W42 N31-N40
      3 1500 1660 (N28W52 L=283)   447     94        1 (1466/1633-1548/1679) -14.0 W48-W57 N26-N29
      4  669 1615 (N48E11 L=220)   345     54        0 ( 649/1587- 696/1636)  63.4 E12-E08 N45-N49
      5 1559 1602 (N23W53 L=283)   404     86        2 (1530/1577-1606/1625) -53.1 W49-W55 N20-N24
      6  512 1577 (N49E26 L=204)   469     94        0 ( 491/1539- 536/1616) -74.1 E28-E23 N45-N52
      7 1493 1563 (N23W45 L=276)   526    128        2 (1449/1520-1532/1608) -81.9 W42-W46 N19-N26
      8 1072 1549 (N32W16 L=247)  1373    347        4 ( 906/1519-1231/1579) -17.7 W05-W27 N29-N36
      9 1596 1504 (N17W50 L=280)   522    191        0 (1523/1445-1644/1556)   8.1 W41-W55 N15-N18
     10 1466 1470 (N18W38 L=269)   277     86        1 (1418/1431-1492/1498) -90.0 W36-W41 N15-N20
     11 1496 1295 (N08W34 L=265)  1049    315        3 (1353/1251-1604/1342) -29.7 W25-W42 N03-N12
     12  460 1107 (N19E33 L=198)  1387    430        3 ( 290/1007- 607/1196) -39.3 E47-E24 N10-N28
     13  212  906 (N12E58 L=173)   712    156        0 ( 184/ 838- 234/ 990) -90.0 E60-E55 N08-N17
     14  852  952 (N03E11 L=219)   210     62        1 ( 824/ 919- 881/ 977)  56.3 E12-E08 N00-N03
     15 1219  885 (S09W08 L=239)   430    139        2 (1176/ 846-1262/ 951)  51.3 W04-W10 S10-S05
     16  777  903 (N02E17 L=214)   203     56        1 ( 759/ 873- 792/ 937)  56.3 E18-E15 N00-N03
     17 1306  863 (S12W12 L=243)   304     64        1 (1280/ 832-1342/ 901)  63.4 W10-W14 S13-S09
     18 1794  711 (S34W49 L=280)   873    122        1 (1734/ 679-1836/ 756)   5.2 W42-W54 S35-S32
     19  828  685 (S12E19 L=212)   344    135        0 ( 759/ 666- 884/ 717)  -7.1 E22-E14 S13-S09
     20  712  653 (S11E27 L=204)   278    121        0 ( 694/ 603- 739/ 695)  51.3 E27-E23 S14-S09
     21  350  398 (S20E70 L=160)   827     64        0 ( 333/ 360- 369/ 426)  29.1 E77-E66 S22-S17
     22  654  372 (S27E42 L=188)  1360    197        2 ( 572/ 319- 749/ 411)   3.2 E52-E34 S29-S24
     23 1126  296 (S45E14 L=217)  1638    280        2 (1014/ 240-1249/ 386)   7.4 E24-E01 S47-S40
  

    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