Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  749 1654 (N37E23 L=258)  1569    303        2 ( 625/1579- 882/1723) -24.6 E35-E11 N31-N42
      2 1531 1590 (N34W38 L=318)   304    102        0 (1478/1564-1571/1609) -23.2 W33-W41 N32-N35
      3  566 1373 (N17E31 L=250)   239     63        1 ( 536/1355- 584/1404)  56.3 E32-E29 N16-N19
      4 1902 1094 (N04W66 L=346)   577     59        0 (1886/1055-1917/1122) -76.0 W63-W68 N01-N05
      5 1830 1044 (N01W57 L=337)   359     59        1 (1813/1011-1851/1077)  45.0 W55-W59 S01-N02
      6 1715  885 (S10W47 L=327)   327     60        0 (1695/ 858-1735/ 921) -36.9 W45-W49 S11-S07
      7 1533  809 (S15W34 L=314)   484    152        0 (1496/ 740-1549/ 873) -63.4 W30-W35 S19-S11
      8  308  808 (S17E50 L=230)   723     95        2 ( 268/ 779- 337/ 845)  -8.1 E54-E47 S18-S14
      9 1706  690 (S21W51 L=331)   862    219        1 (1653/ 601-1734/ 777)  84.8 W48-W54 S27-S16
     10  289  687 (S24E56 L=225)   336     60        1 ( 266/ 661- 312/ 713)  26.6 E58-E52 S25-S22
     11  622  595 (S31E28 L=252)   625    133        0 ( 579/ 541- 652/ 658)  58.0 E32-E25 S34-S26
     12  410  572 (S32E47 L=233)   636    159        3 ( 343/ 529- 475/ 599)  13.2 E57-E40 S34-S30
     13 1326  221 (S59W41 L=321)   428     40        0 (1298/ 202-1348/ 238)   0.0 W36-W46 S60-S56
     14 1172  187 (S64W24 L=304)   832     76        0 (1130/ 158-1203/ 223)  76.0 W19-W27 S67-S59
  

    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