Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1464 1701 (N30W54 L=249)   474    118        1 (1429/1678-1504/1717)  -8.1 W50-W57 N28-N31
      2 1621 1521 (N16W55 L=250)   387     64        3 (1595/1488-1655/1551) -63.4 W53-W57 N13-N17
      3 1688 1524 (N13W61 L=256)   392     51        1 (1664/1497-1712/1548) -63.4 W59-W62 N11-N15
      4 1010 1423 (N29W11 L=206)   280     68        0 ( 974/1397-1045/1453)   0.0 W08-W14 N28-N30
      5 1468 1402 (N14W38 L=232)  2253    564        6 (1209/1361-1695/1428) -22.4 W21-W55 N06-N21
      6  709 1231 (N27E13 L=181)   511    150        2 ( 672/1158- 737/1307) -90.0 E14-E11 N21-N31
      7 1852 1189 (S10W61 L=256)  2389    369       12 (1803/1090-1908/1252)  84.3 W56-W70 S15-S05
      8 1116 1130 (N10W08 L=203)   248    130        1 (1104/1058-1134/1191)  54.5 W05-W10 N06-N13
      9 1804 1105 (S12W53 L=247)   743    129        3 (1775/1065-1832/1160)  80.5 W49-W55 S15-S09
     10 1752 1070 (S12W47 L=242)  1191    308        5 (1708/ 960-1821/1142) -69.0 W43-W50 S20-S07
     11 1669 1043 (S11W39 L=234)   478    106        2 (1648/ 983-1692/1094)  81.9 W38-W40 S14-S07
     12 1158 1005 (N02W07 L=201)   420    105        2 (1107/ 984-1215/1032) -38.7 W04-W09 N00-N04
     13  314  945 (N19E48 L=146)   375     81        1 ( 288/ 902- 328/ 989)  68.2 E50-E47 N16-N21
     14 1514  784 (S21W22 L=217)  1729    434        5 (1403/ 623-1562/ 940)  87.5 W18-W25 S31-S08
     15  688  497 (S15E35 L=159)   630    266        1 ( 647/ 398- 729/ 587)  47.7 E42-E30 S20-S09
     16  480  540 (S08E48 L=146)   775    197        2 ( 418/ 504- 542/ 578) -45.0 E52-E43 S11-S04
     17  288  521 (S06E70 L=125)   567    162        0 ( 253/ 508- 330/ 538) -16.7 E75-E64 S07-S04
     18  429  485 (S10E56 L=139)   365     94        1 ( 406/ 457- 459/ 532) -90.0 E57-E53 S12-S07
     19  925  339 (S32E28 L=166)  1258    331        4 ( 812/ 292-1002/ 436)  11.9 E38-E19 S35-S26
     20  701  222 (S35E52 L=143)   740    138        2 ( 679/ 189- 730/ 254)  45.0 E56-E48 S37-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