Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1475 1437 (N24W28 L= 53)   916    258        2 (1382/1378-1576/1515) -28.3 W21-W35 N20-N28
      2 1275 1449 (N23W14 L= 39)   285    121        0 (1208/1424-1332/1465)  -6.3 W09-W18 N21-N23
      3  342 1398 (N17E49 L=336)   380     82        2 ( 312/1354- 369/1438)  59.0 E51-E47 N13-N19
      4  919 1340 (N14E08 L= 17)   253     96        0 ( 903/1302- 944/1385) -68.2 E08-E06 N11-N17
      5 1300 1182 (N06W16 L= 41)   326    138        1 (1257/1134-1351/1259) -49.4 W13-W19 N03-N10
      6  640 1185 (N04E24 L=  1)   231     84        0 ( 602/1170- 685/1202)   0.0 E26-E21 N03-N04
      7 1015 1118 (N01E01 L= 24)   244    117        0 ( 958/1082-1070/1144)  26.6 E04-W02 S01-N02
      8 1934 1099 (N07W70 L= 95)  1279    217        3 (1903/1059-1965/1135) -45.0 W65-W76 N04-N09
      9  477 1064 (S04E35 L=350)   411     70        2 ( 456/1022- 495/1102)  90.0 E36-E33 S06-S01
     10  907  957 (S09E07 L= 18)   174     84        0 ( 864/ 937- 946/ 981)  21.8 E09-E04 S10-S07
     11  321  858 (S16E47 L=338)   723    186        2 ( 263/ 813- 390/ 903)  18.4 E53-E41 S18-S13
     12 1911  830 (S09W70 L= 95)  1591    281        8 (1876/ 779-1949/ 890) -81.9 W65-W77 S12-S05
     13 1791  696 (S19W58 L= 83)  3378    615       15 (1729/ 539-1862/ 878)  81.9 W51-W64 S28-S07
     14  962  590 (S31E02 L= 23)  2554    631        3 ( 712/ 451-1239/ 750)  32.6 E21-W15 S42-S19
     15  713  670 (S27E19 L=  6)   702    283        4 ( 590/ 591- 800/ 747)  31.0 E28-E13 S32-S22
     16 1723  707 (S19W51 L= 76)   328     36        1 (1699/ 690-1742/ 729)  33.7 W49-W53 S19-S17
     17  413  609 (S32E43 L=342)   613    115        0 ( 363/ 588- 458/ 641) -26.6 E47-E39 S33-S29
     18  313  577 (S34E54 L=332)  1377    273        5 ( 276/ 515- 360/ 634)  76.0 E58-E48 S37-S29
     19 1304  414 (S41W26 L= 51)   671    118        3 (1263/ 376-1349/ 467)  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