Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1445 1774 (N41W63 L=258)   484     41        1 (1427/1745-1464/1797)  18.4 W58-W68 N39-N42
      2 1310 1757 (N45W48 L=243)   399     59        0 (1289/1731-1338/1776)   8.1 W44-W51 N43-N46
      3 1112 1712 (N48W28 L=223)   413     45        1 (1082/1685-1139/1741) -36.9 W25-W31 N45-N49
      4  831 1602 (N47E00 L=195)  2077    469        5 ( 694/1522-1022/1681)   3.7 E13-W18 N43-N49
      5  639 1378 (N36E19 L=175)   354     93        1 ( 590/1346- 679/1400) -29.7 E23-E16 N32-N37
      6  241 1342 (N39E61 L=134)   486     46        1 ( 218/1310- 264/1367) -76.0 E65-E58 N36-N40
      7 1066 1214 (N17W06 L=201)  1319    355        1 ( 968/1087-1157/1339) -74.5 W02-W09 N08-N26
      8  250  999 (N18E56 L=139)   393     96        0 ( 232/ 959- 271/1054) -63.4 E57-E53 N14-N20
      9 1725  935 (S14W44 L=239)   339     62        0 (1707/ 900-1742/ 971)  63.4 W42-W45 S15-S11
     10  445  824 (N05E41 L=154)   322     69        1 ( 421/ 795- 470/ 856) -76.0 E42-E38 N02-N06
     11  903  796 (S04E11 L=183)   441    121        0 ( 882/ 739- 925/ 856)  66.8 E12-E09 S07-N00
     12 1764  787 (S24W47 L=241)  1217    207        1 (1705/ 735-1831/ 851) -21.0 W41-W54 S28-S19
     13  173  710 (N00E74 L=121)  1999    132        5 ( 133/ 654- 210/ 777) -60.3 E81-E69 S03-N04
     14 1178  681 (S16W02 L=197)   438    163        0 (1126/ 612-1203/ 745)  49.4 E02-W04 S19-S12
     15  330  672 (S03E55 L=140)   331     35        1 ( 311/ 653- 357/ 691) -26.6 E56-E51 S04-S01
     16 1373  516 (S32W12 L=207)   253     70        0 (1340/ 493-1401/ 546)  21.8 W09-W14 S33-S30
     17  745  439 (S24E31 L=164)  1251    232        0 ( 709/ 333- 783/ 540)  54.5 E37-E25 S31-S17
     18  437  450 (S19E55 L=139)  2731    238        7 ( 376/ 375- 517/ 528) -76.0 E63-E50 S24-S12
     19 1647  455 (S46W39 L=233)  1730    286        2 (1543/ 392-1747/ 524)   5.0 W27-W53 S49-S42
     20 1185  405 (S35E03 L=192)   381    116        0 (1159/ 353-1214/ 466)  58.0 E06-W00 S39-S31
     21  900  274 (S39E29 L=166)   352     39        0 ( 870/ 259- 927/ 287) -33.7 E30-E26 S40-S37
     22 1161  206 (S53E13 L=182)  1110    150        0 (1094/ 180-1241/ 239)  -3.8 E19-E04 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