Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  455 1620 (N19E53 L=220)   442    119        1 ( 426/1594- 490/1640)  -8.1 E56-E49 N17-N20
      2  183 1157 (S12E63 L=210)  3336    454       13 ( 120/1061- 232/1263)  80.5 E69-E57 S17-S05
      3  252 1199 (S09E56 L=217)   400     95        0 ( 231/1154- 268/1249) -51.3 E58-E53 S11-S06
      4  899 1040 (S08E08 L=265)   232     52        0 ( 874/1017- 922/1074)  63.4 E08-E06 S10-S06
      5  787  990 (S13E13 L=260)   207     74        1 ( 743/ 968- 821/1005)  26.6 E15-E11 S14-S11
      6  373  911 (S25E41 L=232)   271     60        0 ( 358/ 884- 387/ 943) -76.0 E42-E39 S26-S22
      7 1267  855 (S12W18 L=291)   362    111        1 (1239/ 822-1313/ 891)   0.0 W15-W20 S13-S09
      8 1192  797 (S16W15 L=287)   713    237        1 (1081/ 753-1310/ 874)  -3.6 W06-W22 S18-S14
      9  823  777 (S25E07 L=266)  1101    399        4 ( 644/ 711-1024/ 859)  37.3 E18-W03 S32-S16
     10 1192  602 (S28W20 L=293)   203     67        1 (1163/ 587-1230/ 623)  14.0 W18-W22 S29-S26
     11 1831  579 (S12W73 L=346)   840    190        5 (1805/ 530-1859/ 609)  90.0 W68-W78 S14-S09
     12  603  550 (S44E21 L=252)   465    139        3 ( 581/ 493- 630/ 602)  82.9 E22-E18 S48-S40
     13 1550  554 (S22W46 L=319)   502    113        3 (1496/ 509-1604/ 596)  60.3 W43-W48 S25-S18
     14  872  489 (S42W02 L=275)   217     86        0 ( 831/ 477- 925/ 503)  31.0 W00-W05 S43-S40
     15 1200  410 (S39W29 L=302)   418    100        3 (1154/ 383-1243/ 444)  51.3 W26-W30 S42-S36
  

    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