Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  586 1502 (N30E36 L=359)   369    114        1 ( 545/1448- 605/1542) -40.6 E40-E32 N26-N32
      2 1278 1477 (N33W16 L= 51)   246     56        0 (1249/1458-1303/1502) -45.0 W14-W17 N31-N34
      3  239 1223 (N10E60 L=335)   391     78        2 ( 211/1176- 262/1254)  78.7 E63-E57 N06-N11
      4  236 1085 (N01E58 L=337)  1176    249        3 ( 189/ 979- 272/1193) -45.0 E65-E53 S04-N07
      5  210  912 (S10E60 L=334)  1619    190        6 ( 167/ 852- 267/ 990) -33.7 E66-E54 S13-S04
      6 1335  891 (S04W20 L= 55)   274      0       -1 (1311/ 862-1360/ 914) -56.3 W18-W21 S06-S02
      7  625  839 (S11E25 L= 10)   299     90        1 ( 585/ 807- 657/ 869) -31.0 E27-E22 S12-S09
      8  177  794 (S17E68 L=326)  2263    160        5 ( 133/ 728- 208/ 864)  48.4 E76-E62 S21-S12
      9 1366  804 (S10W23 L= 57)   323    100        3 (1329/ 765-1415/ 831)  59.0 W20-W25 S12-S07
     10  482  722 (S19E36 L=359)  2376    404        8 ( 366/ 619- 569/ 821)  28.8 E48-E28 S27-S13
     11  295  776 (S17E53 L=342)   353     73        2 ( 275/ 751- 319/ 812)  38.7 E55-E49 S19-S14
     12 1718  724 (S14W52 L= 86)   380     78        3 (1676/ 704-1750/ 739)   0.0 W47-W55 S15-S12
     13  704  565 (S29E20 L= 14)  2101    581        6 ( 516/ 471- 940/ 686)  25.9 E38-E03 S37-S19
     14 1334  345 (S42W31 L= 66)   321     37        1 (1318/ 325-1356/ 368) -26.6 W28-W34 S43-S40
     15  889  306 (S49E07 L= 27)   341     54        0 ( 858/ 289- 917/ 324) -18.4 E10-E04 S49-S46
  

    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