Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1583 1523 (N42W34 L=299)   883    214        0 (1494/1461-1675/1565)  -9.5 W25-W43 N38-N43
      2  316 1505 (N16E64 L=201)   490     89        1 ( 288/1474- 356/1529)  38.7 E65-E60 N13-N17
      3  472 1355 (N09E42 L=223)  1101    260        3 ( 456/1247- 492/1490) -60.3 E46-E37 N03-N17
      4 1235 1387 (N25W07 L=272)   749    167        0 (1164/1321-1284/1439) -32.0 W01-W10 N21-N27
      5  898 1336 (N15E13 L=252)   782    222        2 ( 855/1250- 933/1437) -71.6 E15-E10 N10-N22
      6  700 1310 (N11E25 L=240)   222     46        1 ( 679/1289- 719/1343) -45.0 E26-E23 N09-N12
      7  810 1319 (N13E18 L=247)   233     65        0 ( 772/1304- 844/1330)   0.0 E20-E15 N11-N13
      8  889 1142 (N04E10 L=255)   207     79        0 ( 872/1111- 916/1176) -56.3 E11-E07 N02-N05
      9 1851 1064 (N16W60 L=325)   376     81        0 (1832/1029-1866/1109)  90.0 W57-W61 N13-N18
     10  687  944 (S11E19 L=246)  1223    343        2 ( 624/ 804- 774/1096)  78.7 E21-E15 S20-N00
     11  289  797 (S27E50 L=215)   432     81        1 ( 248/ 778- 329/ 816)  16.7 E55-E45 S28-S25
     12 1154  760 (S14W12 L=277)   392    158        0 (1082/ 710-1211/ 800) -11.3 W07-W17 S16-S12
     13  906  715 (S21E02 L=263)   400    128        0 ( 853/ 697- 976/ 731)  33.7 E05-W02 S23-S19
     14 1147  613 (S23W16 L=281)   211     27        0 (1124/ 596-1172/ 628)  45.0 W14-W16 S24-S21
     15  963  534 (S32W05 L=271)   306    100        0 ( 910/ 523-1014/ 545)  15.9 W01-W08 S33-S30
  

    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