Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  356 1542 (N32E54 L=319)   413     52        0 ( 337/1505- 377/1567) -32.0 E57-E49 N29-N34
      2  815 1494 (N27E13 L=360)   274    115        0 ( 784/1444- 834/1526) -80.5 E15-E11 N23-N29
      3  408 1478 (N27E45 L=328)   401     57        2 ( 382/1448- 431/1502)  71.6 E47-E42 N25-N28
      4  923 1439 (N23E06 L=  7)   212    113        0 ( 880/1410- 958/1454) -21.8 E08-E03 N20-N23
      5  195 1315 (N18E64 L=309)  2568    249       12 ( 152/1235- 232/1407)  63.4 E71-E59 N12-N24
      6  261 1319 (N18E55 L=318)  1011    167        5 ( 227/1253- 294/1398) -83.7 E58-E52 N13-N22
      7  532 1096 (N03E31 L=342)   435    111        1 ( 496/1055- 579/1148)  45.0 E33-E27 N00-N05
      8  372  767 (S16E46 L=327)   983    330        0 ( 296/ 636- 456/ 893) -63.4 E50-E41 S24-S08
      9  153  730 (S17E74 L=299)   909     87        1 ( 118/ 695- 190/ 756) -12.1 E84-E68 S19-S15
     10 1702  629 (S27W51 L= 64)   699    116        2 (1671/ 573-1732/ 681)  81.9 W49-W54 S31-S24
     11  379  472 (S35E58 L=315)  1149    140        2 ( 318/ 433- 446/ 501)   9.9 E71-E48 S37-S33
     12 1568  379 (S45W51 L= 64)   469     41        1 (1543/ 357-1594/ 409)  90.0 W47-W54 S47-S43
     13 1282  343 (S49W22 L= 35)  1549    256        3 (1175/ 309-1386/ 388) -12.8 W11-W34 S51-S44
     14 1042  337 (S49E00 L= 13)   453     80        1 (1014/ 311-1091/ 361)  26.6 E02-W04 S50-S46
     15  658  226 (S57E48 L=325)   540     66        0 ( 628/ 214- 696/ 244)   0.0 E54-E42 S58-S55
  

    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