Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  631 1689 (N60E09 L= 56)  1866    368        4 ( 474/1602- 766/1789)   5.4 E30-W12 N56-N64
      2 1207 1353 (N20W20 L= 85)   569    163        2 (1119/1315-1287/1369) -29.1 W15-W24 N16-N22
      3 1837 1080 (S14W55 L=120)  3451    455        7 (1791/ 885-1887/1292)  48.0 W46-W65 S23-S02
      4 1902 1159 (S12W66 L=131)  1893    263        2 (1861/1027-1945/1259) -78.7 W62-W71 S21-S06
      5 1499 1191 (N03W32 L= 97)   337    109        0 (1484/1141-1510/1249)  51.3 W29-W33 N00-N05
      6  247 1126 (N30E53 L= 12)   480     92        0 ( 205/1106- 292/1148) -16.7 E58-E48 N28-N32
      7  796 1045 (N13E12 L= 53)   975    396        3 ( 635/ 986- 923/1118) -12.5 E22-E04 N09-N16
      8 1751 1018 (S14W45 L=110)  1190    191        5 (1704/ 963-1790/1091)  32.0 W40-W50 S17-S11
      9  179 1048 (N27E62 L=  3)   456     90        0 ( 138/1030- 224/1072) -14.0 E68-E56 N25-N28
     10  541  990 (N16E30 L= 36)   387    148        0 ( 467/ 957- 607/1015) -33.7 E34-E25 N13-N19
     11  890  963 (N07E09 L= 56)   237     59        1 ( 858/ 944- 917/ 994) -33.7 E10-E07 N05-N08
     12  254  833 (N13E57 L=  8)   892    117        2 ( 223/ 770- 276/ 887)  74.1 E60-E53 N09-N16
     13  743  817 (N02E21 L= 44)   217     66        2 ( 704/ 801- 766/ 836) -63.4 E22-E19 N00-N04
     14  816  683 (S07E21 L= 45)   260     51        0 ( 778/ 671- 846/ 699) -14.0 E22-E18 S08-S06
     15 1728  590 (S41W39 L=104)  2288    222        4 (1648/ 534-1789/ 677)  14.0 W30-W46 S46-S35
     16  574  649 (S04E36 L= 29)   336     69        1 ( 538/ 628- 599/ 675) -33.7 E38-E34 S05-S02
     17  469  429 (S15E55 L= 10)   594     71        2 ( 432/ 398- 498/ 456) -53.1 E58-E51 S17-S13
     18  497  362 (S20E58 L=  8)  1077    222        2 ( 409/ 316- 588/ 418) -36.0 E63-E49 S23-S14
     19 1254  347 (S41E06 L= 59)  1287    189        3 (1180/ 305-1336/ 398)   4.4 E12-W01 S43-S38
     20  962  181 (S45E38 L= 27)   827     86        1 ( 921/ 155-1005/ 213)   5.2 E44-E33 S47-S42
  

    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