Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1495 1658 (N41W36 L=251)  1599    177        4 (1414/1602-1568/1698) -13.0 W28-W42 N36-N43
      2 1673 1560 (N35W51 L=266)   564     82        0 (1633/1528-1708/1589) -38.7 W46-W54 N32-N36
      3  363 1480 (N23E52 L=164)   410     89        2 ( 343/1442- 390/1516)  78.7 E54-E49 N20-N25
      4 1794 1400 (N24W58 L=274)  1000    134        1 (1768/1334-1820/1468)  83.7 W56-W61 N20-N29
      5 1542 1254 (N13W32 L=248)   218     51        0 (1514/1239-1562/1279)  33.7 W30-W33 N11-N14
      6  777  921 (S11E15 L=201)   191     84        0 ( 745/ 884- 796/ 947) -53.1 E16-E13 S13-S09
      7  674  918 (S12E21 L=194)   329    128        0 ( 632/ 871- 730/ 946)  29.7 E24-E17 S14-S09
      8  393  856 (S16E42 L=174)   534    122        2 ( 358/ 801- 445/ 903) -50.2 E44-E38 S19-S13
      9 1121  808 (S17W07 L=223)   447    202        4 (1067/ 759-1171/ 866)  56.3 W03-W10 S19-S13
     10 1794  728 (S17W59 L=275)  2432    274       15 (1693/ 645-1873/ 814)  40.2 W50-W68 S22-S11
     11  392  778 (S21E43 L=173)   367     37        1 ( 372/ 752- 420/ 804)  56.3 E45-E40 S22-S19
     12 1247  789 (S17W15 L=231)   205     28        0 (1224/ 773-1269/ 804)  33.7 W13-W16 S18-S16
     13  205  732 (S23E65 L=151)   937     79        4 ( 179/ 704- 234/ 770) -53.1 E70-E60 S24-S20
     14  279  590 (S33E62 L=153)  2300    185        2 ( 230/ 508- 331/ 679)  22.9 E80-E52 S37-S26
     15 1032  637 (S28W02 L=218)   285    100        0 ( 989/ 618-1077/ 662)  21.8 W00-W05 S29-S26
     16  619  582 (S33E28 L=188)   833    168        2 ( 581/ 516- 665/ 653) -66.0 E29-E24 S37-S28
     17 1381  576 (S30W28 L=244)  1407    425        2 (1187/ 546-1544/ 627)   2.0 W13-W41 S31-S25
     18 1035  499 (S37W04 L=219)   651    168        0 ( 968/ 453-1099/ 562)  45.0 E01-W07 S40-S32
     19  794  534 (S36E15 L=201)   310     54        0 ( 761/ 519- 833/ 556)  -9.5 E17-E11 S36-S34
     20  645  294 (S56E37 L=179)   552     56        2 ( 612/ 265- 673/ 316)  -8.1 E41-E32 S58-S53
     21  892  175 (S68E12 L=204)   471     52        0 ( 863/ 158- 920/ 194)   0.0 E16-E06 S70-S65
  

    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