Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  926 1773 (N38E33 L= 15)  2485    521        3 ( 884/1642- 991/1921) -33.2 E51-E22 N28-N50
      2  404 1579 (N11E59 L=349)  1187    396        2 ( 370/1462- 434/1663) -35.2 E69-E51 N04-N16
      3 1377 1397 (N26W10 L= 59)   376    126        1 (1342/1332-1396/1441) -51.3 W07-W12 N21-N28
      4 1780 1393 (N41W44 L= 93)   774    150        0 (1753/1360-1822/1416)  32.0 W41-W49 N37-N43
      5 1852 1337 (N40W53 L=101)   951     85        1 (1830/1308-1877/1370) -26.6 W50-W56 N38-N42
      6  810 1321 (N06E20 L= 28)   284     35        0 ( 787/1296- 836/1345)  33.7 E21-E18 N04-N07
      7 1868 1249 (N35W54 L=103)   666    106        2 (1838/1223-1888/1274)   9.5 W50-W56 N32-N36
      8  438 1202 (S10E40 L=  8)   264     79        2 ( 416/1162- 465/1242)  78.7 E41-E38 S12-S07
      9 1199 1207 (N10W05 L= 53)   197     75        0 (1164/1166-1229/1227) -11.3 W02-W07 N08-N10
     10 1164 1127 (N04W05 L= 53)   200     14        0 (1145/1106-1180/1149)  90.0 W03-W05 N02-N05
     11 1069 1137 (N02E01 L= 48)   250    115        0 (1016/1124-1133/1148)  38.7 E03-W02 N00-N04
     12 1688 1025 (N14W40 L= 89)   767    198        0 (1655/ 950-1741/1072)  76.0 W38-W44 N09-N17
     13 1600 1022 (N11W34 L= 82)   579    113        1 (1562/ 967-1633/1070) -51.3 W30-W36 N07-N13
     14  648  973 (S18E21 L= 28)   232    110        0 ( 592/ 958- 699/ 999)  33.7 E24-E17 S19-S15
     15  868  934 (S14E06 L= 42)   223     66        1 ( 851/ 893- 889/ 972)  90.0 E07-E05 S16-S11
     16 1717  876 (N07W47 L= 96)   782    150        3 (1664/ 826-1759/ 932)  69.4 W44-W49 N02-N10
     17  401  884 (S29E37 L= 12)   592    187        2 ( 335/ 841- 461/ 918)  41.6 E41-E31 S33-S25
     18 1842  880 (N11W59 L=107)   508    101        2 (1819/ 832-1868/ 917)  80.5 W57-W61 N08-N14
     19  694  832 (S25E14 L= 34)   518    168        0 ( 616/ 809- 776/ 866)  35.0 E19-E09 S27-S20
     20  891  688 (S28W02 L= 50)   454     59        2 ( 853/ 656- 926/ 718)  53.1 W00-W03 S29-S25
     21  668  614 (S39E11 L= 38)   416     70        1 ( 634/ 598- 714/ 641)   9.5 E13-E07 S40-S37
     22 1205  285 (S42W42 L= 91)   406     75        1 (1172/ 262-1238/ 306)   9.5 W38-W45 S43-S41
  

    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