Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1730 1448 (N14W61 L= 22)  1090    240        4 (1686/1387-1797/1525)  83.7 W57-W68 N10-N19
      2  205 1133 (N26E58 L=262)  3031    602        7 ( 156/ 909- 297/1357) -76.4 E63-E51 N11-N40
      3 1061 1287 (N22W08 L=329)  1125    277        3 ( 925/1239-1182/1326) -35.5 W00-W14 N16-N26
      4  589 1247 (N28E24 L=297)   450     53        1 ( 555/1219- 623/1271) -45.0 E26-E21 N26-N30
      5 1856 1201 (S03W64 L= 25)   772    106        3 (1833/1156-1871/1243)  78.7 W61-W67 S05-N00
      6 1484 1092 (N01W29 L=350)   405    109        0 (1438/1053-1519/1138)  15.9 W25-W32 N00-N03
      7  744 1036 (N13E17 L=304)   306    112        0 ( 698/1010- 795/1081) -45.0 E18-E13 N10-N16
      8 1224  897 (S04W09 L=330)  1179    447        2 (1144/ 768-1324/1058)  56.3 W04-W17 S12-N03
      9 1345  777 (S14W14 L=335)   203     88        1 (1304/ 749-1364/ 820)  31.0 W11-W16 S15-S11
     10  282  575 (S09E65 L=255)  2166    328        5 ( 235/ 516- 327/ 633) -77.5 E71-E59 S13-S04
     11  764  537 (S18E27 L=294)  1082    270        6 ( 714/ 437- 811/ 632)  45.0 E32-E21 S23-S12
     12  397  536 (S12E54 L=266)   385     39        0 ( 375/ 509- 422/ 565) -76.0 E55-E52 S14-S10
     13  697  387 (S27E37 L=284)   311     79        1 ( 669/ 365- 731/ 413)   0.0 E40-E34 S28-S24
     14  609  314 (S31E48 L=273)  1509    247        3 ( 506/ 280- 682/ 374) -32.5 E53-E41 S34-S24
  

    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