Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  908 1687 (N35E28 L=265)   854    141        0 ( 856/1644- 959/1726) -14.0 E34-E22 N32-N36
      2  568 1602 (N21E47 L=245)   835    199        2 ( 542/1509- 590/1681) -53.1 E52-E42 N14-N26
      3  691 1633 (N25E40 L=253)   303     78        1 ( 654/1613- 726/1651)  -8.1 E43-E36 N24-N26
      4 1512 1580 (N46W21 L=314)   396     88        0 (1485/1554-1552/1599)  15.9 W18-W25 N42-N47
      5  986 1380 (N17E11 L=282)   208     43        1 ( 962/1361-1013/1400)  56.3 E12-E09 N14-N17
      6  306 1273 (S05E55 L=238)   438     99        2 ( 289/1227- 320/1317) -71.6 E56-E52 S07-S01
      7  223 1208 (S10E62 L=231)  2767    199        8 ( 182/1119- 285/1314) -47.7 E71-E54 S15-S03
      8 1896 1137 (N27W66 L=358)  1030    106        1 (1860/1088-1915/1185)  60.3 W59-W70 N23-N30
      9  145 1134 (S16E72 L=221)  1616    132        1 ( 119/1080- 185/1184)  38.7 E77-E65 S19-S11
     10 1518 1087 (N13W28 L=321)   297    101        0 (1490/1034-1539/1126) -38.7 W25-W30 N09-N14
     11 1659  560 (S13W57 L=350)  1144    148        4 (1607/ 496-1705/ 618) -36.9 W52-W62 S16-S10
     12 1431  495 (S23W42 L=335)   378     71        0 (1419/ 457-1448/ 546) -45.0 W39-W45 S25-S20
     13 1548  471 (S21W53 L=345)  1534    253        3 (1451/ 410-1632/ 538)  54.0 W46-W57 S26-S15
     14 1057  219 (S54W38 L=330)   481     55        1 (1031/ 195-1080/ 244) -11.3 W32-W42 S55-S51
  

    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