Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  778 1717 (N33E39 L=269)  1136    172        3 ( 715/1660- 842/1774) -16.4 E48-E31 N30-N36
      2  559 1627 (N22E50 L=258)   918    164        2 ( 517/1559- 585/1693) -33.7 E58-E44 N17-N25
      3 1388 1636 (N46W09 L=316)   772    130        0 (1339/1596-1443/1666)  -5.7 W04-W14 N43-N48
      4  435 1566 (N15E57 L=251)   746     92        2 ( 405/1531- 478/1620) -36.9 E62-E52 N12-N18
      5  612 1551 (N18E41 L=267)   479    106        0 ( 574/1505- 645/1595)  90.0 E42-E39 N14-N21
      6 1760 1204 (N27W47 L=355)  1016    116        2 (1731/1146-1786/1256)  81.9 W43-W49 N23-N30
      7 1298 1186 (N13W12 L=320)   271     82        0 (1276/1148-1325/1228) -45.0 W09-W14 N10-N14
      8 1850 1155 (N27W58 L=  6)   843    139        0 (1810/1096-1889/1211) -21.8 W52-W64 N23-N28
      9  548 1082 (S11E30 L=278)   406     96        1 ( 509/1059- 601/1108)   9.5 E32-E26 S12-S09
     10  431  766 (S33E35 L=273)   329     71        1 ( 409/ 741- 457/ 797)  53.1 E36-E32 S34-S30
     11 1537  625 (S13W43 L=351)   278    104        1 (1503/ 591-1563/ 654) -31.0 W40-W45 S14-S11
     12 1267  591 (S22W27 L=335)   324    122        0 (1253/ 543-1289/ 649) -45.0 W24-W30 S24-S18
     13  685  565 (S39E11 L=297)   378     85        1 ( 638/ 552- 728/ 583)  29.7 E14-E07 S41-S37
     14  588  518 (S46E18 L=289)  1065    144        1 ( 541/ 465- 629/ 575)  90.0 E23-E14 S49-S40
     15 1354  534 (S23W35 L=343)   470    141        0 (1304/ 505-1397/ 574)  56.3 W31-W37 S25-S19
  

    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