Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1438 1764 (N41W61 L=258)   590     66        1 (1409/1734-1469/1785)   0.0 W55-W67 N39-N42
      2 1296 1750 (N45W46 L=243)   373     54        0 (1277/1724-1324/1768)   8.1 W42-W49 N43-N46
      3 1090 1702 (N48W26 L=222)   416     57        2 (1067/1668-1112/1732)  33.7 W22-W28 N45-N49
      4  803 1591 (N47E03 L=194)  1946    446        3 ( 657/1519-1004/1674)   3.6 E16-W16 N43-N49
      5 1667 1426 (N15W54 L=251)   349     87        0 (1633/1389-1697/1452) -68.2 W51-W55 N12-N17
      6  608 1374 (N36E22 L=175)   335     95        1 ( 564/1347- 653/1395) -29.7 E25-E18 N33-N37
      7  232 1337 (N39E63 L=134)   510     64        1 ( 208/1303- 257/1364)  90.0 E67-E59 N36-N40
      8 1033 1204 (N17W04 L=201)  1274    321        2 ( 943/1072-1121/1326) -74.5 W01-W06 N08-N26
      9  285 1289 (N35E53 L=144)   341     37        1 ( 259/1266- 310/1302)   0.0 E56-E50 N33-N36
     10  230 1002 (N18E58 L=139)   493    102        0 ( 212/ 954- 253/1057) -66.8 E59-E55 N14-N21
     11 1747  775 (S24W45 L=242)  1247    229        2 (1693/ 721-1815/ 856) -59.0 W39-W52 S28-S18
     12  416  816 (N05E43 L=154)   354     71        2 ( 396/ 779- 439/ 851)  53.1 E44-E41 N02-N06
     13  871  779 (S04E14 L=183)   316     98        0 ( 855/ 732- 884/ 832)  63.4 E14-E11 S07-S01
     14  155  733 (N01E76 L=120)  2979    165        2 ( 116/ 664- 196/ 814) -76.0 E86-E70 S02-N06
     15 1139  662 (S17E00 L=196)   500    174        1 (1086/ 594-1175/ 739)  49.4 E04-W03 S20-S12
     16  311  668 (S03E57 L=140)   371     35        1 ( 291/ 644- 337/ 690)  71.6 E58-E54 S04-S01
     17  719  436 (S23E33 L=164)  1107    220        0 ( 685/ 339- 759/ 534)  47.3 E39-E26 S30-S17
     18 1345  504 (S32W10 L=207)   248     70        0 (1314/ 481-1374/ 534)  21.8 W07-W12 S33-S30
     19  409  438 (S19E59 L=137)  4691    254       10 ( 324/ 368- 501/ 529) -76.0 E75-E52 S24-S12
     20 1635  451 (S46W37 L=234)  1489    270        0 (1525/ 385-1734/ 519)   4.8 W25-W50 S49-S42
     21 1169  420 (S34E04 L=193)   395     95        1 (1141/ 367-1199/ 462)  45.0 E07-W00 S37-S30
     22  873  270 (S39E31 L=166)   320     35        0 ( 847/ 255- 896/ 284) -45.0 E33-E29 S40-S37
     23 1137  199 (S53E16 L=181)  1029    137        0 (1080/ 172-1214/ 226)  -8.7 E21-E07 S55-S50
  

    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