Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1292 1686 (N35W42 L=148)  1428    238        4 (1187/1647-1409/1712) -29.7 W34-W50 N29-N38
      2  378 1400 (N45E39 L= 67)  1347    186        1 ( 300/1363- 462/1445) -20.9 E50-E29 N40-N49
      3 1824 1078 (S15W54 L=160)  1916    453        4 (1716/ 922-1896/1266)  28.3 W40-W67 S20-S06
      4 1534 1138 (S02W32 L=138)   367     80        0 (1518/1094-1554/1182)  78.7 W30-W33 S05-N00
      5  150 1060 (N28E67 L= 39)  1779    151        2 (  87/1003- 204/1105) -14.0 E84-E58 N23-N31
      6  135  838 (N15E74 L= 32)   831     81        1 (  99/ 809- 168/ 861) -11.3 E83-E68 N13-N16
      7  400  753 (N06E46 L= 60)   498     92        1 ( 362/ 718- 447/ 789) -45.0 E48-E42 N02-N08
      8 1589  657 (S32W26 L=132)  1368    279        1 (1547/ 551-1620/ 781)  71.6 W20-W28 S38-S23
      9  236  727 (N07E63 L= 43)   444     26        0 ( 213/ 709- 258/ 747)   0.0 E65-E59 N05-N08
     10  903  586 (S16E19 L= 87)   266     48        0 ( 890/ 553- 917/ 620)  53.1 E20-E17 S17-S13
     11  765  470 (S19E32 L= 74)   772    188        1 ( 709/ 408- 807/ 559)  32.5 E38-E27 S22-S13
     12 1361  409 (S42W03 L=109)   422    112        0 (1308/ 389-1416/ 437)  -7.1 E01-W07 S43-S40
     13  697  375 (S24E41 L= 65)   287     66        0 ( 659/ 359- 728/ 389)  -9.5 E45-E39 S24-S22
  

    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