Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1291 1673 (N39W26 L=  7)  5107    762       10 ( 991/1486-1592/1810) -30.3 W03-W44 N23-N52
      2  427 1626 (N42E49 L=292)  1003    123        3 ( 376/1588- 478/1668) -21.8 E61-E41 N38-N46
      3  711 1581 (N36E19 L=321)  1580    464        2 ( 505/1548- 916/1615) -10.0 E37-E03 N32-N40
      4 1630 1425 (N19W45 L= 26)   652     83        1 (1599/1377-1661/1469)  45.0 W41-W48 N16-N22
      5 1172 1417 (N21W12 L=353)   427    151        0 (1124/1390-1237/1464) -29.7 W09-W16 N19-N24
      6  454 1368 (N23E37 L=304)  2378    433        3 ( 280/1228- 566/1452) -16.5 E55-E28 N13-N29
      7  917 1359 (N19E05 L=336)   220     80        1 ( 882/1333- 950/1386) -45.0 E06-E02 N17-N21
      8 1642 1252 (N08W42 L= 23)   361     39        1 (1618/1228-1668/1274) -14.0 W40-W44 N07-N09
      9 1164 1226 (N09W10 L=350)   578    252        0 (1045/1193-1263/1259)  -8.7 W02-W15 N06-N12
     10 1361  896 (S11W20 L=  1)  1175    424        3 (1276/ 699-1452/1062)  60.3 W14-W26 S23-S01
     11 1843  929 (S12W59 L= 40)   511     56        1 (1823/ 900-1873/ 954)  56.3 W56-W62 S13-S10
     12  747  847 (S11E18 L=323)   943    275        1 ( 681/ 739- 824/ 947)  45.0 E23-E12 S16-S05
     13 1112  713 (S21W04 L=344)   235     50        2 (1084/ 690-1138/ 732) -26.6 W01-W05 S22-S20
     14  885  519 (S33E14 L=327)   842    281        1 ( 796/ 428- 930/ 638)  47.3 E22-E09 S38-S24
     15  560  390 (S39E45 L=296)  1056    199        0 ( 498/ 362- 649/ 454) -28.6 E50-E36 S41-S33
  

    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