Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  558 1267 (N31E23 L=153)   427     69        2 ( 519/1242- 601/1286) -26.6 E25-E19 N28-N32
      2  203 1028 (N24E58 L=118)  1429    227        3 ( 148/ 958- 286/1126) -40.9 E66-E49 N18-N31
      3 1363 1023 (S03W19 L=195)   211     83        1 (1340/ 986-1388/1065)  45.0 W16-W21 S05-S01
      4 1000  877 (S02E05 L=171)   741    194        4 ( 901/ 843-1082/ 901) -36.9 E10-W00 S05-N01
      5 1604  758 (S26W29 L=205)   515    207        0 (1511/ 730-1679/ 814)   0.0 W21-W35 S26-S23
      6  401  739 (N04E46 L=130)   433     68        0 ( 383/ 701- 420/ 770)  53.1 E47-E43 N01-N05
      7 1332  623 (S26W07 L=183)   658    171        1 (1266/ 585-1391/ 687)  11.3 W02-W12 S26-S23
      8 1149  614 (S21E04 L=172)   300     92        1 (1124/ 565-1168/ 660)  81.9 E05-E02 S24-S17
      9  774  558 (S14E27 L=149)   238    140        0 ( 744/ 527- 815/ 593) -53.1 E28-E24 S16-S12
     10  327  486 (S10E65 L=111)  2345    251        6 ( 238/ 419- 443/ 536) -30.5 E79-E56 S15-S05
     11  566  437 (S17E46 L=130)   641    191        1 ( 509/ 371- 615/ 512)  26.6 E53-E39 S20-S13
     12 1016  447 (S28E17 L=159)   275    103        0 ( 972/ 421-1060/ 482)   8.1 E20-E13 S28-S26
     13  918  282 (S36E32 L=144)   744    165        3 ( 892/ 226- 950/ 359)  39.3 E37-E26 S40-S31
     14  870  181 (S43E45 L=131)   407     60        1 ( 842/ 169- 910/ 198) -15.9 E48-E41 S44-S41
  

    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