Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  476 1611 (N21E51 L=113)  3372    559       14 ( 400/1479- 577/1759) -31.5 E71-E38 N12-N31
      2  731 1740 (N33E38 L=126)   402     63        1 ( 696/1724- 769/1755)  21.8 E40-E34 N31-N35
      3  952 1588 (N26E16 L=148)   444    104        0 ( 932/1540- 981/1629) -80.5 E17-E13 N23-N29
      4 1126 1565 (N28E04 L=160)   266    135        0 (1089/1506-1151/1617) -49.4 E07-E01 N24-N31
      5  302 1566 (N16E68 L= 96)   794     86        3 ( 277/1522- 330/1601) -68.2 E72-E65 N13-N18
      6  420 1531 (N15E52 L=112)   734    121        3 ( 393/1477- 450/1590) -60.3 E54-E48 N11-N18
      7 1824 1256 (N25W53 L=217)  2889    266        6 (1782/1120-1886/1353) -74.1 W48-W62 N16-N30
      8  281 1267 (S03E55 L=109)   930    114        1 ( 258/1201- 317/1315) -66.8 E58-E51 S07-N00
      9 1575 1249 (N17W30 L=194)   500    151        1 (1558/1175-1610/1310)  78.7 W28-W32 N12-N22
     10 1644 1117 (N11W37 L=201)   414     98        1 (1630/1054-1659/1162) -71.6 W35-W38 N07-N13
     11  486 1079 (S12E35 L=129)   373    106        3 ( 458/1045- 521/1119) -53.1 E36-E31 S13-S09
     12  347 1090 (S13E46 L=118)   291     76        0 ( 318/1060- 375/1111)  45.0 E47-E43 S15-S11
     13  748  940 (S16E15 L=149)   266     81        1 ( 713/ 912- 782/ 963)  53.1 E17-E13 S18-S14
     14  211  895 (S26E59 L=105)   387     77        0 ( 176/ 864- 240/ 920) -14.0 E63-E55 S27-S24
     15  193  726 (S37E67 L= 97)   661     54        2 ( 166/ 703- 227/ 745)   0.0 E72-E61 S38-S35
     16  882  682 (S29E02 L=161)  1145    361        3 ( 712/ 627-1038/ 721)   5.2 E14-W08 S32-S26
     17 1490  627 (S20W39 L=202)   355    130        1 (1440/ 591-1520/ 684)  74.1 W36-W40 S23-S16
     18 1710  647 (S13W55 L=219)   413     89        1 (1671/ 628-1738/ 670)  38.7 W52-W59 S15-S11
     19 1746  579 (S16W63 L=227)  2000    257        3 (1636/ 501-1818/ 662)  55.3 W56-W70 S22-S09
     20  369  584 (S45E47 L=117)  1222    212        2 ( 278/ 551- 454/ 623)   7.1 E60-E36 S47-S40
     21  992  554 (S35W08 L=172)   207     73        0 ( 967/ 520-1020/ 576)  68.2 W06-W09 S38-S33
     22 1567  468 (S27W53 L=217)   425     70        1 (1531/ 450-1599/ 488)   8.1 W49-W56 S28-S25
     23  511  283 (S69E52 L=111)   848    118        0 ( 459/ 269- 573/ 306)  -2.3 E68-E36 S70-S67
  

    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