Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1169 1662 (N40W31 L=350)   359    107        0 (1126/1618-1200/1694)  81.9 W30-W33 N36-N43
      2 1631 1602 (N22W63 L= 21)  1623    318        1 (1481/1570-1751/1632) -16.9 W49-W82 N17-N27
      3  975 1443 (N32W08 L=327)   223    116        0 ( 938/1417-1025/1486) -63.4 W06-W10 N29-N36
      4  612 1370 (N37E19 L=300)   293     49        1 ( 590/1339- 635/1397)  56.3 E20-E16 N35-N38
      5 1640 1291 (N06W45 L=  4)   428    111        0 (1622/1237-1653/1343)  51.3 W42-W47 N03-N08
      6 1767 1041 (S12W48 L=  7)   463     75        1 (1749/ 996-1783/1081)  68.2 W46-W50 S14-S09
      7 1545  915 (S12W28 L=347)   598    160        0 (1527/ 846-1564/1009)  58.0 W25-W31 S16-S07
      8  204  819 (N11E64 L=255)   402    106        0 ( 185/ 779- 225/ 875) -71.6 E65-E62 N08-N14
      9  904  757 (S05E13 L=306)   394    171        0 ( 884/ 680- 929/ 836)  58.0 E15-E09 S09-S01
     10 1234  462 (S32E02 L=317)  1133    224        2 (1156/ 386-1300/ 543)  28.3 E09-W04 S36-S27
     11  912  436 (S25E23 L=296)   418    111        0 ( 885/ 393- 947/ 488)  35.5 E25-E18 S27-S22
     12  712  453 (S20E35 L=284)   471     71        1 ( 686/ 415- 742/ 480) -90.0 E36-E31 S22-S17
     13 1450  302 (S54W12 L=331)   492     59        2 (1420/ 287-1486/ 318) -14.0 W08-W16 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