Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1583 1676 (N28W67 L= 20)  2223    227        2 (1470/1605-1665/1726) -42.5 W60-W73 N23-N34
      2 1489 1515 (N23W45 L=358)   497    129        0 (1471/1440-1510/1560)  36.9 W41-W49 N18-N25
      3 1616 1501 (N18W55 L=  7)   996    194        1 (1531/1448-1688/1538) -45.0 W49-W58 N13-N22
      4  824 1445 (N37E02 L=311)   274     45        0 ( 803/1416- 845/1467)  45.0 E03-W00 N35-N38
      5 1741 1157 (S04W50 L=  3)   406     81        1 (1721/1113-1767/1197)  45.0 W46-W52 S05-S01
      6 1064 1112 (N11W04 L=317)   227     64        1 (1031/1079-1088/1134) -63.4 W02-W05 N09-N13
      7  186 1077 (N26E64 L=249)   599     46        1 ( 170/1045- 211/1103)  76.0 E66-E60 N23-N27
      8  291 1037 (N22E51 L=262)  1996    480        5 ( 159/ 940- 485/1103)   0.0 E69-E34 N17-N26
      9 1546  982 (S08W30 L=343)   281     44        1 (1528/ 953-1566/1004)  45.0 W29-W32 S09-S06
     10 1828  840 (S26W54 L=  7)  1805    179        4 (1770/ 772-1903/ 899)  15.9 W46-W65 S29-S22
     11 1677  855 (S20W38 L=351)   747    248        1 (1545/ 826-1750/ 891) -13.2 W27-W44 S21-S15
     12 1044  801 (S06E04 L=309)   415    158        1 (1006/ 725-1077/ 848)  45.0 E07-E01 S09-S02
     13  482  701 (S01E42 L=271)   384    126        0 ( 467/ 638- 498/ 758)  50.2 E43-E38 S04-N02
     14 1022  331 (S37E20 L=293)  3004    628        8 ( 885/ 133-1181/ 632)  31.6 E52-W00 S52-S18
     15 1378  450 (S38W09 L=322)   375     70        1 (1356/ 419-1391/ 489)  80.5 W07-W10 S40-S34
  

    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