Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  547 1562 (N47E22 L=222)   344     46        0 ( 519/1541- 578/1581)  -9.5 E25-E19 N46-N48
      2 1438 1488 (N20W37 L=282)   960    330        0 (1357/1388-1499/1574)  31.6 W28-W41 N15-N25
      3  406 1533 (N49E38 L=206)   542     76        1 ( 382/1492- 435/1566)  78.7 E40-E34 N45-N51
      4  930 1473 (N31W05 L=249)  1035    288        2 ( 795/1443-1068/1492) -16.4 E03-W14 N28-N33
      5 1221 1201 (N09W15 L=259)  1009    295        2 (1105/1171-1372/1233) -14.0 W07-W23 N04-N11
      6  349 1015 (N17E43 L=201)   916    205        1 ( 270/ 940- 428/1068) -39.3 E49-E37 N10-N20
      7 1063  677 (S17E06 L=239)   189     75        1 (1031/ 647-1098/ 702) -63.4 E07-E04 S19-S15
      8 1680  663 (S34W37 L=281)   634    100        0 (1628/ 635-1729/ 697)   6.3 W31-W41 S35-S32
      9  644  609 (S12E32 L=212)   346    126        0 ( 578/ 593- 698/ 631) -14.0 E36-E28 S13-S10
     10  543  582 (S12E40 L=204)   283     89        0 ( 522/ 544- 570/ 619)  68.2 E41-E37 S14-S09
     11  656  495 (S19E36 L=208)   351     69        0 ( 640/ 457- 674/ 535)  59.0 E37-E34 S21-S16
     12  532  329 (S27E56 L=188)  1609    178        1 ( 459/ 286- 621/ 361)   2.5 E69-E46 S29-S24
     13  991  244 (S45E27 L=217)  1420    210        1 ( 906/ 198-1074/ 303)   0.0 E36-E18 S47-S41
  

    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