Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1239 1414 (N20W22 L= 66)   348    153        1 (1179/1358-1297/1453) -69.4 W18-W24 N15-N23
      2 1114 1399 (N22W14 L= 58)   288     85        1 (1098/1357-1137/1442)  78.7 W12-W14 N19-N24
      3  545 1410 (N36E24 L= 20)   287     81        0 ( 508/1395- 586/1427)   0.0 E27-E20 N34-N36
      4  903 1394 (N26W01 L= 45)  1170    263        2 ( 795/1344-1018/1419) -26.6 E06-W06 N20-N29
      5 1061 1264 (N15W07 L= 52)   225     44        0 (1029/1248-1092/1278) -26.6 W05-W09 N14-N16
      6  275 1211 (N29E50 L=355)   374     49        1 ( 251/1184- 302/1234)  33.7 E52-E46 N26-N29
      7  758 1179 (N17E12 L= 32)   551    144        1 ( 698/1142- 828/1215) -40.6 E15-E08 N13-N19
      8  361 1135 (N22E41 L=  3)   881     28        1 ( 288/1073- 445/1204) -37.6 E48-E35 N17-N27
      9 1643 1107 (S06W40 L= 84)   480    140        0 (1611/1067-1681/1157) -80.5 W37-W42 S08-S02
     10 1821 1024 (S15W54 L= 99)  2314    274        7 (1782/ 912-1860/1149)  85.9 W49-W59 S21-S07
     11 1020 1109 (N07W01 L= 46)   182     81        1 ( 973/1089-1052/1123) -14.0 E01-W03 N05-N08
     12 1728 1014 (S14W45 L= 90)   554    124        4 (1670/ 988-1780/1044) -18.4 W40-W49 S16-S11
     13  195  938 (N13E61 L=344)   397     59        2 ( 179/ 910- 214/ 971)  63.4 E63-E58 N11-N15
     14 1213  817 (S13W07 L= 51)   294     71        0 (1192/ 789-1242/ 846)  33.7 W05-W08 S14-S11
     15 1347  769 (S19W14 L= 58)   245     70        0 (1328/ 746-1377/ 797)  71.6 W12-W15 S20-S17
     16  550  747 (S04E35 L= 10)   391    103        1 ( 511/ 716- 580/ 773) -36.9 E37-E32 S05-S02
     17  444  635 (S08E46 L=359)   430     76        2 ( 426/ 599- 466/ 680)  68.2 E47-E43 S10-S05
     18  645  409 (S26E42 L=  3)  1909    370        1 ( 603/ 261- 671/ 570)  51.0 E54-E35 S36-S15
     19  275  531 (S12E69 L=335)   587     52        3 ( 248/ 509- 297/ 561)   5.7 E74-E64 S13-S10
  

    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