Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  741 1790 (N44E45 L=209)   632     72        1 ( 712/1754- 773/1827) -22.6 E50-E38 N41-N46
      2 1666 1506 (N42W44 L=298)   699    117        2 (1607/1467-1723/1537)  -4.4 W37-W50 N39-N43
      3  426 1484 (N17E51 L=203)   446    132        0 ( 368/1454- 469/1501)  23.2 E54-E46 N14-N17
      4  611 1277 (N07E30 L=224)   648    158        0 ( 589/1193- 628/1349) -66.0 E32-E27 N02-N11
      5  884 1262 (N11E12 L=242)  1578    296        8 ( 789/1197-1002/1328)   8.7 E18-E05 N06-N15
      6  802 1237 (N08E17 L=237)   202     58        0 ( 778/1210- 822/1267) -45.0 E18-E15 N06-N09
      7 1089 1118 (N06W02 L=256)   282    150        0 (1054/1065-1141/1146)  31.0 W00-W05 N02-N07
      8  384 1078 (S08E43 L=212)   362     73        2 ( 353/1054- 427/1095)  21.8 E44-E39 S09-S06
      9  854  894 (S11E08 L=246)  1182    384        3 ( 777/ 753- 960/1048)  73.3 E10-E03 S20-N00
     10  414  770 (S26E38 L=216)   657    170        1 ( 337/ 742- 479/ 815)  24.8 E45-E32 S28-S22
     11 1312  713 (S14W23 L=277)   389    130        0 (1246/ 677-1366/ 746)  -6.3 W18-W27 S15-S13
     12 1066  659 (S22W09 L=263)   317     95        0 (1024/ 637-1115/ 678)  36.9 W06-W12 S23-S19
     13 1314  579 (S22W27 L=281)   306     93        1 (1268/ 556-1363/ 601)  31.0 W24-W30 S24-S20
     14 1122  491 (S32W17 L=272)   238     76        0 (1089/ 477-1163/ 504)  26.6 W14-W19 S33-S30
     15  427  403 (S54E47 L=207)  2346    239        4 ( 352/ 344- 513/ 463)  -7.4 E61-E36 S58-S49
  

    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