Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1554 1610 (N24W52 L=357)   346     66        0 (1536/1577-1582/1633)  15.9 W49-W56 N22-N25
      2 1269 1570 (N28W30 L=334)   282     38        1 (1247/1551-1296/1588) -45.0 W27-W31 N26-N29
      3  722 1444 (N33E10 L=295)   315     71        0 ( 681/1417- 761/1464)   0.0 E13-E06 N32-N34
      4 1285 1451 (N21W26 L=330)   226     69        0 (1248/1439-1323/1464) -31.0 W23-W28 N19-N22
      5 1664 1417 (N10W51 L=355)   764    119        1 (1608/1395-1733/1442) -24.0 W47-W56 N07-N12
      6  715 1217 (N20E14 L=290)   191     73        0 ( 676/1204- 754/1231) -11.3 E16-E11 N19-N20
      7 1843 1135 (S09W58 L=  2)  1188    198        7 (1808/1038-1869/1215)  42.0 W52-W62 S14-S04
      8 1803 1156 (S07W54 L=358)   589    110        1 (1781/1114-1827/1200)  26.6 W51-W57 S09-S04
      9  631  997 (N09E23 L=281)   227     55        0 ( 603/ 976- 655/1017) -56.3 E24-E21 N07-N10
     10 1624  794 (S24W33 L=337)  4903    943       13 (1231/ 515-1903/ 993)  12.0 W01-W62 S32-S18
     11 1442  931 (S12W22 L=327)   338    153        0 (1363/ 905-1504/ 964)   0.0 W16-W26 S12-S10
     12  451  882 (N06E38 L=267)  1319    313        4 ( 343/ 796- 566/ 951)  11.9 E47-E28 N02-N08
     13 1123  720 (S17E01 L=304)   191     68        0 (1096/ 698-1147/ 742)  26.6 E02-W00 S17-S15
     14 1031  315 (S41E19 L=285)   914    261        0 ( 922/ 254-1150/ 385)   7.8 E30-E08 S43-S38
     15  642  288 (S34E50 L=255)  1555    221        4 ( 562/ 219- 727/ 365)  12.1 E65-E37 S37-S30
  

    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