Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1636 1589 (N19W59 L=174)  2299    315        3 (1589/1470-1715/1674)  17.1 W51-W77 N12-N22
      2 1197 1611 (N33W29 L=143)   364     93        0 (1148/1590-1241/1629) -26.6 W25-W31 N30-N34
      3 1189 1506 (N27W23 L=138)   703    177        1 (1118/1437-1255/1544)   9.5 W16-W28 N24-N28
      4 1224 1392 (N19W21 L=135)   287    137        0 (1164/1355-1283/1416) -50.2 W18-W23 N15-N21
      5  963 1300 (N21W03 L=118)   260    101        1 ( 927/1262- 991/1343) -71.6 W02-W04 N17-N23
      6  725 1200 (N21E13 L=101)  1221    336        3 ( 646/1110- 873/1296) -58.0 E16-E05 N12-N28
      7 1871 1143 (S12W61 L=175)  1728    289        4 (1837/1047-1906/1266)  45.0 W55-W68 S17-S05
      8 1616 1101 (S07W37 L=151)  1804    407        1 (1555/ 910-1671/1257)  69.8 W29-W41 S16-N03
      9  330 1217 (N31E43 L= 72)   942    171        1 ( 258/1188- 408/1247)  -7.6 E50-E35 N28-N33
     10  529 1148 (N22E27 L= 87)   976    243        3 ( 420/1080- 628/1196) -40.2 E34-E21 N16-N27
     11 1948 1089 (S18W72 L=186)   829     59        6 (1915/1066-1972/1123) -38.7 W65-W78 S19-S15
     12 1891 1024 (S19W61 L=175)   812     99        2 (1860/ 976-1917/1072)  29.7 W56-W65 S21-S17
     13  346 1034 (N20E43 L= 71)   354    112        2 ( 281/1015- 391/1059) -24.0 E48-E39 N18-N22
     14  709  783 (S02E24 L= 91)   773    324        1 ( 604/ 692- 850/ 885) -54.5 E27-E17 S09-N05
     15 1674  781 (S27W35 L=150)  2401    474        6 (1451/ 640-1841/ 883)   3.2 W16-W52 S29-S23
     16 1428  793 (S19W18 L=132)  1084    257        3 (1319/ 737-1526/ 862)   7.1 W09-W25 S20-S17
     17  283  565 (S06E64 L= 50)  4247    310       14 ( 195/ 424- 339/ 704)  57.1 E72-E55 S15-N02
     18  411  555 (S09E52 L= 62)   481     55        1 ( 393/ 521- 432/ 594)  63.4 E53-E49 S10-S06
     19  342  538 (S08E59 L= 55)   986    128        2 ( 308/ 466- 368/ 593)  37.9 E64-E55 S12-S05
     20  430  496 (S12E53 L= 61)   493     97        2 ( 391/ 461- 458/ 538)  29.7 E57-E49 S14-S10
  

    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