Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1123 1618 (N43W10 L=218)   532    152        1 (1066/1568-1177/1660) -36.9 W05-W13 N38-N46
      2 1228 1526 (N36W17 L=225)   252     39        1 (1211/1500-1242/1553)  53.1 W15-W18 N33-N37
      3 1700 1484 (N30W58 L=266)  1279    146        0 (1634/1442-1768/1522) -21.0 W52-W66 N26-N32
      4  262 1266 (N19E58 L=150)  1551    238        3 ( 227/1167- 313/1341) -65.6 E65-E53 N12-N23
      5 1757 1266 (N16W55 L=263)   558    128        0 (1697/1233-1805/1285) -16.7 W49-W60 N13-N17
      6  959  903 (S03E04 L=204)   219     83        0 ( 930/ 877- 979/ 942)  53.1 E06-E02 S04-N00
      7  649  840 (S07E24 L=184)   907    255        1 ( 558/ 760- 734/ 927) -39.8 E30-E18 S11-S01
      8 1125  760 (S13W06 L=214)   539    264        1 (1012/ 697-1163/ 829)  45.0 E01-W08 S16-S08
      9  471  776 (S11E38 L=170)   312     65        0 ( 447/ 750- 494/ 810)  53.1 E39-E35 S12-S08
     10  424  679 (S17E43 L=165)  3894    546       13 ( 268/ 560- 563/ 787) -30.6 E56-E33 S25-S10
     11 1438  636 (S22W27 L=235)   666    228        1 (1338/ 570-1491/ 700)  35.0 W20-W30 S26-S17
     12  712  595 (S23E22 L=186)  1077    288        1 ( 652/ 468- 784/ 687)  51.3 E29-E16 S31-S16
     13 1309  607 (S23W18 L=226)   523    112        0 (1269/ 572-1359/ 643)  33.7 W15-W21 S25-S20
     14 1120  541 (S27W05 L=213)   320     98        0 (1088/ 505-1158/ 582)  51.3 W03-W07 S29-S24
     15 1181  403 (S38W11 L=218)  1382    349        4 (1077/ 318-1314/ 489)  37.4 W02-W19 S45-S31
     16  745  418 (S36E23 L=185)   456     63        1 ( 708/ 399- 778/ 447)  18.4 E26-E20 S37-S33
     17  628  393 (S38E35 L=173)   426     77        1 ( 600/ 364- 656/ 426) -78.7 E36-E31 S40-S35
     18 1009  347 (S42E03 L=205)   590     85        1 ( 966/ 323-1041/ 373) -33.7 E06-W00 S44-S39
     19  911  193 (S58E17 L=191)   521     50        1 ( 893/ 172- 935/ 221) -80.5 E20-E14 S61-S54
  

    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