Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1791 1479 (N11W71 L=273)   962     63        1 (1754/1458-1821/1501) -26.6 W66-W76 N08-N12
      2  428 1342 (N39E36 L=166)   289    103        0 ( 380/1327- 479/1353) -11.3 E41-E31 N37-N39
      3 1323 1330 (N17W25 L=228)   239    112        1 (1267/1316-1380/1347) -33.7 W22-W28 N15-N19
      4 1591 1140 (S00W37 L=239)  1459    412        1 (1472/ 945-1696/1212)  17.7 W24-W46 S08-N02
      5  368 1169 (N29E42 L=160)   716    170        1 ( 286/1137- 444/1197)   0.0 E50-E35 N27-N30
      6 1838 1009 (S15W55 L=257)  2535    261        5 (1768/ 928-1895/1080)  10.6 W46-W63 S20-S11
      7  136 1044 (N24E71 L=131)  1857     90        2 (  87/1010- 174/1079)   2.9 E84-E64 N21-N26
      8  638  988 (N13E24 L=179)   208     78        0 ( 605/ 963- 669/1018)  21.8 E26-E21 N12-N14
      9 1879  919 (S22W59 L=262)   458     56        1 (1854/ 899-1901/ 939)  -9.5 W56-W63 S23-S20
     10 1308  887 (S07W13 L=215)   251    101        0 (1273/ 849-1342/ 934)  31.0 W10-W15 S08-S05
     11 1805  872 (S22W50 L=252)   418     71        1 (1785/ 835-1822/ 901) -68.2 W47-W51 S25-S20
     12 1142  824 (S07W02 L=204)   512    184        0 (1110/ 781-1209/ 898) -69.4 W00-W05 S10-S02
     13 1094  807 (S07E01 L=201)   353    136        0 (1076/ 741-1116/ 872)  82.9 E01-W00 S10-S02
     14  540  796 (N04E34 L=168)   248     79        1 ( 501/ 775- 579/ 814)   0.0 E37-E31 N02-N04
     15 1477  752 (S20W21 L=223)   252     48        0 (1455/ 724-1493/ 775) -76.0 W19-W22 S21-S17
     16 1217  688 (S17W03 L=206)   963    357        2 (1099/ 566-1327/ 773)  25.2 E06-W11 S21-S13
     17 1119  719 (S12E02 L=201)   394    133        0 (1076/ 671-1157/ 770)  33.7 E05-W01 S14-S10
     18  231  730 (N04E64 L=139)   432     77        0 ( 212/ 706- 259/ 768) -45.0 E65-E60 N02-N06
     19  832  723 (S06E18 L=184)   317     88        2 ( 793/ 696- 873/ 754)   0.0 E20-E15 S07-S04
     20 1447  722 (S21W18 L=221)   221     40        0 (1427/ 691-1463/ 741) -71.6 W17-W19 S22-S19
     21  679  662 (S06E29 L=173)   331     51        1 ( 654/ 635- 698/ 692)  76.0 E30-E27 S08-S04
     22  756  652 (S08E24 L=178)   316     57        1 ( 726/ 624- 781/ 676) -76.0 E25-E22 S10-S06
     23  955  644 (S13E13 L=190)   221     66        2 ( 923/ 617- 985/ 674)  11.3 E15-E10 S14-S11
     24  678  553 (S13E32 L=170)  1295    211        5 ( 608/ 506- 765/ 620) -10.3 E37-E26 S16-S07
     25  651  472 (S18E38 L=165)  1221    253        3 ( 547/ 426- 760/ 516) -14.0 E45-E29 S21-S14
     26  868  371 (S29E28 L=175)  1195    362        3 ( 760/ 267- 998/ 492)  22.9 E40-E14 S35-S23
     27  566  322 (S27E54 L=148)  2808    270        6 ( 494/ 209- 620/ 424)  46.6 E69-E49 S36-S18
     28  637  366 (S25E44 L=158)   872    113        4 ( 588/ 325- 684/ 408) -66.8 E47-E41 S28-S20
     29  510  319 (S26E60 L=142)  2619    174        7 ( 448/ 259- 568/ 399)  67.4 E67-E55 S31-S19
  

    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