Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1562 1611 (N21W55 L=290)   499     96        0 (1514/1585-1600/1626) -26.6 W51-W58 N19-N23
      2  455 1388 (N41E30 L=205)   457    110        0 ( 409/1353- 503/1416) -33.7 E34-E25 N37-N43
      3  994 1280 (N20W05 L=240)   210     98        0 ( 943/1265-1045/1294) -38.7 W02-W07 N17-N21
      4 1369 1189 (N05W23 L=258)  1400    422        3 (1216/1066-1537/1279)   4.8 W12-W36 N01-N07
      5 1015 1179 (N14W03 L=238)   238     57        0 ( 991/1155-1044/1203)  14.0 W01-W05 N12-N14
      6 1856  893 (S27W54 L=289)  2402    371        5 (1747/ 766-1955/1047)  26.6 W41-W72 S30-S19
      7  743  980 (N09E17 L=218)   727    147        1 ( 694/ 924- 788/1044)  20.6 E20-E12 N05-N12
      8 1419  945 (S10W20 L=255)   407    140        0 (1386/ 897-1470/1006) -69.4 W18-W22 S13-S05
      9  708  806 (N01E23 L=211)   201     82        0 ( 672/ 795- 753/ 815) -11.3 E25-E20 N00-N01
     10  456  622 (S04E46 L=189)  2050    400        6 ( 345/ 475- 535/ 790) -87.1 E50-E43 S13-N07
     11  828  644 (S11E21 L=214)   242     34        0 ( 812/ 616- 843/ 669)  76.0 E22-E19 S13-S09
     12 1614  599 (S37W27 L=262)  1231    186        1 (1532/ 548-1680/ 660)   4.4 W20-W34 S38-S34
     13 1075  515 (S25E11 L=223)  1339    306        0 (1003/ 377-1110/ 641)  41.2 E21-E05 S32-S18
     14  375  486 (S10E60 L=175)  1795    342        6 ( 343/ 358- 412/ 625)  33.7 E75-E50 S18-S02
     15  811  591 (S14E24 L=211)   203     50        0 ( 779/ 578- 841/ 607) -14.0 E25-E21 S14-S12
     16  589  530 (S12E40 L=195)   427    112        0 ( 559/ 485- 632/ 563)  31.0 E42-E36 S14-S10
     17  661  457 (S18E39 L=196)   340     89        1 ( 620/ 443- 705/ 477) -31.0 E41-E36 S20-S16
     18  564  385 (S20E50 L=185)  3089    415        7 ( 451/ 288- 679/ 473) -37.6 E60-E41 S27-S14
     19  650  287 (S29E51 L=184)   378     74        1 ( 625/ 265- 674/ 325)  33.7 E53-E46 S30-S26
     20  771  278 (S33E43 L=192)   372     83        0 ( 729/ 260- 806/ 303)  -8.1 E45-E38 S34-S31
  

    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