Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  371 1606 (N12E64 L=185)  2850    361        9 ( 259/1522- 456/1697)  49.4 E73-E58 N05-N19
      2  824 1611 (N22E29 L=219)   416     99        0 ( 776/1587- 869/1636)   0.0 E32-E25 N20-N22
      3  406 1555 (N09E56 L=192)   402     97        2 ( 370/1519- 440/1593)  71.6 E58-E54 N06-N12
      4 1215 1336 (N15W02 L=251)   746    217        0 (1155/1256-1271/1441) -38.7 E03-W07 N11-N20
      5  559 1252 (S06E33 L=215)   256     80        0 ( 518/1240- 602/1262)  21.8 E35-E30 S07-S04
      6  424 1064 (S19E38 L=210)   316     94        0 ( 388/1029- 448/1090) -11.3 E40-E35 S20-S17
      7  376  882 (S31E39 L=209)   664    139        0 ( 330/ 859- 437/ 916)  -5.7 E43-E33 S31-S29
      8 1014  822 (S18W05 L=253)  1134    334        0 ( 849/ 785-1182/ 850)  16.7 E05-W15 S22-S15
      9  697  820 (S27E14 L=234)   537    137        1 ( 628/ 801- 760/ 844)  12.5 E19-E10 S28-S24
     10 1289  637 (S21W27 L=275)  1443    423        1 (1120/ 537-1462/ 707)  11.3 W16-W41 S25-S16
     11 1597  544 (S16W51 L=300)   383     54        1 (1571/ 524-1623/ 566)  76.0 W49-W53 S17-S13
     12 1717  458 (S15W69 L=317)  1014    210        3 (1679/ 411-1745/ 490) -33.7 W64-W73 S17-S13
     13 1600  437 (S21W58 L=307)   482    119        1 (1582/ 403-1618/ 476) -15.9 W54-W61 S22-S19
     14 1334  325 (S36W47 L=295)   384     59        2 (1312/ 302-1361/ 347)  56.3 W44-W48 S37-S34
  

    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