Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  882 1826 (N61W27 L= 66)  1149    196        3 ( 823/1773- 928/1892)  12.5 W16-W43 N56-N65
      2 1247 1734 (N40W43 L= 82)   283     54        1 (1224/1711-1275/1758) -90.0 W41-W45 N37-N41
      3 1537 1715 (N28W64 L=103)   612     59        2 (1509/1693-1564/1739) -56.3 W60-W67 N26-N29
      4 1461 1548 (N22W44 L= 83)  1192    278        5 (1312/1509-1576/1587) -36.3 W36-W51 N17-N29
      5 1769 1389 (N04W60 L= 99)   864    190        1 (1747/1306-1796/1482)  45.0 W57-W66 N00-N08
      6 1249 1265 (N14W19 L= 58)   234    103        0 (1232/1217-1262/1313)  59.0 W16-W20 N11-N16
      7 1008 1268 (N20W06 L= 44)   194     83        0 ( 991/1233-1040/1301)  36.9 W03-W08 N18-N21
      8 1162 1217 (N13W13 L= 51)  1017    411        6 (1020/1156-1316/1296) -38.2 W04-W20 N06-N19
      9  529 1230 (N30E26 L= 13)   370    105        0 ( 477/1211- 577/1256)   0.0 E30-E21 N29-N31
     10 1915 1212 (S11W71 L=109)   654     95        1 (1889/1182-1939/1237) -63.4 W65-W75 S12-S08
     11  931 1162 (N17E02 L= 37)   381    157        0 ( 851/1149-1009/1175) -32.0 E06-W02 N13-N19
     12  406 1130 (N27E37 L=  1)   811    212        0 ( 306/1106- 509/1157) -22.4 E46-E29 N23-N30
     13 1181  902 (S04W05 L= 44)   352     89        0 (1144/ 879-1225/ 921)   0.0 W03-W08 S05-S02
     14  956  809 (S03E09 L= 29)   456    192        0 ( 896/ 761-1041/ 856)  11.3 E13-E03 S04-S02
     15  944  685 (S10E13 L= 25)   395    129        0 ( 906/ 621- 975/ 745)  83.7 E14-E12 S14-S05
     16  483  383 (S18E57 L=342)  1820    310        2 ( 457/ 272- 520/ 538)  34.7 E72-E45 S26-S08
     17 1546  498 (S41W20 L= 59)   774     84        3 (1496/ 467-1590/ 526)   0.0 W15-W24 S42-S38
     18  777  468 (S19E31 L=  8)  1048    294        1 ( 665/ 428- 898/ 525) -31.6 E35-E22 S23-S13
     19 1157  262 (S45E18 L= 21)  1666    320        3 (1034/ 178-1298/ 349)   8.1 E32-E03 S49-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