Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1333 1570 (N31W37 L=304)  3119    818        5 (1003/1473-1661/1606) -25.5 W12-W57 N16-N39
      2 1355 1277 (N14W26 L=293)   710    285        0 (1235/1212-1463/1321) -42.3 W18-W30 N07-N18
      3 1013 1193 (N17W03 L=270)   419    100        2 ( 980/1140-1044/1233)  59.0 W01-W05 N14-N19
      4  498 1059 (N19E33 L=235)   452    139        0 ( 459/1026- 569/1099) -36.9 E35-E27 N16-N22
      5  670  914 (N08E23 L=244)   431    197        0 ( 648/ 847- 717/1002)  83.7 E25-E21 N03-N12
      6  497  877 (N09E36 L=232)   329     98        2 ( 470/ 825- 525/ 922) -80.5 E37-E34 N05-N11
      7 1855  818 (S27W57 L=325)  1521    244        4 (1790/ 733-1917/ 913)  23.6 W49-W68 S31-S23
      8  557  689 (S03E36 L=231)  1804    440        4 ( 451/ 539- 702/ 813)  20.0 E46-E24 S12-N03
      9  413  593 (S07E51 L=217)  1455    242        7 ( 369/ 515- 469/ 678)  79.7 E55-E47 S12-S01
     10  282  519 (S11E71 L=197)  1344     87        4 ( 244/ 490- 319/ 546) -23.2 E80-E65 S12-S08
     11  492  470 (S16E50 L=217)  1673    248        4 ( 453/ 380- 538/ 541)  45.0 E59-E44 S22-S11
     12 1410  409 (S42W12 L=279)  1254    250        2 (1319/ 337-1500/ 490)  19.4 W03-W20 S46-S37
     13  831  426 (S25E27 L=240)   270     99        0 ( 792/ 399- 875/ 446)   9.5 E30-E24 S26-S23
     14  559  401 (S22E48 L=219)   516     79        1 ( 527/ 368- 583/ 429) -90.0 E50-E46 S24-S19
  

    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