Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  431 1664 (N16E62 L=257)  1344    324        4 ( 395/1600- 455/1745) -54.0 E70-E57 N11-N22
      2  376 1561 (N09E61 L=258)   481     94        1 ( 353/1536- 407/1589)   0.0 E65-E57 N07-N10
      3  329 1204 (S13E49 L=270)  1114    201        1 ( 256/1151- 381/1271)  48.4 E54-E46 S17-S08
      4  143 1103 (S22E66 L=254)   609    164        0 ( 109/1074- 176/1132)  33.7 E69-E62 S24-S20
      5  305 1067 (S22E48 L=271)   513    180        1 ( 257/1012- 357/1104)  45.0 E51-E43 S25-S18
      6  744 1009 (S14E15 L=304)   221    102        0 ( 734/ 954- 752/1065) -71.6 E16-E13 S17-S11
      7  706  862 (S23E14 L=305)   204     88        1 ( 662/ 845- 750/ 883)   0.0 E17-E10 S24-S22
      8  358  808 (S36E39 L=280)   346    121        1 ( 321/ 765- 395/ 832)  45.0 E42-E36 S39-S33
      9 1811  682 (N00W65 L= 24)  1011    175        4 (1780/ 636-1833/ 755) -63.4 W61-W69 S02-N04
     10  248  659 (S49E52 L=267)  1172    270        1 ( 193/ 642- 308/ 688)  11.3 E59-E44 S50-S46
     11 1613  601 (S11W50 L=  9)   587    138        2 (1571/ 572-1674/ 618)  29.7 W46-W54 S12-S08
     12 1702  563 (S10W60 L= 19)   650    146        4 (1674/ 527-1724/ 597) -76.0 W56-W63 S11-S07
     13 1401  347 (S31W50 L=  9)  1449    400        3 (1263/ 295-1504/ 422)   7.1 W36-W60 S32-S28
  

    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