Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1226 1847 (N51W56 L=243)   537     62        2 (1200/1822-1256/1870)  76.0 W51-W61 N48-N52
      2 1482 1423 (N18W39 L=226)   341    104        1 (1429/1403-1530/1446) -39.8 W36-W42 N15-N20
      3 1759 1255 (N00W54 L=241)  1868    282        1 (1712/1114-1834/1324)  23.6 W45-W62 S05-N04
      4  551 1225 (N29E26 L=161)   564    174        0 ( 471/1188- 631/1256)   0.0 E32-E19 N27-N30
      5 1932 1103 (S14W72 L=259)  1556    101        3 (1915/1056-1955/1147)   9.5 W67-W80 S16-S11
      6  752 1054 (N15E15 L=172)   667    357        1 ( 619/1022- 907/1098)  -3.0 E24-E05 N11-N17
      7  248 1057 (N24E55 L=133)  1040    122        3 ( 188/1020- 300/1094)  -8.7 E62-E49 N21-N26
      8 1913 1023 (S18W66 L=253)  1104     66        3 (1889/ 993-1953/1050)  -4.4 W61-W75 S19-S15
      9  141  949 (N19E71 L=117)  1146    152        6 ( 111/ 883- 183/ 994)  60.3 E76-E63 N14-N21
     10  201  894 (N15E62 L=125)  1153    179        3 ( 172/ 810- 229/ 968)  78.7 E66-E58 N09-N19
     11 1505  853 (S14W24 L=212)   423     96        1 (1466/ 809-1551/ 885)   0.0 W21-W27 S16-S11
     12  760  870 (N04E19 L=169)   233     85        0 ( 722/ 854- 806/ 884) -11.3 E20-E15 N03-N04
     13  899  734 (S06E14 L=173)   299     89        4 ( 872/ 701- 921/ 773) -78.7 E15-E12 S08-S03
     14 1202  745 (S13W04 L=191)   242     66        1 (1175/ 713-1228/ 769)  14.0 W01-W05 S14-S11
     15  989  733 (S09E09 L=179)   385     73        2 ( 952/ 698-1015/ 764) -63.4 E10-E06 S10-S06
     16 1325  660 (S21W09 L=196)   484    174        0 (1263/ 598-1371/ 726)  29.1 W04-W13 S23-S18
     17  856  644 (S11E19 L=169)   458    107        2 ( 832/ 593- 887/ 678)  45.0 E20-E16 S14-S08
     18 1031  632 (S16E09 L=178)   291     78        2 (1011/ 597-1056/ 670)  45.0 E10-E06 S17-S13
     19  350  558 (S07E58 L=129)   473     40        2 ( 328/ 530- 377/ 586)  45.0 E60-E54 S08-S05
     20  838  535 (S17E23 L=164)   920    298        0 ( 718/ 503- 979/ 562)  -6.3 E31-E13 S20-S14
     21 1027  404 (S30E16 L=171)   714    224        0 ( 937/ 328-1104/ 461)  17.4 E25-E09 S34-S27
     22  719  378 (S25E38 L=150)   847    208        0 ( 656/ 282- 775/ 453)  81.9 E40-E35 S33-S19
     23  826  404 (S26E29 L=158)   367     95        3 ( 790/ 379- 866/ 427) -36.9 E31-E26 S27-S23
     24  430  356 (S22E66 L=121)  1254     73        3 ( 407/ 299- 454/ 418)  25.3 E75-E56 S26-S17
     25  674  317 (S29E45 L=142)   665    107        3 ( 647/ 265- 697/ 368)  32.5 E51-E40 S32-S25
     26  612  321 (S27E50 L=137)   589     71        0 ( 592/ 281- 638/ 361)  66.8 E53-E46 S30-S23
     27  711  247 (S35E48 L=139)   385     71        0 ( 689/ 222- 729/ 287)  21.8 E53-E43 S36-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