Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  729 1824 (N37E47 L=274)   537     62        0 ( 699/1811- 763/1841)   0.0 E49-E43 N34-N38
      2  560 1478 (N09E40 L=281)  2852    529        3 ( 509/1254- 631/1694) -62.6 E45-E30 S03-N24
      3  251 1484 (N05E70 L=251)   834    172        1 ( 218/1458- 277/1507)  -8.7 E77-E64 N03-N07
      4 1797 1456 (N42W48 L=  8)   572    129        1 (1776/1427-1825/1475)  45.0 W44-W52 N39-N45
      5 1677 1375 (N31W34 L=355)   391     95        0 (1633/1354-1717/1392)   7.1 W30-W38 N30-N32
      6 1369 1270 (N15W14 L=334)   500    151        0 (1331/1188-1401/1346) -48.8 W10-W17 N10-N18
      7  194 1222 (S11E63 L=257)   859    164        4 ( 154/1178- 224/1285)  66.8 E67-E60 S14-S07
      8  271 1162 (S14E53 L=267)  1128    274        1 ( 188/1136- 362/1181)  14.0 E62-E45 S15-S11
      9 1407 1076 (N05W21 L=341)   288     73        0 (1368/1052-1441/1094)  26.6 W18-W22 N03-N06
     10 1753  974 (N09W47 L=  7)   565     93        0 (1729/ 928-1777/1030) -38.7 W43-W50 N06-N11
     11  779  909 (S19E12 L=308)   335    114        0 ( 725/ 890- 847/ 923)  23.2 E14-E07 S21-S17
     12 1479  685 (S14W36 L=356)   569    139        0 (1412/ 640-1544/ 743)  60.9 W33-W38 S18-S09
     13 1660  598 (S13W53 L= 14)   329     88        1 (1648/ 565-1681/ 638) -53.1 W51-W55 S15-S11
     14 1708  553 (S14W60 L= 20)   906    144        1 (1653/ 499-1747/ 617)  71.6 W57-W63 S18-S09
     15 1592  422 (S25W58 L= 18)  1667    254        5 (1536/ 388-1649/ 471)  32.0 W51-W62 S27-S21
  

    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