Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  919 1647 (N47W13 L=161)   341    123        0 ( 882/1601- 963/1689)  20.0 W07-W18 N45-N49
      2 1032 1398 (N28W10 L=159)   644    247        1 ( 931/1331-1128/1448)   7.1 W02-W18 N26-N29
      3 1144 1237 (N16W12 L=161)   196    101        0 (1100/1219-1186/1264)   0.0 W09-W15 N15-N17
      4 1883 1164 (S09W65 L=213)  2663    171        7 (1816/1098-1930/1249)  30.3 W55-W73 S13-S04
      5  695 1194 (N24E16 L=133)   792    212        1 ( 603/1137- 782/1241)   0.0 E23-E10 N22-N26
      6  413 1106 (N25E38 L=110)   441    116        1 ( 363/1066- 462/1142)  12.5 E42-E33 N23-N26
      7 1806 1097 (S10W53 L=202)   331     43        0 (1792/1070-1821/1125) -71.6 W51-W54 S11-S08
      8  508 1004 (N17E32 L=116)   212     62        1 ( 482/ 973- 538/1029) -53.1 E33-E30 N14-N18
      9 1822  942 (S19W52 L=201)   731    151        1 (1784/ 875-1853/1018)  41.2 W47-W56 S22-S15
     10  928  932 (N04E08 L=141)   233    100        0 ( 889/ 906- 971/ 963) -51.3 E09-E05 N01-N06
     11 1471  805 (S16W21 L=170)  1981    489        4 (1293/ 708-1623/ 947)   9.1 W08-W33 S19-S11
     12 1508  837 (S16W24 L=173)   246    115        0 (1456/ 813-1558/ 859)  -8.1 W20-W27 S16-S14
     13  524  596 (S07E42 L=107)  1064    255        1 ( 410/ 530- 612/ 679) -47.7 E47-E37 S12-N00
     14 1535  604 (S31W22 L=171)   639    187        0 (1458/ 559-1595/ 665)   9.5 W15-W27 S32-S29
     15 1149  482 (S28E06 L=142)  1413    370        2 (1049/ 399-1226/ 555)  21.0 E14-E01 S34-S23
     16  809  431 (S23E29 L=119)   509    133        0 ( 770/ 381- 844/ 494)  33.7 E33-E24 S25-S19
     17 1099  413 (S32E12 L=137)   455    173        0 (1024/ 388-1145/ 465)   0.0 E16-E07 S33-S28
     18  645  366 (S24E44 L=105)  1054    202        3 ( 592/ 296- 718/ 441)  85.2 E47-E40 S30-S18
     19 1408  364 (S46W09 L=157)   413     67        0 (1367/ 338-1438/ 392)   0.0 W04-W11 S47-S43
     20 1120  346 (S37E13 L=135)   565    109        2 (1073/ 318-1168/ 380)   6.3 E17-E08 S38-S35
  

    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