Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1543 1694 (N32W59 L= 25)   750    158        1 (1509/1655-1579/1716)   6.3 W53-W62 N31-N33
      2 1007 1577 (N41W14 L=340)   430     60        1 ( 978/1543-1031/1607)  18.4 W10-W16 N38-N42
      3 1750 1415 (N11W61 L= 27)   708    110        1 (1723/1362-1791/1455) -66.8 W58-W64 N06-N13
      4  999 1418 (N31W08 L=334)   441     90        3 ( 950/1397-1057/1445) -33.7 W04-W11 N28-N33
      5 1322 1414 (N23W28 L=354)   216     59        0 (1292/1401-1351/1427)   0.0 W25-W30 N21-N23
      6 1445 1408 (N19W36 L=  2)   254     46        0 (1412/1393-1471/1423) -14.0 W33-W37 N18-N20
      7 1659 1374 (N12W51 L= 17)   682    171        3 (1596/1340-1718/1400) -29.1 W46-W55 N08-N14
      8 1283 1240 (N14W20 L=346)   328     71        1 (1251/1207-1315/1269) -68.2 W18-W21 N11-N16
      9  948 1101 (N13E03 L=323)   202     81        0 ( 918/1061- 976/1148) -80.5 E03-E01 N10-N16
     10 1310 1043 (N02W17 L=343)   423     93        0 (1283/ 995-1344/1092) -78.7 W15-W18 S01-N04
     11  264  850 (N10E56 L=270)   493     95        0 ( 241/ 818- 299/ 896) -51.3 E57-E53 N07-N12
     12 1424  721 (S20W18 L=344)   441    126        1 (1386/ 669-1470/ 768)  35.5 W14-W21 S22-S17
     13 1223  421 (S35E01 L=325)   360     55        1 (1197/ 397-1248/ 446) -63.4 E02-W00 S37-S32
  

    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