Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1580 1707 (N27W65 L=139)   758     55        2 (1552/1678-1613/1728)  -5.2 W60-W71 N25-N28
      2 1404 1619 (N27W43 L=117)   507     95        0 (1357/1588-1448/1643) -59.0 W39-W44 N24-N29
      3 1665 1590 (N18W62 L=136)   382     89        0 (1624/1561-1695/1615) -59.0 W60-W64 N15-N20
      4 1728 1562 (N15W67 L=141)   963    124        3 (1695/1526-1770/1614)  63.4 W61-W74 N12-N18
      5 1679 1521 (N14W58 L=133)   520     82        1 (1655/1481-1704/1556) -90.0 W56-W60 N11-N16
      6 1379 1416 (N16W31 L=105)  1410    434        2 (1210/1356-1551/1515) -41.4 W23-W41 N09-N26
      7  993 1397 (N25W08 L= 82)  2139    607        2 ( 741/1285-1244/1450) -33.2 E08-W19 N12-N32
      8  875 1253 (N20E03 L= 71)   420    170        0 ( 780/1236- 954/1268) -29.1 E08-W01 N17-N22
      9 1611 1137 (S04W37 L=111)   493    143        0 (1597/1057-1634/1191)  50.2 W35-W40 S08-S01
     10 1888 1017 (S19W60 L=135)  1709    148        1 (1828/ 970-1957/1053)  -2.7 W52-W73 S20-S16
     11 1199  851 (S10W06 L= 80)   417    119        0 (1143/ 828-1247/ 890)   8.1 W02-W09 S11-S08
     12 1872  826 (S30W58 L=132)   459     54        0 (1845/ 802-1899/ 854)   7.1 W53-W61 S31-S28
     13  705  789 (S02E24 L= 51)   245     82        0 ( 666/ 765- 744/ 806) -45.0 E25-E21 S04-N00
     14  761  717 (S07E22 L= 52)  1069    228        3 ( 692/ 641- 840/ 797)  21.0 E28-E15 S10-S04
     15  301  724 (N02E54 L= 20)  1340    171        3 ( 229/ 662- 372/ 770) -22.6 E62-E49 S02-N05
     16  631  673 (S07E31 L= 43)   606    157        3 ( 596/ 609- 670/ 727)  26.6 E35-E27 S10-S03
     17 1031  632 (S18E09 L= 65)   339    123        0 ( 967/ 614-1086/ 657)  -7.1 E13-E05 S19-S17
     18  292  535 (S08E65 L=  9)  4925    393       12 ( 209/ 443- 368/ 652) -85.9 E77-E56 S14-N00
     19  473  517 (S13E49 L= 26)  1333    243        5 ( 400/ 470- 573/ 602) -48.4 E52-E41 S16-S06
     20  892  475 (S25E23 L= 52)  1813    455        2 ( 765/ 421-1073/ 598) -40.9 E28-E10 S28-S14
     21  718  296 (S32E44 L= 30)  3693    347        5 ( 651/ 129- 785/ 446)  33.7 E74-E36 S45-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