Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  865 1761 (N44E31 L=209)   597     62        2 ( 842/1727- 897/1790) -45.0 E34-E28 N41-N47
      2  279 1520 (N17E71 L=170)  1031     78        0 ( 244/1496- 317/1548)  -3.4 E80-E63 N15-N18
      3 1262 1329 (N22W10 L=250)   250    113        1 (1218/1284-1294/1362) -26.6 W06-W12 N19-N23
      4 1072 1211 (N11E00 L=240)  1439    462        5 ( 993/1121-1177/1281)  41.6 E05-W05 N05-N16
      5  605 1225 (N04E29 L=211)   305    169        1 ( 536/1197- 678/1254)   0.0 E34-E24 N03-N06
      6  819 1185 (N05E15 L=226)   364    127        0 ( 808/1124- 833/1249) -66.8 E16-E13 N02-N09
      7 1224 1208 (N13W09 L=249)   305    171        0 (1141/1188-1272/1247)  35.5 W04-W11 N11-N16
      8  243 1068 (S10E56 L=185)   330     48        0 ( 230/1039- 257/1099)  90.0 E57-E54 S12-S08
      9 1328 1075 (N07W17 L=258)   257     91        0 (1285/1056-1377/1093)   9.5 W14-W20 N05-N08
     10 1073  839 (S11W06 L=246)  1050    360        1 (1000/ 700-1163/ 983)  81.5 W03-W08 S20-N00
     11  182  896 (S22E63 L=178)  1219    163        1 ( 121/ 844- 244/ 942)  20.0 E76-E54 S26-S18
     12 1205  761 (S13W15 L=256)   196     42        1 (1180/ 744-1229/ 776) -14.0 W13-W17 S14-S12
     13 1503  654 (S15W38 L=278)   402     91        1 (1458/ 621-1538/ 684) -20.6 W33-W41 S16-S13
     14  534  354 (S56E34 L=207)  1539    151        3 ( 469/ 312- 605/ 399) -17.4 E42-E25 S59-S51
  

    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