Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  393 1282 (N02E47 L= 51)   350     92        1 ( 348/1266- 427/1301)  18.4 E50-E43 N00-N03
      2 1185 1218 (N13W06 L=103)   564    162        0 (1136/1167-1261/1288) -26.6 W01-W11 N11-N16
      3  568  993 (S12E27 L= 70)   440    134        0 ( 546/ 931- 587/1067) -60.3 E30-E26 S16-S08
      4 1169  924 (S05W10 L=108)   534    183        0 (1102/ 844-1201/1020) -41.6 W04-W13 S08-N00
      5 1773  923 (N08W53 L=150)   602    163        3 (1728/ 868-1815/ 961) -16.7 W48-W58 N05-N09
      6 1343  884 (S03W22 L=119)   209     68        0 (1326/ 850-1362/ 921)  90.0 W20-W22 S05-N00
      7  331  839 (S26E44 L= 53)   311    119        1 ( 293/ 822- 378/ 863)  15.9 E47-E40 S27-S24
      8 1000  708 (S21W05 L=102)   600    215        2 ( 879/ 676-1097/ 755)  33.7 E02-W10 S24-S16
      9 1355  624 (S18W30 L=127)   285     90        0 (1317/ 582-1403/ 650)  51.3 W28-W32 S21-S16
     10  663  590 (S36E16 L= 82)   465    127        0 ( 636/ 536- 703/ 642)  71.6 E17-E13 S40-S31
     11 1462  613 (S17W37 L=134)   357     58        1 (1437/ 581-1489/ 639)  90.0 W35-W39 S18-S15
     12 1524  568 (S18W43 L=141)   383     70        1 (1499/ 540-1547/ 599)  90.0 W41-W45 S20-S16
     13  882  517 (S36W02 L= 99)   267     46        0 ( 859/ 495- 911/ 538)  53.1 W00-W03 S37-S33
     14 1554  464 (S24W51 L=148)   494    179        2 (1484/ 447-1619/ 474)  14.0 W45-W57 S25-S22
     15 1440  278 (S39W54 L=152)  1106    207        1 (1370/ 261-1509/ 304)  21.8 W48-W59 S40-S35
  

    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