Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1297 1797 (N46W38 L=358)   644     82        1 (1268/1759-1328/1840)  35.0 W33-W44 N43-N50
      2 1410 1562 (N28W34 L=354)   774    157        0 (1370/1493-1468/1604)  33.7 W29-W39 N23-N30
      3  923 1579 (N35W00 L=321)   567    139        1 ( 862/1557-1003/1599)  -6.3 E04-W05 N32-N36
      4  316 1409 (N31E49 L=272)   881    145        3 ( 275/1334- 357/1477) -45.0 E56-E43 N25-N36
      5  540 1354 (N25E28 L=293)   236     60        1 ( 505/1328- 562/1379)  14.0 E30-E26 N22-N25
      6 1530 1327 (N12W35 L=356)   465     56        1 (1494/1292-1560/1356) -26.6 W33-W37 N09-N13
      7 1940 1170 (S02W73 L= 34)   732    128        0 (1896/1110-1966/1219) -33.7 W66-W78 S05-N01
      8  425 1182 (N15E37 L=284)   292     70        0 ( 402/1158- 457/1213) -45.0 E38-E34 N13-N17
      9 1768 1042 (S08W50 L= 11)   519     63        2 (1730/1011-1804/1069)  -8.1 W46-W53 S09-S05
     10  343 1007 (N06E44 L=277)  2277    372        1 ( 196/ 950- 507/1058)  -4.2 E58-E31 N02-N09
     11 1749  950 (S13W48 L=  8)   586    109        1 (1713/ 901-1784/1001)  63.4 W44-W50 S15-S09
     12 1810  891 (S17W54 L= 14)   802    142        2 (1783/ 824-1838/ 951)  60.3 W50-W56 S20-S13
     13 1345  667 (S26W17 L=337)  4225   1024        2 ( 905/ 557-1727/ 829)   6.9 E13-W45 S29-S19
     14  313  653 (S15E55 L=266)   619    162        0 ( 295/ 581- 327/ 731)  56.3 E59-E52 S18-S09
     15  427  681 (S14E44 L=277)   505    143        1 ( 377/ 649- 496/ 705)  -6.3 E47-E38 S16-S12
     16  282  640 (S15E59 L=262)   354     25        0 ( 266/ 614- 297/ 660) -90.0 E60-E56 S16-S13
     17  744  574 (S24E24 L=297)   436     48        1 ( 720/ 542- 767/ 606) -76.0 E25-E21 S26-S22
     18 1730  528 (S40W54 L= 15)   667     79        1 (1692/ 502-1764/ 559)   6.3 W48-W57 S41-S37
     19 1496  457 (S42W30 L=351)   873    206        3 (1402/ 429-1594/ 485)  -3.2 W21-W40 S43-S40
     20  365  404 (S31E66 L=255)  1644    130        2 ( 317/ 373- 426/ 445)  -7.6 E81-E59 S33-S27
     21  583  275 (S43E54 L=267)   425     43        1 ( 564/ 252- 609/ 296)  11.3 E58-E48 S44-S41
  

    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