Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1463 1440 (N24W27 L= 53)   978    238        4 (1359/1380-1574/1515) -25.0 W20-W35 N20-N28
      2 1276 1446 (N23W14 L= 40)   373    104        0 (1222/1408-1316/1466) -26.6 W10-W16 N20-N24
      3  336 1398 (N17E50 L=336)   439     98        2 ( 306/1354- 364/1438)  59.0 E51-E48 N13-N19
      4  917 1322 (N13E08 L= 18)   228     71        0 ( 894/1289- 950/1356) -53.1 E09-E05 N11-N15
      5 1329 1174 (N06W18 L= 43)   552    185        2 (1251/1133-1404/1234) -11.3 W12-W22 N03-N09
      6  638 1188 (N04E24 L=  1)   266    109        0 ( 593/1174- 695/1208)   0.0 E27-E20 N03-N05
      7 1016 1127 (N02E01 L= 25)   174     73        0 ( 984/1102-1055/1143)  33.7 E02-W01 N00-N02
      8 1932 1103 (N07W70 L= 95)  1318    210        3 (1899/1071-1966/1137) -16.7 W64-W77 N05-N09
      9  468 1059 (S04E35 L=350)   451     72        2 ( 448/1017- 491/1098)  68.2 E36-E33 S06-S01
     10  834  941 (S10E11 L= 15)   388    232        1 ( 735/ 885- 935/ 983)  26.6 E17-E05 S13-S07
     11  314  859 (S16E48 L=338)   788    199        2 ( 257/ 814- 384/ 906)  18.4 E53-E41 S18-S13
     12 1785  691 (S19W58 L= 83)  3254    574       12 (1725/ 539-1857/ 881)  82.2 W51-W62 S28-S06
     13 1902  816 (S10W69 L= 95)   928    242        3 (1861/ 781-1946/ 863)  29.1 W62-W76 S12-S06
     14 1003  615 (S30W01 L= 26)  2916    602        6 ( 706/ 453-1372/ 780)  28.1 E22-W23 S42-S17
     15  750  709 (S25E17 L=  9)   375    107        0 ( 705/ 676- 791/ 743)   9.2 E19-E13 S26-S22
     16 1719  706 (S19W51 L= 76)   314     45        2 (1694/ 685-1737/ 728)  33.7 W48-W52 S19-S17
     17  403  612 (S32E44 L=342)   714    144        0 ( 337/ 591- 458/ 638)  -5.7 E49-E39 S32-S29
     18  310  577 (S34E54 L=332)  1394    305        5 ( 273/ 514- 354/ 636)  76.0 E59-E49 S37-S29
     19 1300  416 (S41W26 L= 52)   675    109        2 (1258/ 377-1343/ 466)  81.9 W22-W28 S44-S37
  

    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