Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1631 1602 (N26W63 L= 77)  1151    141        2 (1578/1572-1680/1643) -50.2 W58-W70 N23-N29
      2  597 1437 (N40E23 L=351)  1100    211        0 ( 534/1392- 694/1502) -38.2 E28-E14 N35-N46
      3 1262 1325 (N19W21 L= 35)   230     91        0 (1249/1278-1279/1365)  68.2 W20-W22 N16-N21
      4  165 1284 (N36E74 L=299)  1291     91        0 ( 136/1247- 198/1329) -11.3 E86-E65 N33-N38
      5  285 1123 (N25E52 L=322)   549     92        1 ( 265/1082- 307/1168) -51.3 E54-E49 N22-N27
      6  214  998 (N18E60 L=313)   476    104        1 ( 183/ 958- 242/1022) -31.0 E64-E57 N15-N19
      7  383  917 (N11E44 L=329)   340     92        1 ( 350/ 890- 430/ 936)   8.1 E47-E40 N09-N12
      8  351  595 (S08E56 L=317)  1190    213        2 ( 305/ 527- 392/ 662) -83.7 E60-E54 S12-S03
      9  588  618 (S10E36 L=338)   488    106        2 ( 548/ 578- 622/ 648)  26.6 E39-E33 S11-S07
     10  592  492 (S18E40 L=333)  1208    387        2 ( 469/ 429- 717/ 573) -45.0 E46-E31 S23-S10
     11  947  514 (S23E16 L=358)   298     98        0 ( 905/ 502- 999/ 536) -31.0 E17-E12 S24-S20
     12 1571  492 (S40W29 L= 43)   630     82        1 (1541/ 467-1595/ 529)  53.1 W26-W32 S42-S36
     13 1260  408 (S38W02 L= 16)   299     67        0 (1239/ 384-1285/ 442)  36.9 W00-W04 S39-S35
  

    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