Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  330 1500 (N30E63 L=180)   534     67        0 ( 305/1479- 362/1529) -10.3 E68-E57 N28-N31
      2  372 1249 (N14E47 L=195)   329    135        1 ( 359/1182- 394/1298) -66.8 E48-E45 N10-N17
      3  304  649 (S24E56 L=187)   744    158        0 ( 284/ 576- 344/ 707)  42.3 E61-E49 S29-S19
      4  639  534 (S30E27 L=216)   264     46        0 ( 614/ 519- 672/ 548)   0.0 E28-E24 S31-S29
      5 1081  400 (S39W07 L=249)   615    123        1 (1047/ 354-1109/ 465)  71.6 W04-W08 S42-S33
      6 1440  393 (S39W38 L=280)   473    110        0 (1387/ 369-1492/ 421)  26.6 W33-W41 S40-S36
      7  951  371 (S42E04 L=239)   708    112        2 ( 887/ 341- 993/ 397)  -7.1 E09-W00 S44-S39
      8  673  361 (S44E29 L=214)   353     55        0 ( 643/ 343- 703/ 381) -21.8 E31-E25 S45-S42
  

    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