Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1579 1662 (N23W62 L=  4)   459     63        0 (1548/1646-1615/1680) -45.0 W59-W64 N21-N25
      2 1709 1505 (N11W61 L=  4)  1733    230        4 (1653/1436-1777/1583) -84.8 W57-W66 N05-N16
      3 1009 1412 (N27W10 L=312)   325     87        0 ( 972/1386-1061/1434)  -8.1 W07-W14 N25-N28
      4 1629 1379 (N07W47 L=349)   547    118        0 (1584/1353-1681/1405) -20.6 W44-W52 N05-N09
      5 1879 1278 (S06W68 L= 10)  2112    150        2 (1847/1205-1906/1350)  26.6 W60-W74 S09-S02
      6 1811 1251 (S05W58 L=  0)   530     65        0 (1791/1213-1829/1290)  78.7 W56-W59 S07-S02
      7 1083 1136 (N10W06 L=308)  1466    490        1 ( 888/1019-1268/1227) -45.0 E03-W13 S01-N17
      8 1559 1166 (S02W35 L=337)   387    126        0 (1515/1111-1598/1194) -68.2 W32-W36 S05-N00
      9 1755 1161 (S08W49 L=351)   289     63        0 (1729/1145-1792/1175)  -9.5 W46-W52 S09-S06
     10  562  995 (N15E28 L=274)   903    197        1 ( 527/ 924- 617/1097)  84.8 E29-E25 N10-N21
     11 1460  607 (S31W15 L=317)  2791    800        4 (1237/ 288-1663/ 869)  30.6 E10-W34 S47-S20
     12  482  794 (N06E38 L=264)   720    121        3 ( 427/ 768- 539/ 829) -26.6 E42-E34 N03-N08
     13  303  678 (N03E57 L=245)   346     58        1 ( 287/ 648- 328/ 704)  18.4 E59-E53 N01-N04
     14 1059  528 (S24E12 L=290)  1522    370        4 ( 947/ 402-1168/ 677)  29.7 E22-E01 S29-S17
     15  510  514 (S11E47 L=255)  1580    336        3 ( 444/ 454- 586/ 603) -84.8 E50-E41 S15-S04
     16  331  482 (S09E66 L=236)   665     56        2 ( 305/ 452- 351/ 509)  26.6 E69-E61 S11-S07
     17  376  434 (S13E65 L=238)  2050    134        4 ( 323/ 359- 413/ 495)  32.7 E73-E58 S18-S09
     18  724  430 (S21E36 L=266)   247     95        0 ( 694/ 414- 771/ 459) -36.9 E37-E33 S22-S18
     19  525  341 (S22E57 L=245)  2590    263        9 ( 447/ 274- 595/ 394) -60.9 E64-E49 S27-S17
     20  827  251 (S36E41 L=261)   758    130        3 ( 795/ 208- 872/ 313)  21.0 E46-E33 S39-S32
  

    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