Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1242 1397 (N20W24 L= 98)   418    116        0 (1221/1340-1263/1454)  39.8 W21-W27 N17-N23
      2 1807 1265 (S04W59 L=133)  1962    251        4 (1769/1158-1845/1387)  72.9 W55-W62 S11-N02
      3 1880 1221 (S10W65 L=140)  1106    179        1 (1861/1152-1900/1294)  35.0 W61-W72 S13-S06
      4 1041 1188 (N15W05 L= 80)   450    176        1 ( 952/1165-1132/1221) -15.3 W00-W11 N12-N16
      5  643 1054 (N18E21 L= 53)   709    220        2 ( 548/1028- 760/1089) -28.3 E27-E14 N13-N21
      6 1580  844 (S20W28 L=102)  1436    375        3 (1540/ 684-1615/1051)  61.2 W22-W34 S28-S08
      7  171  865 (N16E65 L= 10)   674    123        2 ( 154/ 806- 184/ 926)  63.4 E67-E62 N12-N20
      8  626  699 (S02E32 L= 43)   232     39        0 ( 613/ 667- 640/ 731)  56.3 E33-E30 S03-N00
      9 1326  566 (S29W05 L= 79)  1212    274        2 (1209/ 498-1397/ 674)  19.7 E02-W12 S32-S23
     10  780  604 (S11E26 L= 49)   308    129        0 ( 725/ 578- 852/ 635)  -6.3 E29-E20 S11-S10
     11  869  490 (S20E25 L= 50)   570    205        0 ( 847/ 413- 888/ 591)  48.0 E28-E19 S25-S14
     12  528  431 (S16E50 L= 25)   670    149        1 ( 493/ 397- 578/ 471) -71.6 E52-E47 S18-S12
     13  572  332 (S23E53 L= 22)   439    108        1 ( 537/ 306- 608/ 357)  -9.5 E56-E49 S24-S21
  

    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