Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1373 1705 (N49W01 L=336)   863    131        2 (1330/1654-1418/1749) -26.6 E04-W06 N46-N52
      2  940 1604 (N26E23 L=312)   281    118        0 ( 912/1550- 974/1652) -29.1 E27-E18 N23-N28
      3  589 1560 (N14E43 L=291)  1058    207        1 ( 524/1488- 648/1651) -85.2 E46-E41 N08-N20
      4 1614 1501 (N43W27 L=  2)  2198    325        3 (1476/1405-1729/1578)  -4.2 W13-W40 N39-N45
      5 1112 1405 (N19E06 L=329)   676    261        1 (1087/1287-1141/1528) -71.6 E09-E02 N11-N26
      6 1431 1233 (N18W18 L=353)   697    334        0 (1333/1084-1473/1330) -35.5 W09-W23 N10-N21
      7  222 1157 (S17E60 L=275)  1116    158        3 ( 192/1085- 253/1236) -83.7 E63-E57 S21-S12
      8 1590 1140 (N18W31 L=  5)   685    143        0 (1572/1063-1609/1198) -83.7 W28-W32 N12-N21
      9 1785  888 (N10W53 L= 28)   471     66        2 (1765/ 854-1811/ 925) -76.0 W50-W56 N08-N12
     10  983  712 (S23W07 L=341)  1467    456        0 ( 928/ 601-1114/ 896) -41.2 W00-W18 S28-S12
     11  590  703 (S35E19 L=316)   859    264        1 ( 476/ 679- 723/ 725)  27.8 E28-E09 S40-S30
     12 1178  637 (S22W21 L=355)   235     72        1 (1141/ 616-1220/ 654)  45.0 W18-W22 S23-S20
     13  673  547 (S43E09 L=326)   920    224        1 ( 573/ 519- 770/ 579)  28.1 E17-E02 S46-S38
     14 1590  442 (S20W60 L= 34)  1511    239        3 (1490/ 415-1691/ 475)  25.2 W50-W68 S23-S14
  

    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