Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1029 1776 (N52W34 L= 68)   390     46        1 (1007/1748-1051/1802)  51.3 W30-W36 N49-N54
      2 1179 1760 (N45W42 L= 77)   819    103        1 (1143/1726-1225/1783) -51.3 W37-W46 N42-N47
      3 1690 1532 (N14W64 L= 98)   854    119        3 (1635/1514-1748/1552) -12.1 W57-W71 N11-N16
      4 1119 1367 (N23W15 L= 49)   346     88        1 (1084/1337-1155/1402)   9.5 W12-W18 N21-N25
      5 1777 1310 (N00W58 L= 92)   756    137        3 (1746/1240-1799/1370)  81.9 W56-W60 S04-N03
      6  853 1157 (N19E06 L= 28)   637    193        2 ( 794/1093- 912/1241)  24.4 E11-W00 N16-N21
      7 1199 1139 (N08W13 L= 47)   263     71        3 (1175/1117-1221/1172)  45.0 W11-W14 N07-N10
      8  282 1050 (N25E51 L=343)  1987    286        9 ( 242/ 930- 326/1165)  85.9 E55-E47 N18-N32
      9  477 1066 (N22E33 L=  1)   760    253        3 ( 374/ 978- 543/1100) -45.0 E41-E28 N15-N26
     10 1869  940 (S24W58 L= 92)   724    102        0 (1837/ 896-1891/ 993)  29.7 W53-W61 S25-S21
     11 1551  855 (S17W27 L= 61)  1138    360        1 (1393/ 832-1721/ 882) -20.6 W16-W40 S22-S12
     12 1140  767 (S11E00 L= 34)   223     43        0 (1121/ 740-1160/ 797)  45.0 E01-W01 S11-S09
     13 1845  773 (S34W54 L= 89)   536     69        0 (1810/ 757-1883/ 792) -21.0 W49-W62 S36-S31
     14 1041  585 (S19E11 L= 23)   260    118        0 (1031/ 521-1055/ 635)  60.3 E13-E09 S22-S15
     15  698  521 (S14E34 L=  0)   805    258        0 ( 658/ 417- 740/ 625)  38.2 E41-E27 S19-S08
     16  599  434 (S17E45 L=349)   328     67        1 ( 563/ 420- 632/ 454) -36.9 E46-E42 S18-S15
     17  491  328 (S23E63 L=331)  1074    119        3 ( 456/ 289- 534/ 380)  74.1 E67-E60 S26-S18
     18  576  332 (S24E54 L=340)   475    102        0 ( 527/ 313- 604/ 357) -18.4 E57-E49 S25-S22
     19  772  308 (S30E41 L=353)   807    133        1 ( 728/ 253- 819/ 350)  22.6 E46-E34 S34-S27
  

    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