Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  317 1543 (N11E63 L=115)  1628    227        2 ( 283/1475- 400/1608)  60.9 E69-E57 N06-N15
      2  484 1427 (N06E43 L=136)   309     87        0 ( 446/1388- 526/1459)  56.3 E44-E40 N02-N08
      3  530 1386 (N04E38 L=141)   306     72        1 ( 493/1358- 572/1410)  45.0 E40-E35 N01-N06
      4 1075 1286 (N09E03 L=176)   631    149        1 (1051/1211-1118/1362) -49.4 E05-W01 N04-N13
      5  177 1140 (S15E63 L=116)  4181    555       11 ( 119/1034- 241/1250) -81.3 E72-E56 S21-S08
      6  888 1202 (S00E11 L=167)   224     47        1 ( 867/1181- 910/1232) -18.4 E12-E09 S01-N01
      7  476  890 (S26E32 L=147)  1439    341        5 ( 370/ 773- 587/1011)  52.1 E40-E25 S34-S16
      8 1522  981 (N02W30 L=209)   207     50        1 (1495/ 962-1546/ 994)  18.4 W28-W31 N00-N03
      9 1377  965 (S02W21 L=200)   211     84        0 (1356/ 918-1408/ 989)  78.7 W20-W22 S05-N00
     10 1461  812 (S09W31 L=210)   295     80        3 (1417/ 793-1499/ 833)   9.5 W27-W33 S09-S07
     11 1451  672 (S17W35 L=213)  1355    343        3 (1293/ 578-1572/ 782)  60.9 W27-W39 S25-S07
     12 1593  701 (S11W43 L=222)   629    149        1 (1555/ 645-1622/ 741) -29.7 W40-W47 S13-S08
     13 1029  525 (S36W14 L=193)   550    153        0 ( 955/ 502-1115/ 548)  15.3 W08-W19 S38-S34
     14 1582  509 (S22W51 L=230)   322     59        0 (1550/ 493-1610/ 532)  63.4 W48-W52 S23-S19
     15 1696  446 (S21W65 L=244)  1694    300        2 (1617/ 404-1790/ 490)  33.7 W59-W75 S25-S15
  

    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