Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  963 1663 (N48W02 L= 50)   371     59        1 ( 943/1622- 986/1694) -90.0 W00-W03 N45-N51
      2 1644 1386 (N21W49 L= 97)   302     76        0 (1607/1359-1674/1409) -45.0 W46-W51 N18-N22
      3 1062 1266 (N20W04 L= 52)   216    132        0 (1040/1219-1116/1305)  39.8 W02-W08 N16-N21
      4  950  974 (N03E05 L= 43)   327    178        0 ( 904/ 916-1013/1047)  36.9 E08-W00 N00-N06
      5  715  996 (N05E19 L= 29)   609    261        4 ( 613/ 962- 842/1025)   3.8 E26-E11 N03-N07
      6 1700  882 (S10W45 L= 93)   840    256        5 (1656/ 767-1739/ 975)  90.0 W41-W48 S17-S04
      7  195  869 (S01E64 L=344)   533     83        2 ( 164/ 831- 224/ 895) -36.9 E68-E60 S03-N00
      8  926  820 (S07E08 L= 40)   204     99        0 ( 914/ 778- 939/ 869)  80.5 E08-E06 S09-S03
      9  275  799 (S05E56 L=352)   619    120        3 ( 257/ 749- 299/ 853)  74.1 E58-E53 S08-S01
     10  185  799 (S05E68 L=340)   974    122        4 ( 157/ 745- 204/ 843) -71.6 E71-E63 S08-S02
     11  519  774 (S07E35 L= 13)   284     68        2 ( 480/ 748- 544/ 795) -26.6 E37-E33 S08-S05
     12 1148  719 (S15W05 L= 53)   205     68        2 (1123/ 689-1175/ 743)  36.9 W03-W07 S16-S13
     13 1794  638 (S29W60 L=108)   681    110        3 (1765/ 587-1809/ 691) -81.9 W57-W63 S32-S24
     14  523  593 (S19E39 L=  9)   321    103        0 ( 478/ 569- 541/ 634)  33.7 E42-E36 S20-S16
     15  338  559 (S21E58 L=350)   488    108        0 ( 314/ 502- 363/ 602)  81.9 E59-E56 S25-S17
     16  751  530 (S24E23 L= 25)   476    150        1 ( 700/ 501- 807/ 582)  29.1 E27-E18 S26-S21
     17 1264  545 (S28W12 L= 60)   275     98        1 (1208/ 525-1302/ 571)   8.1 W08-W15 S28-S26
     18  444  524 (S23E48 L=360)   507     73        1 ( 415/ 499- 478/ 550) -21.8 E50-E44 S25-S21
     19 1427  485 (S34W25 L= 73)   485     85        2 (1384/ 469-1476/ 501) -14.0 W21-W29 S35-S32
     20  595  414 (S32E39 L=  9)   550    141        2 ( 533/ 381- 636/ 449)  21.0 E47-E34 S34-S29
     21  779  374 (S36E26 L= 22)   794    230        2 ( 679/ 351- 895/ 400)   0.0 E33-E15 S37-S34
     22  530  281 (S44E60 L=348)   989    108        0 ( 511/ 235- 564/ 329)  36.9 E67-E52 S48-S39
  

    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