Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  572 1569 (N37E38 L=240)   754    187        1 ( 524/1529- 638/1619) -26.6 E43-E31 N34-N40
      2 1006 1485 (N33E02 L=275)   242     50        0 ( 977/1467-1039/1501)  26.6 E04-W00 N31-N33
      3  747 1308 (N20E19 L=259)   593    187        1 ( 674/1253- 852/1365)  28.6 E23-E12 N16-N24
      4  262 1297 (N17E58 L=219)   624    105        1 ( 237/1266- 294/1330)  31.0 E62-E55 N15-N19
      5  855 1191 (N13E11 L=266)   596    182        1 ( 776/1138- 920/1271)  45.0 E15-E07 N09-N18
      6  701 1192 (N13E21 L=256)   412    128        1 ( 675/1142- 755/1249) -50.2 E23-E17 N09-N16
      7  149 1150 (N07E71 L=206)  1858    303       10 ( 126/1080- 183/1232) -45.0 E77-E65 N03-N11
      8  770  860 (S08E16 L=262)   458    152        0 ( 720/ 819- 830/ 886)  15.9 E18-E11 S10-S05
      9 1103  660 (S20W06 L=283)  1347    381        3 ( 979/ 546-1185/ 818)  57.1 E02-W10 S27-S09
     10  817  702 (S17E13 L=265)   393    114        2 ( 764/ 673- 874/ 723)   0.0 E16-E09 S19-S15
     11  208  680 (S22E65 L=213)   824     96        2 ( 181/ 645- 233/ 706) -53.1 E68-E61 S24-S20
     12  777  612 (S24E16 L=261)   519    208        3 ( 738/ 524- 797/ 687) -84.8 E18-E14 S29-S18
     13  343  623 (S25E51 L=227)   564    211        2 ( 303/ 575- 381/ 684)  36.0 E56-E45 S28-S20
     14  521  592 (S26E35 L=242)   443    103        1 ( 505/ 544- 550/ 633)  56.3 E37-E32 S29-S23
     15  501  397 (S41E44 L=234)  1656    330        5 ( 425/ 351- 589/ 472)  26.6 E54-E32 S45-S34
  

    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