Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  811 1837 (N45E49 L=346)  1820    164        3 ( 734/1788- 875/1874)  -2.6 E62-E38 N41-N47
      2 1198 1796 (N54E13 L= 21)   360     62        1 (1167/1770-1220/1820) -15.9 E17-E10 N51-N55
      3 1333 1736 (N53W02 L= 37)   399     54        1 (1307/1709-1356/1756) -53.1 W00-W04 N50-N55
      4 1453 1665 (N51W16 L= 50)   930    121        3 (1410/1614-1504/1703) -33.7 W11-W21 N47-N53
      5 1555 1618 (N51W28 L= 62)   775     97        3 (1518/1577-1592/1655) -63.4 W23-W32 N46-N53
      6  983 1594 (N31E18 L= 16)   589    149        0 ( 934/1535-1033/1645) -24.4 E23-E12 N27-N33
      7  736 1538 (N21E32 L=  3)   586    165        1 ( 711/1453- 770/1612) -70.0 E33-E28 N15-N26
      8 1638 1567 (N49W37 L= 72)   999     99        4 (1603/1534-1680/1609) -12.5 W33-W43 N45-N52
      9 1379 1521 (N37W11 L= 45)  1307    344        0 (1301/1449-1483/1574)   3.8 W05-W20 N29-N40
     10  602 1463 (N13E38 L=357)   561    132        0 ( 587/1405- 628/1532) -41.2 E41-E33 N10-N17
     11  419 1424 (N07E50 L=344)   524     82        2 ( 387/1390- 460/1454)  68.2 E52-E47 N04-N09
     12 1010 1329 (N15E08 L= 26)   348    112        1 ( 972/1302-1074/1363)   0.0 E10-E03 N12-N16
     13 1761 1248 (N29W47 L= 82)  1033    180        1 (1704/1183-1819/1307) -21.0 W41-W54 N26-N31
     14  150 1151 (S14E71 L=323)   990     86        2 ( 112/1122- 193/1173)  10.6 E80-E64 S15-S11
     15  227  969 (S23E57 L=337)  2147    378        1 ( 193/ 849- 306/1127) -60.6 E61-E47 S29-S13
     16 1867 1072 (N21W61 L= 96)   478    101        1 (1829/1049-1906/1107)  -4.4 W55-W68 N20-N22
     17  777  942 (S13E13 L= 22)   227     84        2 ( 726/ 926- 817/ 958)  11.3 E15-E10 S14-S11
     18  419  797 (S30E36 L=358)   347    104        0 ( 387/ 754- 465/ 828)  45.0 E39-E32 S33-S27
     19  731  725 (S27E11 L= 23)   355    158        0 ( 650/ 711- 804/ 738)  26.6 E16-E06 S29-S24
     20 1114  485 (S32W21 L= 55)  1765    388        4 ( 919/ 456-1279/ 533)  25.6 W07-W31 S37-S25
     21  655  264 (S67E10 L= 25)  1441    178        3 ( 580/ 230- 747/ 302)   6.3 E23-W04 S70-S64
  

    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