Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1633 1498 (N18W51 L=185)  1588    249        0 (1522/1446-1740/1558) -26.6 W44-W60 N13-N23
      2  365 1353 (N32E41 L= 93)  1409    271        2 ( 299/1259- 466/1456)  42.3 E47-E32 N26-N37
      3 1131 1377 (N20W13 L=147)   480     83        2 (1079/1347-1172/1403)  -9.5 W09-W15 N17-N20
      4  672 1332 (N25E17 L=117)   472    149        1 ( 623/1279- 728/1394) -53.1 E19-E13 N21-N29
      5  928 1360 (N22E00 L=134)   688    223        0 ( 823/1316-1020/1394) -38.7 E06-W04 N17-N25
      6 1063 1294 (N16W07 L=141)   210     81        1 (1040/1255-1091/1330)  63.4 W05-W09 N13-N17
      7  179 1261 (N29E62 L= 72)  2064    179        3 ( 104/1214- 267/1303) -11.6 E84-E50 N24-N32
      8 1325 1191 (N05W20 L=154)   290     97        1 (1284/1143-1357/1221) -59.0 W18-W21 N02-N07
      9  622 1124 (N13E22 L=112)   971    275        2 ( 537/1029- 675/1220)  42.0 E29-E18 N08-N18
     10 1580 1079 (S05W35 L=169)   420    127        0 (1553/1027-1607/1121)  80.5 W32-W37 S08-S02
     11 1346 1050 (S03W19 L=153)   227     56        1 (1330/1018-1362/1081) -90.0 W18-W20 S04-S01
     12  377 1002 (N10E41 L= 93)   697    181        3 ( 352/ 923- 422/1070)  63.4 E43-E37 N05-N13
     13 1788  935 (S17W50 L=184)   915    206        4 (1762/ 828-1811/1008)  73.3 W48-W52 S23-S13
     14 1861  910 (S20W59 L=193)  2122    252        8 (1794/ 794-1922/ 990)  35.5 W50-W67 S26-S16
     15  817  837 (S06E15 L=119)   301    140        1 ( 797/ 769- 843/ 900)  60.3 E17-E12 S10-S03
     16  312  731 (S04E53 L= 81)  1413    357        5 ( 201/ 638- 397/ 807) -45.0 E62-E46 S11-N01
     17  209  687 (S06E66 L= 68)  4107    382       15 ( 100/ 564- 332/ 787) -19.0 E83-E53 S13-N01
     18 1146  713 (S19W02 L=136)   747    284        2 (1037/ 661-1288/ 769)   7.1 E05-W11 S20-S18
     19 1508  700 (S27W26 L=160)   223     54        0 (1484/ 681-1525/ 729)  45.0 W23-W27 S27-S24
     20 1294  629 (S27W10 L=144)   355    141        2 (1233/ 616-1373/ 650) -12.5 W06-W15 S28-S25
     21 1390  306 (S54W16 L=150)   329     47        1 (1364/ 289-1415/ 322) -18.4 W12-W18 S56-S52
     22 1165  239 (S54E08 L=126)  1080    176        2 (1082/ 197-1250/ 276)   6.0 E18-W01 S56-S51
  

    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